Visual Basic for Applications är Microsofts skriptspråk för sitt Office svit av program , vilket inkluderar tillgång . En del av programmering med VBA innebär att arbeta med virtuella föremål , såsom databasobjekt som håller ditt arbete lagets uppgifter . Varje objekt har egenskaper som du kan läsa och ofta satt till hantera egenskaperna hos objektet. Till exempel kan du kolla " Type " egendom av en fältobjekt att se om fältet är numeriskt , alfabetisk eller någon annan typ . Kontroll en fastighet ger VBA -program med run -time information de behöver för att hantera gruppens uppgifter . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Open Access , sedan skapa en ny tabell som heter " Tabell1 " med två kolumner : " Field1 " och " fält2 . " Du ska skriva ett VBA -program för att kontrollera egenskaperna hos en av dessa kolumner och egenskapen av en kryssruta kontroll .
2
Skapa ett formulär baserat på " Tabell1 " genom att klicka på " Form " knappen på " Skapa " -menyn .
3
Högerklicka på den nya formen flik och välj " Design " och sedan klicka på " kryssrutan " kontroll i menyfliksområdet ( den stora verktygsfältet ) . Dra i " Form Header " område för att skapa kryssrutan .
4
Högerklicka på rutan och välj " Egenskaper ", sedan " justread " i " Namn "-fältet i " Övrigt " fliken på skärmen till höger . Denna åtgärd ställer in namnet på en kryssruta vars " värde " egendom du kollar i VBA-kod .
5
Klicka på " ... " knappen på "Event " på fliken " OnClick " fältet . . Dubbelklicka på " Code Builder " för att komma in i VBA integrerad utvecklingsmiljö ( IDE )
6
Klistra in följande kod mellan " Private Sub " och " End Sub " uttalanden :
Private Sub justread_Click ( ) katalog
med mig ! Fält1
p Om mig ! justread.value = sant då
. Enabled = False
. Låst = sant
Else
. Enabled = sant
. Låst = False
End If
End With
End Sub
Denna subrutin kontrollerar " justread " kontrollens " värde " egendom för det "sanna " värdet . Om " värde " är sant , inaktiverar subrutinen inmatning i " Fält1 " textrutan .
7
Tryck " Alt - F11 " för att återvända till Access , högerklicka på formulärets fliken . Välj " Formulär " att köra formuläret .
8
typ valfri text i " Fält1 " fältet , sedan markera kryssrutan överst i formuläret . Försök att skriva mer text i " Fält1 " fältet. VBA subrutinen du angav kommer att förhindra inresa , baserat på värdet av kryssrutan för " värde " egendom .
9
Högerklicka i formuläret bord och välj " Design" view . Ange den IDE genom att klicka på " ... " . knappen i " justread " kryssrutan för " OnClick " fältet , som du gjorde i steg 5
10
Ersätt " justread_Click " subrutin med denna reviderade koden :
Private Sub justread_Click ( ) katalog
med mig ! Fält2
p Om . BackColor = 16777215 Då
. BackColor = 13.597.561
Else
. BackColor = 16777215
End If
End With
End Sub
Denna subrutin kontrollerar egenskapen bakgrundsfärg ( som kallas " BackColor " ) i det andra fältet . Programmet ändrar då att egendom om färgen är vit .
11
Press " Alt-F8 " för att återgå till Access , sedan åter köra formuläret med Steg 7 : s instruktioner .
12
Kontrollera och avmarkera kryssrutan . Programmet du reviderade kommer att ändra bakgrundsfärgen på " Fält2 . " Addera
