限制附件文件大小访问2007

Question

目前我有一个数据库系统，旨在记录进入部门的呼叫。在手机系统上帮助其他代理，我允许附件所以照片，字母等，允许添加附件，表单上有一个附件控制，以允许如上所述添加其他文档。

问题是，我发现很多人正在使用该系统来存储大写手册。这导致数据库的文件大小指数举起。

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

Answer 1

要回答您的问题，以下代码将返回文件大小，但随着上面提到的其他我认为我想在访问数据库中存储附件，您的数据库将快速增长，可能变得不稳定。

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

.