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

Ορισμός ένα πεδίο " Αυτόματη αρίθμηση " στους πίνακες της βάσης δεδομένων Microsoft Access μπορεί να σας βοηθήσει να διαχειριστείτε τα δεδομένα σας στο μέλλον, όταν θα πρέπει να ανακτήσει τη χρήση ερωτημάτων . Ένα πεδίο " Αυτόματη αρίθμηση " θα αυξηθεί αυτομάτως κατά ένα για κάθε νέα γραμμή και δεν μπορεί να αλλάξει. Το πεδίο αυτό θα κρατήσει κάθε γραμμή μοναδικό σε έναν πίνακα βάσης δεδομένων . Κανονικά, ένα πεδίο " Αυτόματη αρίθμηση " θα ξεκινήσει με έναν αριθμό από προεπιλογή . Αν θέλετε να ξεκινήσετε το πεδίο με το χρόνο , όπως το 2000 , θα πρέπει να εκτελέσει μια-δυο ερωτήσεις , πριν να ξεκινήσετε την προσθήκη στοιχείων στο τραπέζι σας . Οδηγίες
Η 1

Εκκίνηση της Microsoft Access , κάντε κλικ στην καρτέλα "Δημιουργία " και κάντε κλικ στο " Πίνακας ". Κάντε κλικ στην πρώτη γραμμή , αλλαγή "ID " για να " YearColumn " και επιλέξτε το " Τύπος δεδομένων " , όπως " Αυτόματη αρίθμηση ". Κάντε κλικ στην επόμενη σειρά και τον τύπο " TextField "για να δημιουργήσετε ένα δεύτερο πεδίο και πατήστε" Enter ". Κλείστε το τραπέζι σας , κάνοντας κλικ στο " x " στη γωνία του δεξιού χεριού. Πληκτρολογήστε " myYearTable " όταν σας ζητηθεί να δώσει τραπέζι σας ένα όνομα . 2

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

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

Private Sub createYearTable ( )
Φτηνές 4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια μεταβλητή για να αποθηκεύσουμε δήλωση SQL σας και το άλλο για να καθορίσει το έτος έναρξης για το τραπέζι σας :

Dim strSQL Όπως StringDim startingYear As String

5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να καθορίσει το αρχικό έτος "2000" για το πεδίο " Αυτόματη αρίθμηση " και να εκτελέσει ένα " INSERT INTO " ερώτημα :

startingYear = " 2000 " ? strSQL = " INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & "SELECT " & ( startingYear ) & " 'AS Εκφρ1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL )

6

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

strSQL = " Διαγραφή " strSQL = strSQL & "ΑΠΟ myYearTable " strSQL = strSQL & "WHERE YearColumn = " & ( startingYear ) & " " ? " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ( " ! Done " )
Η 7

τύπου " F5 " για να εκτελέσετε τη διαδικασία και να επιστρέψετε στη Microsoft Access . Κάντε διπλό κλικ στο " myYearTable " για να ανοίξετε το τραπέζι . Πληκτρολογήστε " δεδομένα" που ακολουθεί " Πεδίο κειμένου " και πατήστε το πλήκτρο " Enter" για να δείτε το πρώτο " Αυτόματη αρίθμηση " έτος " 2001 ". Εισάγετε πιο κειμένων στις παρακάτω γραμμές για να αυξήσετε το χρόνο από ένα για κάθε νέα γραμμή .


εικόνων