MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Limitar o tamanho do arquivo anexo

    avatar
    costa256
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 22/01/2019

    Limitar o tamanho do arquivo anexo Empty Limitar o tamanho do arquivo anexo

    Mensagem  costa256 em 12/2/2019, 18:17

    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?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  Marcelo David em 12/2/2019, 19:51

    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.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    costa256
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 22/01/2019

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  costa256 em 13/2/2019, 11:22

    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
    ]

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  Marcelo David em 13/2/2019, 13:10

    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.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    costa256
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 22/01/2019

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  costa256 em 16/2/2019, 00:06

    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]

    avatar
    costa256
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 22/01/2019

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  costa256 em 19/2/2019, 19:36

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

    Conteúdo patrocinado

    Limitar o tamanho do arquivo anexo Empty Re: Limitar o tamanho do arquivo anexo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2019, 07:55