Πώς να διαβάσετε μια τιμή από ένα ερώτημα σε MS Access 2007

Ένα αντικείμενο εγγραφών μπορεί να είναι ένα ισχυρό εργαλείο για χρήση σε Microsoft Office Access , όταν θα πρέπει να υποβάλει ερώτημα σε έναν πίνακα χρησιμοποιώντας τη Visual Basic for Applications ( VBA ) . Ο πιο γρήγορος τρόπος για να ανακτήσετε μια τιμή από ένα ερώτημα είναι με τη χρήση VBA . Στην VBA μπορείτε να χρησιμοποιήσετε το αντικείμενο να υποβάλει ερώτημα σε έναν πίνακα σε μια βάση δεδομένων και να ανακτήσετε τις τιμές που αποθηκεύονται στον πίνακα . Ένα αντικείμενο εγγραφών χρησιμοποιείται για να χειριστεί τα δεδομένα σε μια βάση δεδομένων σε επίπεδο ρεκόρ . Τα πράγματα που θα χρειαστείτε
δεδομένων Northwind
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind και κάντε κλικ στο " Εργαλεία βάσης δεδομένων " καρτέλα . . 2
Κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor Window

Ξεκινήστε πληκτρολογώντας τον παρακάτω κώδικα για να δημιουργήσετε ένα νέο υποδιαδικασία :

Private Sub readQueryValue ( )

με 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA για να δηλώσετε τις μεταβλητές για να χρησιμοποιήσετε για να διαβάσετε ένα ερώτημα :

Dim nwDBS Όπως Database

Dim nwRST Όπως εγγραφών

Dim nwSQL As String

Set nwDBS = CurrentDb
Η 4

Δημιουργήστε ένα ερώτημα SQL πληκτρολογώντας τον ακόλουθο κώδικα : .

nwSQL = "SELECT Υπαλλήλων [ Τελευταία Όνομα ] , εργαζόμενοι [ Όνομα ] "

nwSQL = nwSQL & " FROM Υπάλληλοι ? "
5

Ανοίξτε ένα νέο εγγραφών χρησιμοποιώντας το ερώτημα SQL που δημιουργήθηκε στο προηγούμενο βήμα . :

Set nwRST = nwDBS.OpenRecordset ( nwSQL )
Η 6

Μετακινήστε το Recordset στην πρώτη γραμμή των αποτελεσμάτων ερωτήματος και στη συνέχεια μετακινήστε το Recordset υποβάλει δύο φορές για να διαβάσετε το " Επώνυμο " της τρίτης σειράς , πληκτρολογώντας τον ακόλουθο κώδικα :

nwRST.MoveFirst

nwRST.MoveNext

nwRST.MoveNext

Debug.Print nwRST.Fields . ( " [ Επώνυμο ] " ) Αξία
Σελίδα 7

Ολοκληρώστε τη διαδικασία, πληκτρολογώντας τον ακόλουθο κώδικα :

nwRST.Close

nwDBS.Close

End Sub
8

Πατήστε το πλήκτρο " Ctrl " και " G" για να ανοίξετε το παράθυρο άμεσης παρακολούθησης . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας και να δείτε τα αποτελέσματα μέσω της άμεσης παράθυρο .
Η
εικόνων