Πώς να έχει πρόσβαση ένας Δημιουργία πίνακα Ερώτημα αυτόματης αρίθμησης

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

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

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

Private Sub createAutoNumberField ( )

Set dbs = Application.CurrentDb

sQLString = " CREATE TABLE InstrumentInfo ( Instrument ΚΕΙΜΕΝΟ , SerialNumber ΚΕΙΜΕΝΟ ) "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sQLString )

strSQL = " INSERT INTO InstrumentInfo ΑΞΙΕΣ ( « MXA ' , '83456 ') "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO InstrumentInfo ΑΞΙΕΣ ( « Γεννήτρια Σήματος » , '1244532 ') "

DoCmd.RunSQL ( strSQL )

Set tblDef = dbs.TableDefs ( " InstrumentInfo " )

Σετ autoField = tblDef.CreateField ( " AutoColumn " , dbLong )

Με autoField

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

End With

Με tblDef.Fields

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

. Ανανέωση

End With

End Sub
εικόνων 3

Εκτελέστε την υπορουτίνα πατώντας το πλήκτρο " F5 ".


εικόνων