Πώς να χρησιμοποιήσετε ένα αυτόματης αρίθμησης σε Visual Basic

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

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

Κάντε κλικ στο " Εισαγωγή" πεδίο , στη συνέχεια, επιλέξτε " Ενότητα ".
Εικόνων 3

Αντιγραφή και επικόλληση του κώδικα σε νέο module σας .

Private Sub newAutoIncColumn ( )

Set dbase = Application.CurrentDb

Set TableDef = dbase.TableDefs ( " myTableName " )

Set newClmn = TableDef.CreateField ( " AutoField " , dbLong )

Με newClmn

. Χαρακτηριστικά = dbAutoIncrField

End With

με TableDef.Fields

. Προσάρτηση newClmn

. Ανανέωση

End With

End Sub
Η 4

Επεξεργασία αυτής της γραμμής του κώδικα και πληκτρολογήστε το όνομα του πίνακα σας .

Set TableDef = dbase.TableDefs ( " myTableName " )

Η " AutoField " θα αυξηθεί αυτόματα από το " 1 " όταν τα νέα δεδομένα συνάψει ο πίνακας . Η " AutoField " θα χρησιμοποιηθεί για να προσδιορίζουν μοναδικά κάθε εγγραφή στον πίνακα .
Η
εικόνων