Excluir anexos via VBA
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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
2 comentário(s) Avelino Sampaio 17/03/2023 15:28:41 Larry, o Link já esta funcionando. Muito obrigado pelo feedback. Larry 17/03/2023 15:21:20 Não consigo aceder ao ficheiro. Dá para verificar o link? Muito obrigado pela atenção |