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.
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.
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?
Hallo,
per VBA kannst Du immer in das Feld schreiben. Da ist Locked wirkungslos bzw. wird ignoriert.