첨부 파일 크기 액세스 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

.