Restringir O Tamanho Do Arquivo Anexo Access 2007
-
26-12-2019 - |
Pergunta
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.
Solução
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