Visual Basic for Applications är Microsofts skriptspråk för Office- svit av program , vilket inkluderar Access . En del av programmering med VBA innebär att arbeta med virtuella objekt , till exempel den databas objekt som håller ditt arbete lagets data . Varje objekt har egenskaper som du kan läsa och ofta inställd på att hantera egenskaper för objektet . Till exempel kan du kontrollera ”Typ ” -egenskapen för ett fält objektet för att se om fältet är numeriskt , alfabetiska eller någon annan typ . Kontrollera en fastighet ger VBA program med run-time information de behöver för att hantera ditt lags data .
1
Open Access och sedan skapa en ny tabell som heter ” Tabell1 ” med två kolumner : . ” Fält1 ” och ” Fält2 . ” Du skriver ett VBA- program för att kontrollera egenskaperna hos en av dessa kolumner , och tillhör 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 ” Formulärhuvud ” område för att skapa kryssrutan .
4 .
Högerklicka på rutan och välj ” Egenskaper ”och sedan skriva ” justread ” i fältet ”Namn” av ”Övrigt ” fliken på skärmen till höger . Denna åtgärd anger namnet på en kryssruta vars ” värde ” egendom du ska kolla i VBA -kod .
5 .
Klicka på ”. . . ” knappen på ” Event ” på fliken ” OnClick ”-fältet . Dubbelklicka på ” Code Builder ” att gå in VBA integrerad utvecklingsmiljö ( IDE )
6
Klistra in följande kod mellan ” Private Sub ” och ” End Sub ” uttalanden .
Private Sub justread_Click ( )
med mig! Fält1
Om Mig ! justread . värde=sant då
. Enabled=False
. Låst=Sant
Else
. Enabled=True
. Låst=False End
Om
End With
End Sub
Denna subrutin kontrollerar ” justread ” kontrollens ” värde ” egendom för det ”sanna” värdet . Om ” värde ” är sant , . subrutinen inaktiverar användaren post i ” Fält1 ” textrutan .
7
Tryck på ” Alt-F11 ”för att återgå till Access , högerklicka på form flik . Välj ” Formulär ”för att köra formuläret.
8 .
Skriv in eventuell text i ” Fält1 ”fältet och sedan markera kryssrutan överst i formuläret. Försök att skriva mer text i ” Fält1 ” fältet . VBA subrutin du angav kommer att förhindra inresa , baserat på värdet av kryssrutan för ” värde ” egendom .
9 .
Högerklicka på formulärets tabellen och välj ”Design ” uppfattning . Ange IDE genom att klicka på ”. . . ” knappen i ” justread ” checkbox 's ” OnClick ”-fältet , som du gjorde i steg 5
10
Ersätt ” justread_Click ” subrutin med denna nya kod .
Private Sub justread_Click ( )
med mig! Fält2
If. BackColor=16777215 Sen
. BackColor=13597561
Else
. BackColor=16777215
End If
End With
End Sub
Denna subrutin kontroller bakgrundsfärgen egendom ( kallas ” BackColor ” ) i det andra fältet . Programmet förändringar sedan den egenskapen om färgen är vit .
11 .
Tryck på ” Alt-F8 ”för att återgå till Access , sedan köra i formuläret på steg 7 anvisningar .
12 .
Kontrollera och avmarkera kryssrutan. Programmet du reviderade kommer att ändra bakgrundsfärgen på ” Fält2 . ”
コメント