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.
zxz