Saber como atualizar dados em uma consulta no Microsoft Office Access usando o Visual Basic for Applications (VBA ) você pode economizar tempo quando você precisa atualizar continuamente os dados em tabelas. Access é um sistema de gerenciamento de banco de dados relacional comumente usado para bancos de dados locais menores. Uma consulta é usada para exibir dados em uma tabela de banco de dados . VBA é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina no Access. Instruções
1

Comece Microsoft Office Access , selecione "Ferramentas de banco de dados " e clique em "Visual Basic". Selecione o menu " Inserir", clique em " . Module"
2

Copie e cole o seguinte código em seu módulo :

Sub UpdateQuery Privado ( )

Dim db As Database

Dim rst Como Recordset

Dim SQLString As String Dim

rstCnt As Integer

Set db = CurrentDb

SQLString = "CREATE TABLE tableToUpdate ( primeiro texto , último texto ) "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( SQLString )

strsql = " INSERT INTO VALUES tableToUpdate ( ' Oscar ', ' Gonzalez ') "

DoCmd.RunSQL ( strsql )

strsql =" INSERT INTO VALUES tableToUpdate ( ' kitzia ', ' Ramos ) "

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO VALUES tableToUpdate (' João ', ' Smith ')"

DoCmd.RunSQL ( strsql )

strsql = " VALORES INSERT INTO tableToUpdate ( 'Anna ', ' Williams ) "

DoCmd.RunSQL ( strsql )

Set rst = DB.OpenRecordSet ( " SELECT * FROM tableToUpdate tableToUpdate ; ").

rst.MoveLast

rst.MoveFirst

Para rstCnt = 0 To rst.RecordCount - . 1

Se rst.Fields (0) Valor = " Oscar "Então

rst.Edit

rst.Fields (0). Value =" Emilio "

rst.Update

End If

rst.MoveNext

Próxima rstCnt

End Sub
3

Pressione " F5" para executar a sub-rotina " UpdateQuery " . A sub-rotina cria uma nova tabela , insere novas linhas de dados , consulta a tabela criada e atualiza o primeiro campo.