Datensatz sperren mit einem Kontrollkästchen

[Arndt]

Ist es möglich, mit einem Kontrollkästchen den betreffenden Datensatz gegen Veränderungen zu sperren so lange, wie das Kontrollkästchen aktiviert ist?

Wenn ja, wie geht das?

Wenn nein, welche Alternativen gibt es?

[MzKlMu]

Hallo,
ja, das ist möglich. Am einfachsten, wenn der ganze Datensatz gesperrt wird. Aber dann musst Du Dir eine Lösung überlegen, wie Du das wieder rückgängig machst, denn wenn der DS gesperrt ist, geht auch das KK nicht mehr.
Ansonsten musst Du jedes einzelne Feld sperren und das KK nicht.

[Arndt]

Hm ... oder das KK in einer anderen Tabelle speichern.

[MzKlMu]

Hallo,

Hm ... oder das KK in einer anderen Tabelle speichern.

und was soll das bringen ?
Das KK benötigt ja einen Bezug zum Datensatz, das kannst Du nicht in einer anderen Tabelle speichern bzw. macht keinen Sinn es zu tun. Und hätte auf das Sperren auch keinen Einfluss, gesperrt ist gesperrt egal wo es gespeichert ist.

[Arndt]

Kannst Du mir bitte einen Hinweis zum Ausdruck geben, den das KK enthalten muss, um den Datensatz zu sperren?

Ist das Entsperren vielleicht durch einen Button möglich, der nicht in der Tabelle gespeichert wird? Der einfach den aktuell angezeigten Datensatz entsperrt? Gibt es dafür ein Beispiel für einen Ausdruck?

[DF6GL]

Hallo,


Sub Form_Current()
Me.Allowedits = not Me!kkGesperrt
End Sub



Sub kkGesperrt_Afterupdate()
Me.AllowEdits =not Me!kkGesperrt
End Sub


Sub btnUnlock_Click()
Me.AllowEdits = True
End Sub

[Arndt]

(A) Sub Form_Current()

(B) Sub kkGesperrt_Afterupdate()

(C) Sub btnUnlock_Click()

Hallo DF6GL,

Danke für Deine Hilfe. Ich lerne das gerade.

Kannst Du mir bitte zu den drei Funktionen in je einem Satz sagen, was sie WO bewirken? Und welches Steuerelement Du empfehlen würdest.-

[MzKlMu]

Hallo,
Sub Form_Current() = "Beim Anzeige" wird bei jedem Datensatzwechsel ausgelöst.
Sub kkGesperrt_Afterupdate() = "Nach Aktulisierung" des KK, wird nach Änderung ausgelöst.

Sub btnUnlock_Click() = selbsterklärend.

Welches Steuerelement, es braucht keine zusätzlichen Steuerlemente. Du hast das KK, mehr braucht es nicht.

[birog59]

Hallo,


Sub Form_Current()
Me.Allowedits = not Me!kkGesperrt
End Sub



Sub kkGesperrt_Afterupdate()
Me.AllowEdits =not Me!kkGesperrt
End Sub


Sub btnUnlock_Click()
Me.AllowEdits = True
End Sub

Lieber Franz, ich suche auch so eine Lösung.
Soll den Text in Formular Code Fenster eintragen?
Danke Um Hilfe
Grüsse Gabor

[DF6GL]

Hallo,

  wie soll ich das verstehen?


Erklär mal Dein Problem und mach weitere Angaben zu Deiner DB-Umgebung.