Limitare l'accesso alle dimensioni del file allegato 2007

Question

Attualmente ho un sistema di database che è stato progettato per registrare le chiamate che entrano in un dipartimento.Per aiutare gli altri agenti sul sistema telefonico con le informazioni consentite per gli allegati, quindi le fotografie, le lettere, ecc. Per consentire l'aggiunta di allegati che possono essere aggiunte, è possibile aggiungere un controllo degli allegati sul modulo per consentire l'aggiunta di documentazione aggiuntiva come indicato sopra.

Il problema è che ho trovato molte persone utilizzando il sistema per memorizzare copie grandi di manuali.Che sta causando la dimensione del file del database per riprendere in modo esponenziale.

Quello che vorrei sapere è, è possibile limitare la dimensione del file di un allegato tramite VBA?Ad esempio limitarlo a 6 MB.

Answer 1

Per rispondere alla domanda, il seguente codice restituirà la dimensione del file, ma come altri sopra menzionati non penso che vorrei memorizzare gli allegati in un database di accesso il database crescere rapidamente e potrebbe diventare instabile.

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

.