첨부 파일 크기 제한 액세스 2007

Question

현재 부서로 들어오는 호출을 기록하도록 설계된 데이터베이스 시스템이 있습니다. 첨부 파일을 허용하는 정보가있는 전화 시스템의 다른 요원을 사진, 편지 등으로 돕기 위해 첨부 파일을 추가 할 수 있도록 양식에 첨부 파일 컨트롤이있어 위에서 언급 한 추가 문서를 추가 할 수 있습니다.

문제는 많은 사람들이 시스템을 사용하여 많은 설명서를 저장하고 있다는 것을 발견했습니다. 이로 인해 데이터베이스의 파일 크기가 기하 급수적으로 늘어납니다.

내가 알고 싶은 것은, VBA를 통해 첨부 파일의 파일 크기를 제한 할 수 있습니까? 예를 들어 6MB로 제한하십시오.

Answer 1

다음 코드는 파일 크기를 반환하지만 위에서 언급 한 다른 것들은 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