Ξεκινήστε το Microsoft Office Access 2010 και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα ". 2
Πατήστε το " Ctrl " και "A " και πιέστε " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .
Εικόνων 3
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη μονάδα σας . Η υπορουτίνα θα δημιουργήσετε έναν νέο πίνακα , προσθέστε τα αρχεία σε αυτό και στη συνέχεια το ερώτημα πολλά πεδία . Το ερώτημα θα εξόδου πολλαπλές τιμές για τους τομείς αυτούς και να τους προβάλλουμε μέσα από ένα πλαίσιο μηνύματος .
Private Sub accessMultipleQueryValues ( )
Dim dbs Όπως Database
Dim rst Όπως εγγραφών
Dim strSQL Όπως String Dim
X As Integer
Set dbs = CurrentDb
strSQL = " CREATE TABLE multipleValues ( Πεδίο1 ΚΕΙΜΕΝΟ , Field2 ΚΕΙΜΕΝΟ , Πεδίο3 ΚΕΙΜΕΝΟ ) ? "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "
strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data σειρά 1 »,« γραμμή field2Data 1 »,« γραμμή field3Data 1 ') ? "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "
strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data γραμμή 2 », « field2Data γραμμή 2 », « γραμμή field3Data 2 ') ? "
DoCmd . SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO multipleValues ( Πεδίο1 , Πεδίο2 , Πεδίο3 ) "
strSQL = strSQL & " ΑΞΙΕΣ ( « field1Data σειρά 3 »,« γραμμή field2Data 3 »,« γραμμή field3Data 3 ') ? "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
strSQL = " Επιλέξτε multipleValues . * από multipleValues "
strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data γραμμή 2 ' ? "
Set RST = dbs.OpenRecordset ( strSQL )
ΤΥ . MoveLast
rst.MoveFirst
Για Χ = 0 Για να rst.RecordCount - 1
MsgBox " Field1 δεδομένων : " . & rst.Fields ( 0 ) Value & " , Field2 δεδομένων : " . _
& rst.Fields ( 1 ) Value & " , Πεδίο3 δεδομένων : . " & rst.Fields ( 2 ) Αξία
rst.MoveNext
Επόμενο X
rst.Close
dbs.Close
End Sub
Η
4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας .
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα