Πώς μπορώ Δημιουργία Αυτόματης προσαύξησης πεδία στη Visual Basic for Access

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

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

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

αντιγραφή και επικόλληση του ακόλουθο κώδικα στη λειτουργική μονάδα σας :

Private Sub autoIncrementField ( )

Set dbs = Application.CurrentDb

Set tblDef = dbs.TableDefs ( " addressTbl " )

Set NEWFIELD = tblDef.CreateField ( " AutoField " , dbLong )

Με NEWFIELD

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

End With

Με tblDef . τα πεδία

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

. Ανανέωση

End With

End Sub
Η

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

Set tblDef = dbs.TableDefs ( " addressTbl " )

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