Πώς να συμπλήρωση ενός πεδίου σε VB Access

εφαρμογή της Access σας θα είναι πιο εύκολο στη χρήση , αν συμπληρωθούν αυτόματα τα πεδία σε έναν πίνακα , όταν ξέρετε τα δεδομένα που πηγαίνει σε αυτά . Αυτό μπορεί να επιτευχθεί με τη χρήση της Visual Basic for Applications . Μπορείτε να χρησιμοποιήσετε το αντικείμενο Recordset για να ανοίξετε τον πίνακα της βάσης δεδομένων και να συμπληρώσετε οποιοδήποτε πεδίο του πίνακα . Η μέθοδος AddNew χρησιμοποιείται για να δημιουργήσει ένα νέο ρεκόρ στο αντικείμενο Recordset και η μέθοδος Update αποθηκεύει τις αλλαγές που έγιναν στο αρχείο . Οδηγίες
Η

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

Private Sub populateField ( ) 2

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

Dim dbs Όπως Database

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

Dim rowCntr As Integer

Δημ. fNames ( 10 ) Όπως String

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

Συμπλήρωση το string πίνακα με δεδομένα:

fNames ( 0 ) = " John"

fNames ( 1 ) = " Kitzia "

fNames ( 2 ) = " Adaly "

fNames ( 3 ) = " Όσκαρ "

fNames ( 4 ) = " Emilio "

fNames ( 5 ) = " Carlos"

fNames ( 6 ) = " Sylvia "

fNames ( 7 ) = " Sebastian "

fNames ( 8 ) = " Luis"

fNames ( 9 ) = " Joe "
Η 4

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

sqlStr = " CREATE TABLE myNewTable ( FirstName TEXT ( 50 ) ) ? "

DoCmd.RunSQL ( sqlStr )
5

Ανοίξτε νέο πίνακα χρησιμοποιώντας ένα εγγραφών :

Set RST = dbs.OpenRecordset ( " myNewTable " )
Η 6

Δημιουργία γΙΑ βρόχο για να συμπληρώσετε το " FirstName " πεδίο του πίνακα σας :

για rowCntr = 0 έως 9

ΤΥ . AddNew

rst.Fields ( 0 ) . Value = fNames ( rowCntr )

rst.Update

Επόμενο rowCntr
Η

7 Κλείστε το Recordset και στο τέλος υποδιαδικασία σας :

rst.Close

End Sub
8

Press " F5 " για να εκτελέσετε τη διαδικασία σας . Επιστρέψτε στην Microsoft Access και κάντε διπλό κλικ στο " myNewTable " για να δείτε την πυκνοκατοικημένη πεδίο .
Η
εικόνων