Πώς να χρησιμοποιήσετε μεταβλητές στην Access Έρευνα

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

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα λειτουργική μονάδα σας να χρησιμοποιήσετε " Προμηθευτή Α» ως μια μεταβλητή σε ένα ερώτημα επιλογής και θέα το πρώτο όνομα και το επώνυμο « Προμηθευτής Α" :

Private Sub userQueryVariables ( )

Dim strSQL Όπως String

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

Dim dbs Όπως Database

Dim προμηθευτή As String

προμηθευτή = " Προμηθευτής Α"

Set dbs = CurrentDb

strSQL = "SELECT Suppliers.Company , προμηθευτές . [ Επώνυμο ] , προμηθευτές . [ Όνομα ] "

strSQL = strSQL & " ΑΠΟ προμηθευτές "

strSQL = strSQL & " WHERE ( ( ( Suppliers.Company ) = " & (προμηθευτής ) & " " ) ) ? "

Set RST = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Debug . Εκτύπωση (προμηθευτής & " Πληροφορίες : " )

Do While Not rst.EOF

Debug.Print ( " Όνομα : " . & rst.Fields ( 2 ) Value)

Debug.Print ( « Επώνυμο : " . & rst.Fields ( 1 ) Value)

rst.MoveNext

Loop

End Sub

4

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας .
Η
εικόνων