Πώς να κάνει ένα κουμπί στην Access Εισάγετε μια ημερομηνία Επί ενός πίνακα

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

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

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

δεξί κλικ στο " Command0 " και επιλέξτε " Ιδιότητες". Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " Με κλικ . " Κάντε κλικ στο αποσιωπητικά ( ... ) για να ανοίξετε το "Microsoft Visual Basic" Παράθυρο . Πατήστε το πλήκτρο " Ctrl " και "A" και στη συνέχεια "Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα .
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα . Ο κωδικός αυτός θα δημιουργήσετε έναν νέο πίνακα με ένα "Ημερομηνία" τύπος δεδομένων πεδίου και προσθέστε τη σημερινή ημερομηνία σε αυτό .

Option Compare Database

Private Sub Command0_Click ( )

Dim todayDate Όπως String

todayDate = τώρα

SQLstr = " CREATE TABLE dateTable ( TodaysDate ημερομηνία) ? "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO dateTable ( [ TodaysDate ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( " & ( todayDate ) &" " ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

End Sub
5

Κλείστε το παράθυρο "Microsoft Visual Basic" και κάντε δεξί κλικ " Φόρμα1 . " Επιλέξτε " Προβολή φόρμας . " Κάντε κλικ στο " Command0 " να εκτελέσει τον κώδικά σας .
Η
εικόνων