Avviare Microsoft Office Access 2010 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare " Modulo ".
2
Premere " Ctrl" e "A" e premere il tasto "Cancella" per cancellare tutto il codice esistente.
3
Copia e incolla il codice sottostante nel tuo modulo . La subroutine crea una nuova tabella , aggiungere record ad esso e quindi eseguire query su più campi . La query produrrà più valori per quei campi e visualizzarli attraverso una finestra di messaggio .
AccessMultipleQueryValues Private Sub ()
Dim dbs As Database Dim rst
come Recordset
Dim strSQL As String
Dim X As Integer
Set dbs = CurrentDb
strSQL = " CREATE TABLE multipleValues ( Campo1 TESTO , TESTO Campo2 , Field3 TESTO ) , "
DoCmd.RunSQL ( strSQL ) per
strSQL =" INSERT INTO multipleValues ( Campo1, Campo2 , Field3 ) "
strSQL = strSQL &" VALUES ( ' field1Data fila 1 ',' field2Data fila 1 ',' field3Data riga 1 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL
strSQL = ( strSQL ) " INSERT INTO multipleValues ( Campo1, Campo2 , Field3 ) "
strSQL = strSQL &" VALUES (' field1Data riga 2 ', ' field2Data riga 2 ', ' field3Data riga 2 '); "
DoCmd . SetWarnings False
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO multipleValues ( Campo1, Campo2 , Field3 ) "
strSQL = strSQL & " VALUES (' field1Data fila 3 ',' field2Data riga 3 ',' field3Data fila 3 ') ; "
DoCmd.SetWarnings falsi
DoCmd.RunSQL ( strSQL )
strSQL = " Seleziona multipleValues . * da multipleValues "
strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data fila 2 '; "
Set rst = dbs.OpenRecordset ( strSQL ) per
RST . MoveLast
rst.MoveFirst
For X = 0 To rst.RecordCount - 1
MsgBox " Campo1 dati: " . & rst.Fields ( 0 ) Value & " , Campo2 dati: " . _
& rst.Fields ( 1 ) Value & " , Campo3 dati: . "& rst.Fields ( 2) Valore
rst.MoveNext
Avanti X
rst.Close
dbs.Close
End Sub
4
Premere " F5 " per eseguire la subroutine .
Programmazione © www.354353.com