Ms access 限制附件文件大小访问2007

目前我有一个数据库系统，专门用来记录进入某个部门的电话。为了帮助电话系统上的其他代理提供我允许的附件信息，例如照片、信件等。为了允许添加附件，表单上有一个附件控件，允许添加如上所述的其他文档

问题是，我发现很多人都在使用这个系统来存储大量的手册副本。这导致数据库的文件大小呈指数级增长

---

我想知道的是，是否可以通过VBA限制附件的文件大小？例如，将其限制为6MB

为了回答您的问题，以下代码将返回文件大小，但正如上面提到的其他代码一样，我不想将附件存储在Access数据库中。您的数据库将快速增长，并且可能变得不稳定

Private Sub CheckFileSize(strMyFile)
  Dim objFileSys As Scripting.FileSystemObject
  Dim objMyFile As File
  Set objFileSys = CreateObject("Scripting.FileSystemObject")
  Set objMyFile = objFileSys.GetFile(strMyFile)
  If objMyFile.Size > 6000000 then
    MsgBox "File is too big.", vbokonly
  Else
    MsgBox "File is OK.", vbokonly
  End If
  Set objFileSys = Nothing
  Set objMyFile = Nothing
End Sub

---

请参见上面的修改。“为了允许添加附件，表单上有一个附件控件，允许如上所述添加其他文档。”我在这一点上没有专业知识，因此我谦恭地将此作为一条评论。Access的内置功能似乎可以作为照片处理程序使用，但不能作为文档管理器使用；我猜你现在的问题不会是最后一期。用户建议使用指向文件记录而不是文件附加功能。为了支持上述评论，请参阅“谢谢”，这将非常有助于阻止用户。附件仅作为主要用于小图片或文本文件的功能添加。这是传达给用户的，用户不存储大文件，但作为用户，他们从不听。我很感激你的代码，谢谢你，我会尝试一下。欢迎你，如果这对你有效，请检查是否有效。此外，您还必须参考“Microsoft脚本运行时”，该dll为scrrun.dll，如果您运行的是Windows 7，则该dll应位于SysWOW64文件夹中。