Πώς να δείτε ένα ακίνητο στην Access VBA

Visual Basic for Applications είναι η γλώσσα scripting της Microsoft για την οικογένεια προγραμμάτων του Office της προγραμμάτων , η οποία περιλαμβάνει πρόσβαση . Μέρος του προγραμματισμού με VBA περιλαμβάνει συνεργασία με εικονικά αντικείμενα , όπως το αντικείμενο βάσης δεδομένων που κρατά τα δεδομένα της ομάδας εργασίας σας . Κάθε αντικείμενο έχει ιδιότητες που μπορείτε να διαβάσετε και συχνά ορίζεται για τη διαχείριση των χαρακτηριστικών του αντικειμένου . Για παράδειγμα , μπορείτε να ελέγξετε το "Τύπος " ιδιότητα ενός αντικειμένου Field για να δούμε αν το πεδίο είναι αριθμητικό , αλφαβητικό ή κάποιο άλλο είδος . Έλεγχος ενός ακινήτου παρέχει προγράμματα VBA με τις πληροφορίες χρόνου εκτέλεσης που χρειάζονται για να διαχειριστούν τα δεδομένα της ομάδας σας . Τα πράγματα που θα χρειαστείτε για Microsoft Access

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

Ανοικτής Πρόσβασης , στη συνέχεια, δημιουργήστε ένα νέο πίνακα που ονομάζεται " table1 " με δύο στήλες : " Πεδίο1 " και " field2 . " Θα γράψετε ένα πρόγραμμα VBA για να ελέγξετε τις ιδιότητες μιας από αυτές τις στήλες , και την ιδιότητα ενός στοιχείου ελέγχου πλαισίου ελέγχου . 2

Δημιουργήστε μια φόρμα που βασίζεται στο " Πίνακας 1 " κάνοντας κλικ στο κουμπί " Form" στο μενού " Δημιουργία " .
εικόνων 3

δεξί κλικ στην καρτέλα του νέου φόρμας και επιλέξτε " Προβολή σχεδίασης " και στη συνέχεια κάντε κλικ στο "κουτάκι " ελέγχου στην Κορδέλα ( το μεγάλο γραμμή εργαλείων ) . Σύρετε στην περιοχή " Form Header " για να δημιουργήσετε το πλαίσιο ελέγχου .
Η

4 Κάντε δεξί κλικ στο πλαίσιο ελέγχου και επιλέξτε "Ιδιότητες ", στη συνέχεια, πληκτρολογήστε " justread " στο πεδίο "Όνομα" του "Άλλου " καρτέλα στα δεξιά της οθόνης . Αυτή η δράση καθορίζει το όνομα ενός κουτάκι του οποίου η "αξία" ακίνητο που θα ελέγξει σε κώδικα VBA .
5

Κάντε κλικ στο " ... " κουμπί στο "Event " πεδίο καρτέλας " Με το κλικ " . Κάντε διπλό κλικ στο " οικοδόμος Code" για να εισάγετε το VBA ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE )
Η 6

Επικολλήστε τον ακόλουθο κώδικα μεταξύ του " Private Sub " και " End Sub" δηλώσεις : .

Private Sub justread_Click ( )

With Me ! Πεδίο1

Αν Me ! justread.value = True τότε

. Enabled = False

. Κλειδωμένο = True

Else

. Enabled = True

. Locked = False

End If End

Με

End Sub

η υπορουτίνα αυτή ελέγχει την « justread " "αξία" ιδιότητα ελέγχου για το " True" αξία . Αν "αξία" είναι αλήθεια , η υπορουτίνα απενεργοποιεί την είσοδο του χρήστη στο " Πεδίο1 " κουτάκι .
Η

7 Πατήστε το πλήκτρο " Alt - F11 " για να επιστρέψετε στην πρόσβαση , στη συνέχεια, κάντε δεξί κλικ στην καρτέλα της φόρμας . Επιλέξτε " Προβολή φόρμας " για να εκτελέσετε τη φόρμα .
8

Πληκτρολογήστε το κείμενο στο πεδίο " Πεδίο1 " , στη συνέχεια, ελέγξτε το πλαίσιο ελέγχου στο πάνω μέρος της φόρμας . Προσπαθήστε να πληκτρολογήσετε περισσότερο κείμενο στο πεδίο " Πεδίο1 " . Η υπορουτίνα VBA που έχετε εισάγει θα αποτρέψει την είσοδο , με βάση την αξία της «αξίας» της περιουσίας του κουτάκι του .
Η 9

Κάντε δεξί κλικ στο πίνακα της φόρμας και επιλέξτε " Σχεδίαση " άποψη . Re - πληκτρολογήστε το IDE πατώντας το κουμπί " ... " . κουμπί στην " justread " πεδίο κουτάκι του " Με το κλικ " , όπως κάνατε στο Βήμα 5
Η 10

Αντικαταστήστε το " justread_Click " υπορουτίνα με αυτό το αναθεωρημένο κώδικα :

Private Sub justread_Click ( )

With Me ! Field2

Αν . BackColor = 16777215 τότε

. BackColor = 13597561

Else

. φόντουΙδιότητα = 16777215

End If

End With

End Sub

Αυτή η υπορουτίνα ελέγχει την ιδιότητα χρώμα του φόντου ( που ονομάζεται " BackColor » ) του δεύτερου πεδίου . Το πρόγραμμα αλλάζει τότε η ιδιότητα , αν το χρώμα είναι λευκό .
Η 11

Πιέστε το πλήκτρο " Alt - F8" για να επιστρέψετε στην πρόσβαση , στη συνέχεια, εκτελέστε ξανά τη φόρμα χρησιμοποιώντας Βήμα οδηγίες του 7 .
Η 12

Ελέγξτε και καταργήστε το πλαίσιο ελέγχου . Το πρόγραμμα θα αναθεωρηθεί , θα αλλάξετε το χρώμα του φόντου της " Field2 . "
Η
εικόνων