Dim ctl As Control
For Each ctl In Me.Form
If InStr(1, ctl.Tag, tagname) <> 0 Then
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
ctl.Enabled = deger
ctl.ControlSource = "=****"
ElseIf ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Then
ctl.Enabled = deger
ctl.Value = Null
Else
ctl.Enabled = True
End If
End If
Next ctl
Set ctl = Nothing
bu kod ile yetkisiz kişiler için bazı metin kutularınının içeriğini gizledik diyelim sonra yetkili kişi için her metin kutusunun ControlSource değerine tek tek alan mı tanımlayacağız
Son Düzenleme: 25/03/2020, 12:08, Düzenleyen: accessman.