Restringir O Tamanho Do Arquivo Anexo Access 2007

Question

Atualmente tenho um banco de dados do sistema que foi projetado para fazer as chamadas para um departamento.Para ajudar a outros agentes no telefone de sistema com informações que me permitido para anexos de então, fotografias, cartas, etc.Para permitir que anexos sejam adicionados há um anexos controle no formulário para permitir a documentação adicional para ser adicionado como mencionado acima.

O problema é que eu encontrei um monte de pessoas estão usando o sistema de armazenamento de grande cópias de manuais.O que está causando o tamanho do arquivo do banco de dados para atirar-se exponencialmente.

O que eu gostaria de saber é se é possível restringir o tamanho do arquivo de um anexo através de VBA?Por exemplo, restringem-6MB.

Answer 1

Para responder à sua pergunta o código a seguir irá retornar o tamanho do arquivo, mas como os outros mencionados acima eu não acho que eu iria querer para armazenar anexos em um banco de dados de Acesso a sua base de dados vai crescer rapidamente e pode se tornar instável.

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