Ξεκινήστε το 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 " να εκτελέσει τον κώδικά σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα