1
Inicio Microsoft Office Access 2010 y seleccione "Base de datos en blanco ", y luego haga clic en " Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic ". Haga clic en el campo " Insertar" y seleccione " Módulo ".
2
Presione " Ctrl" y " A" y pulse "Delete " para borrar todo el código existente.
3
Copia y pega el código de abajo en su módulo. El subprograma se creará una nueva tabla, agregar registros a él y luego consultar varios campos. La consulta se emitirá varios valores para esos campos y los muestra a través de un cuadro de mensaje.
AccessMultipleQueryValues Private Sub ( ) guía
Dim dbs como base de datos
primer As Recordset
strSQL As String Dim
Dim X As Integer
Set dbs = CurrentDb
strSQL = " CREATE TABLE multipleValues ( Campo1 TEXT, campo2 TEXT, Field3 TEXTO ) ; "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( campo1 , campo2 , Field3 ) "
strSQL = strSQL &" VALUES ( ' fila field1Data 1 ',' field2Data fila 1 ',' field3Data fila 1 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( campo1 , campo2 , Field3 ) "
strSQL = strSQL &" VALUES ( ' fila field1Data 2 ', ' field2Data fila 2 ', ' field3Data fila 2 '); "
DoCmd . EstablecerAdvertencias False
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO multipleValues ( campo1 , campo2 , Field3 ) "
strSQL = strSQL & " VALUES ( ' fila field1Data 3 ',' field2Data fila 3 ',' field3Data fila 3 '); "
DoCmd.SetWarnings falsas
DoCmd.RunSQL ( strSQL )
strSQL = " Seleccionar multipleValues . * de multipleValues "
strSQL = strSQL &" DONDE multipleValues.Field1 = ' field1Data fila 2 " ; "
Set rst = dbs.OpenRecordset ( strSQL )
primera . MoveLast
rst.MoveFirst
Para X = 0 Para rst.RecordCount - 1
MsgBox " Campo1 de datos: " . y rst.Fields ( 0 ) y Valor " , Field2 de datos: " . _
y rst.Fields ( 1 ) Valor &", Campo3 datos: . " y rst.Fields ( 2 ) Valor
rst.MoveNext
< p> Siguiente X
rst.Close
dbs.Close
End Sub
4
Press "F5 " para ejecutar la subrutina .