Πώς να Ημερομηνία Σφραγίδα μιας εγγραφής στην Access

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

Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Access και δημιουργήστε ένα δείγμα βάσης δεδομένων κάνοντας κλικ στο " Αρχείο> Νέα πρότυπα > Δείγμα > Εκδηλώσεις " και στη συνέχεια "Δημιουργία " κουμπί . Κάντε κλικ στο " Παράθυρο περιήγησης " στο αριστερό μέρος της οθόνης , στη συνέχεια, τα «Δικαιολογητικά Αντικείμενα ", για να εκθέσει το " Events " εικονίδιο πίνακα . Κάντε διπλό κλικ σε αυτό το εικονίδιο για να ανοίξετε το τραπέζι Εκδηλώσεις για την εισαγωγή δεδομένων . 2

Εισάγετε δύο σειρές των δεδομένων του δείγματος στον πίνακα Events χρησιμοποιώντας το ακόλουθο κείμενο , το οποίο αντιστοιχεί στα πεδία "Τίτλος ", " Ξεκινήστε Time "και " End Time ". Μην εισάγετε τα κόμματα , τα οποία σας δείξουν πού να πατήσετε το πλήκτρο " Tab " . Να αντικαταστήσει τα πεδία με τη σημερινή και τις ημερομηνίες του αύριο .

Κόψτε το χορτάρι , , Paint το σπίτι , ,
εικόνων 3

Ξεκινήστε τον προγραμματισμό που απαιτείται για την εξάλειψη αυτόματα την ώρα έναρξης , από την πρώτη δημιουργώντας ένα έντυπο, στο οποίο το πρόγραμμα θα τρέξει : " . Δημιουργία > Form" Τύπο Κάντε δεξί κλικ στην καρτέλα του νέου "Event " φόρμα και επιλέξτε " Προβολή σχεδίασης ".
Η

4 Πατήστε το κουμπί " Ενεργοποίηση περιεχομένου " κουμπί στη γραμμή εργαλείων για να επιτρέψει εκτέλεση μακροεντολών σε αυτή τη βάση δεδομένων .

5

κάντε δεξί κλικ στο " Date Stamp " πεδίο και επιλέξτε "Ιδιότητες " και στη συνέχεια κάντε κλικ στην καρτέλα " Event" στο παράθυρο " Φύλλο ιδιοτήτων " . Κάντε κλικ στο κάτω βέλος στη σειρά " On Got Focus" και επιλέξτε " [ Διαδικασία συμβάντος ] . " Κάντε κλικ στο κουμπί με τις ελλείψεις , το οποίο βρίσκεται αμέσως δεξιά από το κάτω βέλος για να εισέλθουν στην Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) .
Η 6

Επικολλήστε τον παρακάτω κώδικα προγράμματος στον κώδικα του IDE είναι παράθυρο :

Private Sub Start_Time_GotFocus ( ) Dim x As VariantIf ( IsNull ( START_TIME ) ) Thenm = Μήνας ( Now ( ) ) d = Day ( Now ( ) ) y = Year ( Now ( ) ) x = m & " /" & d & " /" & yStart_Time = xend IfEnd Sub
Η 7

Επιστροφή στην πρόσβαση πατώντας "alt - f11 , " και στη συνέχεια κάντε δεξί κλικ στο " Events" καρτέλα και επιλέξτε " μορφή View " για να ενεργοποιήσετε τη φόρμα για την εισαγωγή δεδομένων .
8

Tab σε όλα τα πεδία κάθε εγγραφής του δείγματος που έχετε εισάγει μέχρι το " ID " πεδίο δείχνει " ( New ) . " Tab κάτω στο " Ώρα έναρξης " πεδίο και να παρατηρήσετε την επίδραση της μακροοικονομικής σας, η οποία έχει γεμίσει με την ώρα έναρξης με την τρέχουσα ημερομηνία .
Η 9

Ημερομηνία σφραγίδα στο πεδίο " End Time" από την εκ νέου που εισέρχονται στο IDE και επικόλληση του παρακάτω κώδικα κάτω από τον κώδικα που είχαν εισαχθεί στο παρελθόν :

Private Sub End_Time_GotFocus ( ) « Αλλάξτε το 1 στην επόμενη δήλωση προς τον επιθυμητό αριθμό των ημερών μετά την έναρξη datetm = DateAdd ( " d " , 1 , START_TIME ) End_Time = tmEnd Sub
Η 10

Re - τρέχει η μορφή , εξασφαλίζοντας ότι το πεδίο " End Time" εμφανίζει μια ημερομηνία μία ημέρα μετά πεδίο " ώρα έναρξης " .


εικόνων