Restringir el tamaño del archivo adjunto Acceso 2007

Question

Actualmente tengo un sistema de base de datos que ha sido diseñado para registrar las llamadas que ingresan a un departamento.Para ayudar a otros agentes en el sistema telefónico con la información que permití los archivos adjuntos para que las fotografías, letras, etc. para permitir que se agreguen archivos adjuntos, hay un control de los archivos adjuntos en el formulario para permitir que se agregue documentación adicional como se mencionó anteriormente.

El problema es que he encontrado que muchas personas están utilizando el sistema para almacenar copias grandes de manuales.Que está causando que el tamaño del archivo de la base de datos se dispare exponencialmente.

Lo que me gustaría saber es, ¿es posible restringir el tamaño del archivo de un archivo adjunto a través de VBA?Por ejemplo, restringirlo a 6 MB.

Answer 1

Para responder a su pregunta El siguiente código devolverá el tamaño del archivo, pero como otros mencionados anteriormente, no creo que querría almacenar archivos adjuntos en una base de datos de acceso, su base de datos crecerá rápidamente y puede volverse inestable.

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