... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

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.

Falha código exclusão

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)

Larry   17/03/2018 15:21:20

Não consigo aceder ao ficheiro.
Dá para verificar o link?
Muito obrigado pela atenção

Avelino Sampaio   17/03/2018 15:28:41

Larry,

o Link já esta funcionando.

Muito obrigado pelo feedback.



Envie seu comentário: