Der Betreff ist etwas unglücklich formuliert.
Also mit diesem Code
Zitat
Private Sub Form_Current() 'Ereignis beim Weiterschalten zum nächsten DS
If Not Me.NewRecord Then
Call Gesperrt
End If
If Me.FilterOn = True Then
Me.Gefiltert.Value = "DS " & [CurrentRecord] & " von " & fx()
Else
Me.Gefiltert = ""
End If
End Sub
werden beim Weiterschalten zum nächsten DS alle Felder automatisch gesperrt, so dass man nicht versehentlich in einem DS etwas überschreiben, oder löschen kann.
Das funktioniert einwandfrei.
Man geht zum nächsten DS und schon sind alle Felder wieder auf LOCKED=TRUE
UNLOCKED=FALSE mache ich über einen CommandButton.
Jetzt aber meine Frage.
Wenn ich auf "Neuen DS" einfügen klicke, soll das LOCKED=TRUE Ereignis NICHT greifen.
Im Moment ist das völlig klar. Sobald man den aktuellen DS verlässt, wird ja eine Art "Selection_Change" Ereignis ausgelöst.
Gibt es da eine Möglichkeit in dem oben dargestellten Code eine
IF...THEN einzufügen, die das CALL Gesperrt bei Klick auf "Neuen DS" einfügen NICHT auslöst?
Hallo,
aber genau das hast Du doch bereits:
If Not Me.NewRecord Then
Call Gesperrt
End If
Das Call wird nur ausgeführt wenn Du nicht (Not) in einem neuen Datensatz bist.
Ja, das stimmt schon.
Bleibt bloß die Frage, warum nach Scrollen vom letzten DS zum nächsten,
der dann neu ist, die Felder auf LOCKED gehen.
Habs gefunden.
Mal wieder den Wald vor lauter Bäumen.....
Danke dennoch für den Hinweis.
Schönen Abend noch.
Hallo,
ZitatHabs gefunden.
eigentlich könntest Du die werte Mitleserschaft auch an deinen Lösungen teilhaben lassen und nicht nur an Deinen Problemen. ::) ;D