Πώς να ρυθμίσετε την αξία του ειδικού εγγραφής στην Access Visual Basic

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

1

Επιλέξτε " Εργαλεία βάσης δεδομένων . " Κάντε κλικ στο " Visual Basic" για να ανοίξετε το παράθυρο "Microsoft Visual Basic" .

Δημιουργήστε ένα νέο sub πληκτρολογώντας " Private Sub editRecordSet ( ) " και πατώντας το πλήκτρο " Enter". 2

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

Dim sqlStr Όπως String

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

Dim dbs Όπως Database

Set dbs = CurrentDb
εικόνων 3

Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε έναν νέο πίνακα :

sQLString = " CREATE TABLE editRecord ( F_Name ΚΕΙΜΕΝΟ , L_Name ΚΕΙΜΕΝΟ ) "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sQLString )
Η 4

Πληκτρολογήστε το παρακάτω για να προσθέσετε τρία αρχεία με τα δεδομένα στον πίνακα :

strSQL = " INSERT ΣΕ editRecord ΑΞΙΕΣ ( « SEBASTIAN » , « Puga ')"

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO editRecord ΑΞΙΕΣ ( « ΜΑΡΙΑ » , « GONZALEZ ') "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO editRecord ΑΞΙΕΣ ( « JOHN » , « LOPEZ ') "

DoCmd.RunSQL ( strSQL )

5

Πληκτρολογήστε την ακόλουθη ερώτημα για τον πίνακα και να επιστρέψει όλες τις εγγραφές : ( " . SELECT * FROM editRecord editRecord " )

Set RST = dbs.OpenRecordset
Η 6

Πληκτρολογήστε τα ακόλουθα για να κινηθεί προς τον αριθμό ρεκόρ των τριών και να ενημερώσετε το πεδίο " F_Name " στο " JUAN " :

Set RST = dbs.OpenRecordset ( " . SELECT * FROM editRecord editRecord " )

ΤΥ . Μετακίνηση ( 2 )

rst.Edit

rst.Fields ( " F_Name " ) . Value = " JUAN "

rst.Update
Η 7

Πληκτρολογήστε το παρακάτω, για να κλείσει το σετ εγγραφής και αφήστε το " dbs " μεταβλητή από τη μνήμη :

rst.Close

Set dbs = Τίποτα

Πατήστε το " F5 " να εκτελέσει νέα υπορουτίνα σας.
Η
εικόνων