Cómo acceder y ejecutar una consulta de selección en VBA

Microsoft Office Access permite a los programadores utilizar Visual Basic para Aplicaciones ( VBA ) para crear aplicaciones de Access . VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias en las aplicaciones de Microsoft Office. El acceso es un sistema de base de datos relacional de uso común para las bases de datos más pequeñas. Una consulta de selección se utiliza para recuperar datos de una tabla de base de datos . Un conjunto de registros se utiliza para leer el contenido devuelto por la consulta de selección . En pocos pasos se puede escribir código VBA para crear una mesa y ver su contenido a través de una consulta de selección . Instrucciones
1

Abra Microsoft Office Access , haga clic en "Base de datos en blanco ", y luego seleccione " Crear". Haga clic en " Herramientas de base de datos ", a continuación, seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
2

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

runSelectQuery Sub Private ()

db As Database

rcrdSet As Recordset

strSQL As String Dim

Xcntr Dim As Integer

Set db = CurrentDb

strSQL = " CREATE TABLE selectQueryData (NÚMERO numCampo , TEXTO Inquilino , TEXTO Apt ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( numCampo , Tenant , Apt ) "

strSQL = strSQL & " VALUES ( 1 , 'John ', ' A') ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( numCampo , Tenant , Apt ) "

strSQL = strSQL & " VALUES ( 2 , ' Susie ' , 'b' ) ; "

DoCmd . EstablecerAdvertencias False

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO selectQueryData ( numCampo , Tenant , Apt ) "

strSQL = strSQL & " VALUES ( 3 , ' Luis ',' C '); ".

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " Select * de selectQueryData selectQueryData "

strSQL = strSQL & " DONDE selectQueryData.Tenant = ' Luis ' , "

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Para Xcntr = 0 Para rcrdSet.RecordCount - 1

MsgBox " Inquilino :" & rcrdSet.Fields ( " Tenant ") y Valor " , vive en el apartamento :" & _ < . br>

rcrdSet.Fields ( " Apt ") . Valor

rcrdSet.MoveNext

Siguiente Xcntr

rcrdSet.Close

db.Close

End Sub
3

Press "F5 " para ejecutar la subrutina . El programa creará una tabla, insertar datos en la tabla y utilizar una consulta de selección para mostrar los datos de una fila en particular .