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

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

1 Ανοίξτε το Microsoft Office Access , κάντε κλικ στην επιλογή "Blank Database , " και στη συνέχεια επιλέξτε "Δημιουργία . " Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο "Εισαγωγή " πεδίο και επιλέξτε 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο νέο module σας " Ενότητα ". :

Private Sub runSelectQuery ( )

Dim db Όπως Database

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

Dim strSQL Όπως String Dim

Xcntr As Integer

Set db = CurrentDb

strSQL = " CREATE TABLE selectQueryData ( ΑΡΙΘΜΟΣ NumField , Tenant ΚΕΙΜΕΝΟ , Apt ΚΕΙΜΕΝΟ ) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 1 , « Ιωάννης » , « Α ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 2 , « Σούζι » , « Β ») ? "

DoCmd . SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 3 ' Luis ',' C ') ? ".

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " Επιλέξτε selectQueryData * από selectQueryData "

strSQL = strSQL & "WHERE selectQueryData.Tenant = ' Luis ' ? "

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Για Xcntr = 0 Για να rcrdSet.RecordCount - 1

MsgBox " Tenant : " & rcrdSet.Fields ( " Tenant " ) Value & " Ζει σε apt : " & _ <. br >

rcrdSet.Fields ( " Apt ») . Value

rcrdSet.MoveNext

Επόμενο Xcntr

rcrdSet.Close

db.Close

End Sub
εικόνων 3

Πατήστε το " F5 " για να εκτελέσετε υπορουτίνα σας . Το πρόγραμμα θα δημιουργήσει έναν πίνακα , εισαγάγετε τα δεδομένα στο τραπέζι και να χρησιμοποιήσετε ένα ερώτημα επιλογής για την εμφάνιση δεδομένων για μια συγκεκριμένη σειρά .
Η
εικόνων