Πώς να ελέγξετε Access 2007 Αν Ερώτημα Υπάρχει

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

Κατεβάστε τη βάση δεδομένων της Microsoft Northwind 2007 ( βλέπε Πόρων ) . Ανοίξτε τη βάση δεδομένων , επιλέξτε " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο μενού "Εισαγωγή " και " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει μια διαδικασία : .

Public Sub doesQueryExist ( )
< p> Πατήστε " . Enter"
εικόνων 3

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

Δημ. dbs Όπως Database

Dim qryItem Όπως QueryDef

Dim qryFound Όπως Boolean

Dim qryName Όπως String
Η 4

Πληκτρολογήστε το παρακάτω, για να ορίσετε το όνομα του ερωτήματος που ψάχνετε :

qryName = " Απογραφή "

Edit " Απογραφή " και πληκτρολογήστε το όνομα του ερωτήματός σας
5

Πληκτρολογήστε το παρακάτω, για να καθορίσει τη βάση δεδομένων για χρήση : .
< p > Set dbs = CurrentDb
Η 6

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

για Κάθε qryItem σε dbs.QueryDefs

Αν qryItem.Name = qryName τότε

qryFound = True

End If

Επόμενο
Η 7

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

Εάν qryFound = True τότε

MsgBox qryName & "υπάρχει το ερώτημα . "

Else < br >

MsgBox qryName & " το ερώτημα δεν υπάρχει . "