Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
otvorený prístup , potom vytvorte novú tabuľku s názvom " Tabuľka 1 " s dvomi stĺpci : " pole1 " a " Field2 . " Budete napísať program VBA pre kontrolu vlastností jedného z týchto stĺpcov , a vlastnosť ovládacieho prvku checkbox .
2
Vytvoriť formulár založený na " Tabuľka1 " kliknutím na tlačidlo " Form " menu " Vytvoriť " na .
3
pravým tlačidlom myši na kartu novú formu a zvoľte " Návrhové zobrazenie " , potom kliknite na " políčko " kontrolu na páse kariet ( veľký panel nástrojov ) . Ťahaním v "Hlavička " oblasti , vytvoriť zaškrtávacie políčko .
4
Pravým tlačidlom myši na políčko a zvoľte " Vlastnosti " , zadajte " justread " v " Name " poľa " Ostatné " karta na pravej strane obrazovky . Táto akcia nastaví názov zaškrtávacie políčko , ktorého " hodnota " vlastnosť budete kontrolovať v kóde VBA .
5
Kliknite na tlačidlo " ... " tlačidlo na pole " Udalosť " tabulátora " kliknutí " . Double - kliknite na " Tvorca kódu " do VBA integrované vývojové prostredie ( IDE )
6
Vložte nasledujúci kód medzi " Private Sub " a " End Sub " vyhlásenie : .
< P > Private Sub justread_Click ( )
With Me ! pole1
Me ! justread.value = True Then
. Enabled = False
. Locked = pravda
Else
. Enabled = true
. Locked = False
End If
End With
end Sub
Tento podprogram kontroluje " justread " " hodnota " vlastnosť ovládacieho prvku pre " skutočné " hodnoty . Ak je " hodnota " je pravda , podprogram zakáže vstup používateľa do " pole1 " textové pole .
7
Stlačte tlačidlo " Alt - F11 " pre návrat do aplikácie Access , kliknite pravým tlačidlom myši na kartu formulára . Zvoľte " Zobraziť formulár " pre spustenie formulára .
8
Zadajte ľubovoľný text v poli " pole1 " , potom začiarknite políčko v hornej časti formulára . Snažte sa písať ďalší text v poli " pole1 " . VBA podprogram ste zadali bude brániť vstupu , na základe hodnoty checkbox je " hodnota " majetku .
9
pravým tlačidlom na tabuľku formulára a zvoľte " design " pohľad . Znovu zadajte IDE kliknutím na tlačidlo " ... " . tlačidlo v " justread " pole zaškrtávacie políčko je " kliknutí " , rovnako ako v kroku 5
10
Nahradiť " justread_Click " podprogram s týmto novým kódom :
Private Sub justread_Click ( )
With Me ! Field2
. BackColor = 16777215 Tak
. BackColor = 13597561
Else
. BackColor = 16777215
End If
End With
End Sub
Tento podsystém kontroluje farbu pozadia vlastnosť ( tzv. " Barvapozadí " ) , na druhom poli . Program sa potom zmení , že majetok v prípade , že farba je biela .
11
Stlačte tlačidlo " Alt - F8 " sa vrátite do programu Access , a potom znova spustite formulár pomocou STEP 7 je návod .
12
Skontrolujte a zrušte začiarknutie políčka . Program , ktorý revidoval zmení farbu pozadia " pole2 . "