[ rstevic @ 26.10.2011. 13:30 ] @
Radi se o sledecem
Imam formu na kojoj bih zakljucao sva polja uglavnom su text bokxovi ima i po neki combo box.
Znaci stavio bih u propery sledece:
Enabled: Yes
Locked: Yes
E sada u hederu forme bih stavio jedan command buton koji bi trebao da otkljuca text box ili kombo box koji mi je aktivan.
Kako aktivan?
Tako sto udjem u polje Ime npr i onda kliknem na dugme u hederu forme i otkljucam ga da bih mogao da ga menjam.
Lako je ako stavim pored svakog polja dugme ili sa double clickom na polje ali ovako ne znam.
HVALA UNAPRED
[ SLOJ.1973 @ 26.10.2011. 13:49 ] @
Koristi osobinu TAG.Ovde je to lepo objasnjeno>http://www.praktikum.rs/office/access/acc_035.asp
[ rstevic @ 26.10.2011. 14:04 ] @
Da ovo je super fora da se ne pisalo ono

with me.
.imepolja
.imepolja1
.
.
.
.imepoljan

Ali meni ovde ne treba akcija na grupu polja treba mi akcija samo na onu kontrolu koja mi je bila aktivna pre nego sto sam kliknuo na command buton.

Ova osobina u tom slucaju moze da se iskoristi jedino ako bi se na OnEnter postavilo da je osobina Tag = Otkljucaj pa onda klikom na dugme da se otkljuca kontrala ciji je Tag = otkljucaj.
Da li si na to mislio.

U tom slucaju kada bih trebao da ispraznim osobinu tag?
Ulaskom u sledece polje i u dogadjaju on current recor?
[ djux66 @ 26.10.2011. 15:10 ] @
Probaj da staviš na to dugme on click Debug.Print Screen.PreviousControl.Name pa ako je to ta kontrola koja treba da omogući, dalje valjda znaš kako...

[ rstevic @ 26.10.2011. 17:56 ] @
Hvala na brzoj pomoci resio sam preko osobine TAG.
[ izonic @ 27.10.2011. 10:08 ] @
Mislim da to rjesenje sa tagom i nije bas dobro.
Tag nam cesto treba da upisemo neku drugu osobinu kontrole koja se mijenja a i cesto zaboravimo da nesto tamo ima.
Ima niz drugih rjesenja.
Evo jednog koje ce zaklucati sve tekst i combo:
Napraviti jedan komandni taster i dati mu ime C.
U kaption napisati -Otkljucano.
Na on klik upisati ovaj kod:
Code:
Option Compare Database
Option Explicit
Dim Kljuc As Boolean
Private Sub C_Click()
Dim Ctl As Control
Dim Frm As Form
Dim Tip As Integer

If Kljuc = False Then
Me.C.Caption = "Zakljucano"
Kljuc = True
Else
Me.C.Caption = "Otkljucano"
Kljuc = False
End If
Set Frm = Me.Form
For Each Ctl In Frm.Controls
Tip = Ctl.ControlType
    If Tip = 109 Or Tip = 111 Then
    Ctl.Enabled = Kljuc + 1
    Ctl.Locked = Kljuc
    End If
Next Ctl
End Sub


Napomena:
Dim Kljuc as Boolean treba staviti odma ispod
Option Explicit
a ne unutar procedure.

Interesantno bi bilo kada bi samo htjeli zakljucati pojedine tekst boksove.