title image


Smiley Und noch schöner wird's...
... so:



Public Function ShowControls(F As Form, IsVisible As Boolean, IsEnabled As Boolean, IsLocked as Boolean)

Dim Ctl as Control

For each Ctl in F.Controls

If Instr(Ctl.Tag = "-V") > 0 then ' -V = Not visible

Ctl.Visible = Not IsVisible

ElseIf Instr(Ctl.Tag,"V") > 0 then ' V = Visible

Ctl.Visible = IsVisible

End If

If Instr(Ctl.Tag = "-E") > 0 then ' -E = Not enabled

Ctl.Visible = Not IsEnabled

ElseIf Instr(Ctl.Tag,"E") > 0 then ' E = Enabled

Ctl.Visible = IsEnabled

End If

If Instr(Ctl.Tag = "-L") > 0 then ' -L = Not Locked

Ctl.Visible = Not IsLocked

ElseIf Instr(Ctl.Tag,"L") > 0 then ' L = Locked

Ctl.Visible = IsLocked

End If

Next Ctl

End Sub



Hintergrundfarbe usw. kann man auf diese Weise natürlich auch gleich mitsetzen...



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: