Excluir anexos via VBA
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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/2018 15:28:41 Larry, o Link já esta funcionando. Muito obrigado pelo feedback. Larry 17/03/2018 15:21:20 Não consigo aceder ao ficheiro. Dá para verificar o link? Muito obrigado pela atenção |
