λογισμικό

* Γνώση Υπολογιστών >> λογισμικό >> λογισμικού βάσεων δεδομένων

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

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

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε το "Microsoft Office ", " Visual Basic for Applications ( VBA ) " . 2

Κάντε κλικ στο " Άνοιγμα " και επιλέξτε τον έλεγχο VBA της έκθεσης για την οποία θέλετε να αλλάξετε τη σειρά ταξινόμησης εικόνων
3

Προσθέστε τον ακόλουθο κώδικα μετά την . " γραμμή CurrentDb.Execute strSQL " στο ερώτημά σας VBA :

On Error GoTo err_handler

Dim strSQL Όπως String

strSQL = "SELECT sbqryAdmitDeals.lt_name " & _

" sbqryAdmitDeals.FullName , sbqryAdmitDeals.RoleLeadFK " & CDate ( Format ( Now ( ) , " Σύντομη ημερομηνία " ) ) - [ RepRecd ] AS Μέρες , 2 AS ΚωδΠαραγγελίας

" ΣΕ " [ Μεταβλητή Όνομα σας ] Ξενοδοχεία

" ΑΠΟ sbqryAdmitDeals "

"WHERE sbqryAdmitDeals.RoleLeadFK ) = "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL strSQL

DoCmd.SetWarnings True

ExitMySubName :

Exit Sub

err_handler :

DoCmd.SetWarnings True

MsgBox Err.Description , vbExclamation , " Αριθμός σφάλματος : " & Err.Number

Resume ExitMySubName

End Sub
Η

4 Κάντε κλικ στην εντολή " Query Wizard" στην κορδέλα Access.
5

Εισάγετε τον ακόλουθο ερώτημα στο πεδίο κειμένου :

SELECT sbqryAdmitDeals.lt_name CDate ( Format ( Now ( ) , " Σύντομη ημερομηνία " ) - [ RepRecd ] AS Μέρες , 2 AS ΚωδΠαραγγελίας σΕ mtblFSRcvd

ΑΠΟ sbqryAdmitDeals

WHERE ( ( sbqryAdmitDeals.RoleLeadFK ) = [ Forms] [ frmReports ] [ cboPrimaryContact ] ! ) ?
Η

6 Κάντε κλικ στο κουμπί " Run" για να εκτελέσετε το ερώτημα σχετικά με την πρόσβαση σας 2007 βάση δεδομένων χρησιμοποιώντας το χειριστήριο VBA .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα