Cómo actualizar una consulta en Access VBA

Conocer cómo actualizar los datos de una consulta en Microsoft Office Access utilizando Visual Basic para Aplicaciones ( VBA) que puede ahorrar tiempo en que es necesario actualizar continuamente los datos de las tablas . El acceso es un sistema de gestión de base de datos relacional utilizada para bases de datos locales más pequeños . Una consulta se utiliza para ver los datos en una tabla de base de datos. VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias en Access . Instrucciones
1

Inicio Microsoft Office Access , seleccione " Herramientas de base de datos " y haga clic en "Visual Basic ". Seleccione el menú "Insertar " y luego haga clic en " módulos".
2

Copia y pega el siguiente código en el módulo:

UpdateQuery Sub Private ()

db As Database

rst As Recordset

SQLString dévil como secuencia

rstCnt Dim As Integer

Set db = CurrentDb

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )

strsql = "INSERT INTO VALORES tableToUpdate ( 'Oscar ', ' González ') "

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO VALORES tableToUpdate ( ' Kitzia "," Ramos " ) "

DoCmd.RunSQL ( strsql )

strsql = "INSERT INTO VALORES tableToUpdate ( 'John ', ' Smith ')"

DoCmd.RunSQL ( strsql )

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

DoCmd.RunSQL ( strsql )

Set rst = db.OpenRecordset ( " SELECT * FROM tableToUpdate tableToUpdate ; ").

rst.MoveLast

rst.MoveFirst

Para rstCnt = 0 Para rst.RecordCount - 1

Si rst.Fields ( 0 ) Value = " . Oscar " Entonces

rst.Edit

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

rst.Update

End If
rst.MoveNext

Siguiente rstCnt

End Sub
3

Press "F5 " para ejecutar la subrutina " UpdateQuery " . La subrutina crea una nueva tabla, inserta nuevas filas de datos , consultas de la tabla creada y actualiza el primer campo.