Visual Basic for Applications er Microsofts scriptsprog for sin Office- programmer, der omfatter adgang . En del af programmering med VBA indebærer at arbejde med virtuelle objekter , såsom database objekt, der holder dit arbejde holdets data. Hvert objekt har egenskaber, som du kan læse og ofte sat til at administrere de særlige kendetegn ved objektet. For eksempel kan du tjekke " Type" egenskab ved et Field objekt for at se, om feltet er numerisk, alfabetisk eller en anden type. Kontrol en ejendom giver VBA -programmer med run-time information, de har brug for at styre dit holds data. Ting du skal
Microsoft Access
Vis Flere Instruktioner
1
Open Access , og derefter oprette en ny tabel kaldet " Tabel1 " med to kolonner: " Felt1 " og " field2 . " Du vil skrive en VBA program til at kontrollere egenskaberne af en af disse søjler , og ejes af en checkboks kontrol.
2
Opret en formular baseret på " Tabel1 " ved at klikke på " Form" knappen på "Opret" -menuen.
3
Højreklik på den nye form fane og vælg " Design View " og derefter klikke på " afkrydsningsfeltet " kontrol på båndet (den store værktøjslinjen). Træk i " Form Header" område for at skabe afkrydsningsfeltet.
4
Højreklik på afkrydsningsfeltet , og vælg "Egenskaber " og derefter skrive " justread " i " Name " feltet i " Andet" fanen skærmen til højre. Denne handling sætter navnet på et afkrydsningsfelt , hvis "værdi" ejendom, du vil kontrollere i VBA-kode.
5.
Klik på " ... " knappen i " Event" på fanen " OnClick " feltet. . Dobbeltklik på " Code builder " for at indtaste VBA integrerede udviklingsmiljø (IDE)
6
Indsæt følgende kode mellem "Private Sub " og " End Sub " udsagn :
< p > Private Sub justread_Click ()
With Me ! Felt1
p Hvis Me! justread.value = Sand Derefter
. Aktiveret = False
. Låst = ægte
Else
. Aktiveret = Sand
. Låst = False
End If
End With
End Sub
subroutine tjekker " justread " kontrol s "værdi" ejendom til den "sande" værdi. Hvis " value" er sandt, subrutinen deaktiverer brugeren post i " Felt1 " tekstfeltet .
7
Tryk på " Alt- F11 " for at vende tilbage til Access , så højre -klik på formularens fane. Vælg " Form View " for at køre formularen.
8
skriv en tekst i feltet " Felt1 " feltet , så tjek afkrydsningsfeltet øverst i formularen. Prøv at skrive mere tekst i " Felt1 " feltet. VBA subrutine du indtastede vil forhindre indrejse, baseret på værdien af afkrydsningsfeltet s "værdi" ejendom.
9
Højreklik på formularen bord og vælg " Design " view . Indtast IDE ved at klikke på "... " . knappen i " justread " checkhæfte s " OnClick " feltet , som du gjorde i trin 5
10
Erstat " justread_Click " subrutine med denne reviderede kode : Hej
Private Sub justread_Click ( )
With Me ! Felt2
p Hvis . BackColor = 16777215 Så
. BackColor = 13.597.561
Else
. BackColor = 16777215
End If
End With
End Sub
Denne subrutine kontrollerer baggrundsfarven egenskaben (kaldet " BackColor ") i det andet felt . Programmet ændrer derefter denne egenskab , hvis farven er hvid.
11
Press " Alt- F8 " for at vende tilbage til Access, og derefter igen køre formular ved hjælp Trin 7 anvisninger.
12
Kontroller og fjern markeringen i afkrydsningsfeltet . Det program, du reviderede vil ændre baggrundsfarven for " Felt2 . "