Hvordan sjekke en eiendom i Access VBA
Visual Basic for Applications er Microsofts skriptspråk for sin Office-programmer, som inkluderer Access. En del av programmering med VBA innebærer å arbeide med virtuelle objekter, for eksempel databaseobjektet som holder arbeids lagets data. Hvert objekt har egenskaper som du kan lese og ofte satt til å administrere egenskapene til objektet. For eksempel kan du sjekke "Type" tilhører et Feltet objekt for å se om feltet er numerisk, alfabetisk eller en annen type. Kontrollere en eiendom gir VBA programmer med run-time informasjon de trenger for å administrere lagets data.
Bruksanvisning
1 Open Access, og deretter opprette en ny tabell som heter "Tabell1" med to kolonner: ". Field2" "Felt1" og Du skal skrive en VBA program for å sjekke egenskapene til en av disse kolonnene, og tilhører en avkrysnings kontroll.
2 Lag et skjema basert på "Table1" ved å klikke på "Form" knappen på "Create" -menyen.
3 Høyreklikk den nye formen kategori og velg "Design View" og klikk deretter på "boksen" kontroll på båndet (den store verktøylinjen). Dra i "Form Header" område for å lage boksen.
4 Høyreklikk på boksen og velg "Properties" og deretter skriver du "justread" i "Name" feltet "Annet" -kategorien på skjermen til høyre. Denne handlingen setter navnet på en avkrysnings som "verdi" eiendommen du skal sjekke inn VBA-kode.
5 Klikk på "..." knappen på "Event" fanen "onclick" -feltet. Dobbeltklikk på "Code byggherre" for å gå inn i VBA integrert utviklingsmiljø (IDE).
6 Lim inn følgende kode mellom "Private Sub" og "End Sub" uttalelser:
Private Sub justread_Click ()
With Me!Field1
Hvis Me! Justread.value = True Deretter
.Enabled = False
.Locked = True
Ellers
.Enabled = True
.Locked = False
Slutt om
End With
End Sub
Dette subrutine sjekker "justread" kontrollens "verdi" eiendom for den "sanne" verdi. Hvis "verdi" er sant, deaktiverer subrutine brukeroppføring i "Felt1" tekstboksen.
7 Trykk "Alt-F11" for å gå tilbake til Access, høyreklikk på skjemaet kategori. Velg "Form View" for å kjøre form.
8 Skriv inn eventuell tekst i "Felt1" -feltet, så sjekk boksen øverst på skjemaet. Prøv å skrive mer tekst i "Felt1" -feltet. VBA subrutine du skrev inn vil hindre oppføring, basert på verdien av boksen er "verdi" eiendom.
9 Høyreklikk skjemaet bord og velg "Design" visning. Tast inn IDE ved å klikke på "..." -knappen i "justread" boksen er "onclick" -feltet, som du gjorde i trinn 5.
10 Bytt ut "justread_Click" subrutine med denne reviderte kode:
Private Sub justread_Click ()
With Me!Field2
Hvis .BackColor = 16777215 Da
.BackColor = 13597561
Ellers
.BackColor = 16777215
Slutt om
End With
End Sub
Denne subrutine kontrollerer bakgrunnsfargen egenskapen (kalt "Backcolor") av det andre felt. Programmet endrer da at eiendommen hvis fargen er hvit.
11 Trykk "Alt-F8" for å gå tilbake til Access, deretter kjøre form ved hjelp Trinn 7 instruksjoner.
12 Sjekk og fjern avmerkingen. Programmet du reviderte vil endre bakgrunnsfargen "Felt 2".