Limitar o tamanho do arquivo anexo

Pessoal,

meu formulário tem um campo tipo "ANEXO".

Gostaria de uma ajuda para limitar o tamanho do arquivo.

Meu BD é para cadastro de contatos, e nesse cadastro me solicitaram um campo para inserir portifolio, então, preciso limitar o tamanho dos arquivos que serão anexados, senão vão anexar arquivos gigantes e o BD vai parar loho.

Eu gostaria de limitar os anexos com no máximo 3mb.

alguém pode me ajudar?

Boa tarde, amigo...

Justamente para evitar que seu banco infle, é recomendado
não usar campo anexo.

E há, diversos exemplos prontos que mostram como apenas
gravar o caminho do arquivo e exibir no formulário.

O campo anexo é controlado por si só, não temos como modificar
muita coisa nele, pois a caixa de diálogo para anexar o arquivo já
é compilado com o próprio Access, sem opção de filtragem ou outras
personalizações quanto aos aquivos.

Então, faça uma pesquisa, escolha um exemplo e te ajudamos a implementar
no seu projeto.

Amigo Marcelo,

obrigado pelas informações.

A questão do campo anexo é exatamente para evitar problemas que hoje temos aqui na rede, a redundância. Como é difícil controlar ou mudar essa cultura que criaram nessa rede, sugeriram essa ideia do campo anexo, mas preciso limitar o tamanho do arquivo.


até encontrei um código em um site em inglês, mas não consegui por para funcionar.
[
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
]

Então meu amigo, mas é justamente aí que entra o "x" da questão... A caixa de diálogo que é exibida pelo campo anexo é padrão e não passiva a configurações. Por isso, código que limitem ou informem o tamanho de arquivo até existem, mas não se aplica ao campo Anexo.

Mas me veio uma ideia aqui... Vou fazer uns testes, mas para isso preciso das partes que envolvem seu questionamento.

Poderia disponibilizar o aplicativo para eu realizar alguns testes? Se obtiver ou não sucesso, lhe informo.

Obrigado amigo Marcelo por tentar me ajudar

mando aqui um link do arquivo no drive

[https://drive.google.com/file/d/1aZQvQCFssUxExi3octZ9BkmeGxYXFcul/view?usp=sharing]

Acho q realmente não vai ter jeito, mas agradeço a atenção.