modSecureForms (Anzeige von Feldern gezielt schützen)

 

Option Compare Database
Option ExplicitSub FelderEinAus(F As Form, C As Control)
Dim strUser As String
Dim ctl As Control

C.SetFocus
strUser = CurrentUser()
For Each ctl In F.Controls
If ctl.Tag <> „“ Then
ctl.Visible = (InStr(ctl.Tag, „;“ & strUser & „;“) <> 0)
End If
Next

End Sub