title image


Smiley Du kannst ja mit Screen.ActiveControl
das Steuerelement ermitteln, das den Fokus hat.



Und dann:



Dim Tmp As Boolean, FldName as String

FldName = ""

On Error resume Next

FldName = Screen.ActiveControl.Name

On Error Goto 0

Tmp = NZ(Me!Kontrollfeld,False)

If FldName = "Feld1" Or FldName = "Feld2" Or FldName = "Feld3" Then _

Me!Kontrollfeld.SetFocus

Me!Feld1.locked = Not Tmp

Me!Feld2.locked = Not Tmp

Me!Feld3.locked = Not Tmp

Me!Feld1.enabled = Tmp

Me!Feld2.enabled = Tmp

Me!Feld3.enabled = Tmp



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: