Datenfeld ist nicht LOCKED

[accessy]

Ich habe mir einen Schalter eingebaut, der ein versehentliches Ändern eines Datensatzes verhindert.
Beim Öffnen eines Formulars werden erst einmal alle Datenfelder auf LOCKED = TRUE gesetzt.
Das funktioniert gut.
Hier ein Beispiel mit einem Datenfeld.

Code [Auswählen] Erweitern


Private Sub Form_Open(Cancel As Integer) 'Beim Öffnen des Formulars
    Me.Funktion.Locked = True 'Datenfeld Funktion ist gesperrt
    Me.Liste410.Visible = False ' Listbox nicht sichtbar
End Sub


Mache ich einen Doppelklick auf das Datenfeld FUNKTION, dann erscheint die Listbox mit vorgegebenen Werten.
Mit einem Doppelklick auf einen Wert in der Listbox wird dieser ins Datenfeld FUNKTION geschrieben.

Code [Auswählen] Erweitern


Private Sub Liste410_DblClick(Cancel As Integer)
  Me.Funktion = Liste410.Value 'Fügt per Doppelklick den Wert ins Feld FUNKTION ein
End Sub

Das funktioniert wunderbar.
Doch HALT, Moment mal.... Eigentlich ist doch das Datenfeld auf LOCKED = TRUE.
Das dürfte doch gar nicht funktionieren.
Warum wird das LOCKED = TRUE hier nicht erkannt?

[MzKlMu]

Hallo,
per VBA kannst Du immer in das Feld schreiben. Da ist Locked wirkungslos bzw. wird ignoriert.