Cómo actualizar una consulta en Access VBA

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

Instrucciones

1 Inicie Microsoft Office Access, seleccione "Herramientas de base de datos" y haga clic en "Visual Basic". Seleccione el menú "Insertar", a continuación, haga clic en "módulos".

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

Private Sub updateQuery ()

Dim db Como Base de Datos

Dim primera medida de registros

Dim como secuencia sqlString

Dim rstCnt como número entero

Set db = CurrentDb

sqlString = "CREATE tableToUpdate TABLA (primer texto, del último texto)"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlString)

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

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)

Establecer primera db.OpenRecordset = ( "SELECT * FROM tableToUpdate tableToUpdate;").

rst.MoveLast

rst.MoveFirst

Para rstCnt = 0 Para rst.RecordCount - 1

If rst.Fields(0).Value = "Oscar" Then

rst.Edit

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

rst.Update

Terminara si

rst.MoveNext

Siguiente rstCnt

End Sub

3 Pulse la tecla "F5" para ejecutar la subrutina "updateQuery". La subrutina crea una nueva tabla, inserta nuevas filas de datos, consulta la tabla creada y actualiza el primer campo.