Executar Consulta Usando VBA Access

Para executar uma consulta através do VBA do Access você deve fazer o seguinte:

Suponha que você tenha uma tabela chamada "Employees" e deseje deletar todos os dados dessa tabela. O SQL para executar tal procedimento seria: "DELETE * FROM Employees". Para inserir esse SQL no VBA use o "Docmd.RunSQL" (sem as aspas).

Para o nosso exemplo, um resultado válido seria:

Public Sub deletaEmployees()
DoCmd.RunSQL "Delete * from Employees"
End Sub

Nesse caso, foi a função foi usada dentro de um módulo, mas também poderia ter sido usada em um formulário, botão, relatório, enfim...

Para deixar mais claro, uma consulta para inserir o funcionário "Caio" na tabela "Employees" seria desse jeito no VBA:

Public Sub insereEmployee()
DoCmd.RunSQL "INSERT INTO Employees ( Nome ) SELECT 'Caio' AS NovoEmployee FROM Employees;"
End Sub

Esse código VBA insere um novo funcionário na tabela, como qualquer consulta Acréscimo faria.

O resto é criatividade.


Nome do Autor

Sobre o autor

Flávio Santos é o editor-chefe do Tecla Ti. Vice campeão de todas as Américas em Tecnologia da Informação pela Worldskills Americas. Especialista Microsoft Office, programador VBA, C, JAVA, PHP e desenvolvedor de aplicações. Leia Mais sobre o autor >>>

2 comentários:

Cara, esse código seu não esta funcionando corretamente, esta faltando argumentos nas sua função.

Bem, eu verifiquei o código baseado no exemplo que fiz e Sim, o código está funcionando.

Vale salientar que esse código funciona para esse exemplo, em outros casos, a usualidade será diferente, o que é lógico.

Mas se ainda assim você continua achando que está errado, recomendo que você faça o exemplo exatamente como está escrito. Porém se ainda persistir o erro, pergunte aí que tentamos ajudar da melhor maneira possível.

Postar um comentário