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 .