Πώς να αποκτήσετε πρόσβαση σε VBA ερώτημα διαγραφής

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

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε έναν νέο πίνακα , προσθέστε δύο αρχεία και να διαγράψετε το αρχείο , όπου το "Street " ισούται με " Main ".

Private Sub deleteQuery ( )

Dim sqlStr Όπως String

sqlStr = " CREATE TABLE addressTbl ( HouseNumber TEXT ( 25 ) , Οδός TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( sqlStr )

sqlStr = " INSERT INTO addressTbl ( [ HouseNumber ] , [ Οδός ] ) "

sqlStr = sqlStr & " ΑΞΙΕΣ ( '2541 ',' Lancaster ' ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sqlStr )

sqlStr = " INSERT INTO addressTbl ( [ HouseNumber ] , [ Οδός ] ) "

sqlStr = sqlStr & " ΑΞΙΕΣ ( '2458 ',' Κύριο ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sqlStr )

sqlStr = " Διαγραφή addressTbl.HouseNumber , addressTbl.Street "

sqlStr = sqlStr & "ΑΠΟ addressTbl "

sqlStr = sqlStr & "WHERE ( ( ( addressTbl.Street ) = « Κύριος » ) ) ? ".

DoCmd.RunSQL ( sqlStr )

End Sub
εικόνων 3

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


εικόνων