Πώς να αποκτήσετε πρόσβαση Ερώτημα Null Επιχείρημα VBA

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

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

Πατήστε το " Ctrl + A" και πιέστε " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα . Ο κωδικός θα εμφανιστεί ένα μήνυμα με τον αριθμό του προϊόντος , όπου η περιγραφή είναι NULL .

Option Compare Database

Private Sub queryNULLfield ( )

Dim strSQL As String

Dim dbs Όπως Database

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

Set dbs = CurrentDb

strSQL = " CREATE TABLE ΠΡΟΪΟΝΤΩΝ ( αριθμός προϊόντος , Περιγραφή TEXT) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO ΠΡΟΪΟΝΤΩΝ (Προϊόν , Περιγραφή ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 1 , 'Car' ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO ΠΡΟΪΟΝΤΩΝ (Προϊόν , Περιγραφή ) "

strSQL = strSQL & ? " ΑΞΙΕΣ ( 2 , NULL) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO ΠΡΟΪΟΝΤΩΝ (Προϊόν , Περιγραφή ) "

strSQL = strSQL & " ΑΞΙΕΣ ( 3 , « COMPUTER ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

SQLstr = "SELECT PRODUCT.Product , PRODUCT.Description "

SQLstr = SQLstr & " ΑΠΟ Προϊόν"

SQLstr = SQLstr & "WHERE ( ( ( PRODUCT.Description ) Is Null ) ) ? "

Set RST = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

MsgBox" Η περιγραφή για το προϊόν " & ? . rst.Fields ( 0 ) Value & " είναι NULL . "

rst.Close

dbs.Close

End Sub
Η

Η