Ограничить доступ к размеру файла вложения 2007

Question

В настоящее время у меня есть система базы данных, которая была разработана для регистрации вызовов, входящих в отдел.Чтобы помочь другим агентам по телефонной системе с информацией, допущенной, для вложений, так что фотографии, буквы и т. Д. Для добавления вложений имеется контроль вложений в форме, чтобы обеспечить дополнительную документацию, как упомянуто выше.

Проблема в том, что я обнаружил, что многие люди используют систему для хранения больших копий руководств.Который вызывает размер файла базы данных, чтобы выстрелить в экспоненциально.

Что я хотел бы узнать, возможно ли ограничить размер файла в креплении через VBA?Например, ограничите его до 6 МБ.

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

.