Cómo guardar una consulta de VBA de Acceso

Conocer cómo guardar una consulta utilizando Visual Basic para aplicaciones en Microsoft Access le puede ahorrar tiempo al crear varias consultas. Access es una aplicación de base de datos relacional se utiliza principalmente para las pequeñas bases de datos locales . VBA fue desarrollado por Microsoft y se utiliza comúnmente para automatizar tareas rutinarias dentro de las aplicaciones de Microsoft Office. En Access , una consulta VBA se utiliza para abrir una mesa o mesas de acceder a sus datos para su posterior manipulación. Instrucciones
1

Haga clic en " Herramientas " en la base de datos Microsoft Access 2007 y seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el menú " Insertar" y seleccione " módulo" para crear " Module1 ".
2

Type " myVBAQuery Sub Public " y presionar "Enter " para crear un nuevo subprograma.

escriba lo siguiente para declarar las variables :

strSQL As String Dim

Dim dbs como base de datos

rst As Recordset

rstCnt Dim As Integer

3

Escriba lo siguiente para definir la consulta y abrir el conjunto de registros :

Set dbs = CurrentDb

strSQL = " . Tabla1 SELECT * FROM Tabla1 ; "

Set rst = dbs.OpenRecordset ( strSQL )
4

Escriba lo siguiente para recorrer el conjunto de registros a mostrar los datos almacenados en el campo " 1 " en la tabla :
< p> rst.MoveFirst

Para rstCnt = 0 Para rst.RecordCount

MsgBox rst.Fields ( 1 ) . Valor

rst.MoveNext

Siguiente rstCnt

Presione " Ctrl + S " para guardar la subrutina en "Module 1 " y estará disponible para su uso en el futuro.