Πώς να αποκτήσετε πρόσβαση Records Count στο Query

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

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

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

Private Sub getRecordCnt ( )

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

Dim db Όπως Database

Dim SQLstr Όπως String

SQLstr = " CREATE TABLE CityInfo (Πόλη TEXT ( 25 ) , μέλος TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CityInfo ( [ Πόλη ] , [του κράτους ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( Arlington »,« Τέξας » ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CityInfo ( [ Πόλη ] , [του κράτους ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( « Βατάουγκας ',' Texas ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = "SELECT * FROM CityInfo CityInfo ? . "

Set RST = db.OpenRecordset ( SQLstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
εικόνων 3

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