Πώς να ενημερώσετε ένα ερώτημα στην Access VBA

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

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα σας :

Private Sub updateQuery ( )

Dim db Όπως Database

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

Dim sQLString Όπως String Dim

rstCnt As Integer

Set db = CurrentDb

sQLString = " CREATE TABLE tableToUpdate ( πρώτο κείμενο , Τελευταία ΚΕΙΜΕΝΟ ) "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sQLString )

strSQL = " INSERT INTO ΑΞΙΕΣ tableToUpdate ( «Όσκαρ », « Gonzalez ')"

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO ΑΞΙΕΣ tableToUpdate ( « Kitzia ', ' Ramos ') "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tableToUpdate ΑΞΙΕΣ ( « Ιωάννης » , « Smith ') "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tableToUpdate ΑΞΙΕΣ ( « Άννα » , «Williams ')"

DoCmd.RunSQL ( strSQL )

Set RST = db.OpenRecordset ( "SELECT * FROM tableToUpdate tableToUpdate ? . " )

rst.MoveLast

rst.MoveFirst

Για rstCnt = 0 Για να rst.RecordCount - . 1

Αν rst.Fields ( 0 ) Value = " Oscar "Τότε

rst.Edit

rst.Fields ( 0 ) . Value = " Emilio "

rst.Update

End If

rst.MoveNext

Επόμενο rstCnt

End Sub
εικόνων 3

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