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


Registros afetados por Consultas de Ação

Para obter o número de registros afetados por Consultas de Ação, utiliza-se a propriedade RecordsAffected do método CurrentDb.  No entanto, para que funcione, é preciso passar o método CurrentDb para uma variável.  Veja como fica o código:

Dim bd As DAO.Database
'Passando o método para a variável bd
Set bd = CurrentDb
'Executando a consulta de Exclusão
bd.execute "DELETE * FROM tblOS WHERE year(DataAbertura) < year(date)-7"
'Informando a quantidade de registros excluídos
MsgBox "Foram excluídos " & bd.RecordsAffected & " registros...", _ 
vbInformation, "Aviso"

Bom estudo!


 

 


Não há comentário

Envie seu comentário: