Πώς να σώσει μια VBA ερωτήματος σχετικά με την πρόσβαση

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

1 Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " στην Microsoft Access 2007 και επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " Ενότητα " για να δημιουργήσετε " Module1 . " 2

Τύπος " Public Sub myVBAQuery " και πατήστε το πλήκτρο " Enter" για να δημιουργήσετε μια νέα υπορουτίνα .

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

Dim strSQL Όπως String Dim

dbs Όπως Database

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

Dim rstCnt As Integer

Η 3

Πληκτρολογήστε το παρακάτω, για να καθορίσει το ερώτημά σας και ανοίξτε το Recordset :

Set dbs = CurrentDb

strSQL = " . Πίνακας 1 SELECT * FROM Table1 ? "

Set RST = dbs.OpenRecordset ( strSQL )
Η 4

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

rst.MoveFirst

Για rstCnt = 0 Για να rst.RecordCount

MsgBox rst.Fields ( 1 ) . Value

rst.MoveNext

Επόμενη rstCnt

Πατήστε το πλήκτρο " Ctrl + S" για να αποθηκεύσετε υπορουτίνα σας στο " Module1 " και θα είναι διαθέσιμο για να το χρησιμοποιήσετε στο μέλλον .
Η
εικόνων