Πώς να χρησιμοποιήσετε το Visual Basic for Access 2007

Γνωρίζοντας πώς να χρησιμοποιήσετε το Visual Basic στην Access 2007 μπορεί να σας δώσει μεγάλη ευελιξία κατά την ανάπτυξη εφαρμογών βάσεων δεδομένων . Access 2007 σας δίνει τη δυνατότητα να ενισχύσει την ανάπτυξη σας, δίνοντάς σας τη δυνατότητα να γράφουν κώδικα της Visual Basic για τα έντυπα και τους ελέγχους που δημιουργήσατε . Visual Basic είναι μια γλώσσα προγραμματισμού που δημιουργήθηκε από τη Microsoft και είναι εύκολο στη χρήση . Μπορείτε εύκολα να προγραμματίσετε σε Visual Basic εκθέσεις δημιουργία μιας βάσης δεδομένων της Access ή εκτελούν επαναλαμβανόμενες εργασίες . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Δημιουργία " στην Access και επιλέξτε " Σχεδίαση φόρμας . " Το πρόγραμμα θα δημιουργήσει μια νέα μορφή . Επιλέξτε το " κουμπί" ελέγχου στο πλαίσιο του " ελέγχου " παράθυρο και μετακινήστε το ποντίκι σας πάνω από την νέα μορφή . Αριστερό κλικ και να δημιουργήσει το νέο κουμπί . Προσθέστε ένα " πλαίσιο λίστας " ελέγχου στη φόρμα με τον ίδιο τρόπο που προσθέσατε το κουμπί . 2

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

δεξί κλικ πάνω στο νέο κουμπί και επιλέξτε " Ιδιότητες". Σχετικά με το " Φύλλο ιδιοτήτων ", κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε το drop down box με θέμα: « Κάντε κλικ στο" και επιλέξτε " [ Διαδικασία συμβάντος ] . " Κάντε κλικ στο αποσιωπητικά ( ... ) και ένα νέο Microsoft Visual Basic παράθυρο θα ανοίξει
Η 4

Πληκτρολογήστε τα ακόλουθα : .

Δημ. dbs Όπως Database

Dim ΤΥ Όπως εγγραφών

Dim X As Integer

Dim strSQL Όπως String Dim

lastFirst Όπως String

να δηλώσετε τις μεταβλητές που θα χρησιμοποιήσετε .

5 Τύπος

: .

Set dbs = CurrentDb

να ρυθμίσετε την τρέχουσα βάση δεδομένων

Τύπος:

strSQL = " CREATE TABLE Table1 ( FirstName TEXT ( 25 ) , Επώνυμο TEXT ( 25 ) ) ? . "

DoCmd.RunSQL ( strSQL )

να δημιουργήσετε έναν νέο πίνακα στη βάση δεδομένων που ονομάζεται " πίνακας 1 "

6

Τύπος :

strSQL = " INSERT INTO Πίνακας 1 ( [ Όνομα] , [ Επώνυμο] ) "

strSQL = strSQL & " ΑΞΙΕΣ ( « Ιωάννης » , « Smith » ) ? ".

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

να εισαγάγετε την πρώτη γραμμή των δεδομένων
Η 7

Τύπος :

strSQL = " INSERT INTO Πίνακας 1 ( [ Όνομα] , [ Επώνυμο] ) "

strSQL = strSQL & " ΑΞΙΕΣ ( « Jaime » , « Avelar ') ? "
<. p> DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( strSQL )

να εισάγετε μια δεύτερη γραμμή δεδομένων
8

Τύπος :

Ορισμός RST = dbs.OpenRecordset ( " Πίνακας 1 " )

να ορίσετε το σύνολο ρεκόρ

Τύπος: .

rst.MoveFirst

για Χ = 0 Για rst.RecordCount - 1

lastFirst = Trim ( . rst.Fields ( "Επώνυμο" ) Value) & "" & Trim ( rst.Fields ( " . FirstName " ) Value)

List1.AddItem lastFirst

rst.MoveNext

Επόμενο X

να βρόχο μέσα από τα αρχεία που μόλις δημιουργήσατε και να εμφανίσει τους στο πλαίσιο λίστας στη φόρμα σας .
Τετάρτη 9 Τύπος

:

MsgBox " Έχετε εμφανίζονται όλες οι εγγραφές στον πίνακα 1 στη λίστα κουτί με επιτυχία ! " , vbInformation

να εμφανιστεί ένα μήνυμα . Εναλλαγή παραθύρων πίσω στην Access 2007 και κάντε κλικ στο "Προβολή " για να εκτελέσετε τη φόρμα . Κάντε κλικ στο κουμπί " Command0 " και θα δείτε το στοιχείο ελέγχου πλαισίου λίστας εμφανίζει τα ονόματα .
Η
εικόνων