1 Ανοίξτε τη βάση δεδομένων της Access . 2
Επιλέξτε την καρτέλα "Δημιουργία " και επιλέξτε " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Κάντε κλικ στο " κουμπί" για την " Controls " παράθυρο στη συνέχεια αριστερό κλικ μορφή και σύρετε για να δημιουργήσετε ένα νέο κουμπί ελέγχου .
Εικόνων 3
δεξί κλικ στο " Command0 " και επιλέξτε " Ιδιότητες". Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " Με κλικ . " Κάντε κλικ στο αποσιωπητικά ( ... ) H ανοίξτε το " Microsoft Visual Basic" παράθυρο .
Η
4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα λειτουργική μονάδα για να ενημερώσετε " Οφειλόμενο Ποσό " έως 50 για τον αριθμό τιμολογίου 5 στον πίνακα " τιμολόγια " :
Private Sub Command0_Click ( )
Dim strSQL Όπως String
strSQL = " . τιμολόγια UPDATE SET τιμολόγια [ Ποσό Λόγω ] = "
strSQL = strSQL & " 50 WHERE ( ( ( Invoices. [ Τιμολόγιο ID ] ) = 5) ) ? "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
End Sub
5
Κλείστε το "Microsoft Visual Basic" Παράθυρο και κάντε δεξί κλικ " Form1 " και στη συνέχεια επιλέξτε " Προβολή φόρμας " . Κάντε κλικ στο " Command0 . "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα