Hur att mata ut flera värden från en Access-frågan

Att lära sig att mata flera värden från fråga kan göra din dator ansökan mer dynamisk . Ett program du kan använda för att söka en databas tabell är Microsoft Office Access . Access är en relationsdatabas management system används ofta för små lokala databaser . Visual Basic for Applications är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . En fråga används för att hämta information från en databastabell. Instruktioner
1

Starta Microsoft Office Access 2010 och välj " Tom databas , " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " Modul . "
2

Tryck " Ctrl " och " A " och tryck på " Delete " för att radera all befintlig kod .
3

Kopiera och klistra in koden nedan i din modul . Subrutinen kommer att skapa en ny tabell , lägga till poster till den och sedan fråga flera fält . Frågan kommer att mata flera värden för dessa fält och visa dem genom en meddelanderuta .

Private Sub accessMultipleQueryValues ​​( ) katalog

Dim dbs Som Database

Dim rst Som Recordset

Dim strSQL As String

Dim x As Integer

Set dbs = CurrentDb

strSQL = "skapa bord multipleValues ​​( Fält1 TEXT , Fält2 TEXT , Field3 TEXT ) , "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO multipleValues ​​( Fält1 , Fält2 , Field3 ) "

strSQL = strSQL & " VALUES ( ' field1Data rad 1 ' , ' field2Data raden 1 ' , ' field3Data raden 1 ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO multipleValues ​​( Fält1 , Fält2 , Field3 ) "

strSQL = strSQL & " VALUES ( ' field1Data rad 2 ' , ' field2Data rad 2 ' , ' field3Data rad 2 ' ) ; "

DoCmd . SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO multipleValues ​​( Fält1 , Fält2 , Field3 ) "

strSQL = strSQL & " VALUES ( ' field1Data rad 3 ' , ' field2Data rad 3 ' , ' field3Data rad 3 ' ); "

DoCmd.SetWarnings Falska

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " Select multipleValues . * från multipleValues ​​"

strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data rad 2 ", "

Set rst = dbs.OpenRecordset ( strSQL ) katalog

RST . MoveLast

rst.MoveFirst

För X = 0 att rst.RecordCount - 1

MsgBox " fält1 Data : " . & rst.Fields ( 0 ) Value & " , fält2 Uppgifter : " . _

& rst.Fields ( 1 ) Value & " , Field3 Data : . " & rst.Fields ( 2 ) Värde

rst.MoveNext

Nästa X Review

rst.Close

dbs.Close

End Sub
4

Tryck " F5 " för att köra din subrutin .
Addera ditt