Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Excluir anexos via VBA

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

Usuário Antonio:

Bom dia.

Existe algum modo de excluir um arquivo do tipo anexo, via VBA?

Quando copio o meu registro, o campo anexo vem junto com a cópia, mas eu não quero que ele venha junto para evitar que o usuário erre na hora de excluir o arquivo.

Já usei:

me!anexo = null
me!anexo = ""

Mas esse tipo de campo não aceita esse método.

Grato pela atenção!

Suporte:

Antonio, como teste, crie um botão no seu formulário e acrescente o seguinte código:

Dim rsa As DAO.Recordset2
Dim fld As DAO.Field2

Set fld = Me.Recordset("NomeDoCampoAnexo")
Set rsa = fld.Value

Do While Not rsa.EOF
    rsa.Delete
    rsa.MoveNext
Loop
rsa.Close
Set rsa = Nothing
Set fld = Nothing

Me!NomeDoCampoAnexo.Requery
MsgBox "Campo anexo atual limpo ...", vbInformation, "Aviso"

Nota: faça um backup de segurança da tabela envolvida.

Usuário Antonio:

Bom dia Avelino.

O Código apresenta o erro da imagem abaixo, eu já visitei o Suporte da Microsoft sobre esse erro, mas o mesmo ainda persiste.

Suporte:

Antonio, qual é a versão do seu Access?

Segue abaixo um BD exemplo para você testar no seu Access.

Usuário Antonio:

Muito obrigado pela ajuda Avelino!

O meu Access é o 2016, e descobri que o erro está em algum lugar do meu formulário, pois, eu importei o formulário de exemplo e ele funciona no meu programa. Porém, usando o código dentro do meu formulário, ele não funciona e dá aquele erro. Vou tentar recriar do zero o meu formulário para ver o motivo desse problema.

Download

DeletarAnexos.zip

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |