Formular - Vorlage / Schreibschutz

[MaggieMay]

Sorry, wenn ich das noch anfüge, aber die Escape-Taste halte ich für ziemlich ungeeignet, da sie doch in der Regel für das Abbrechen eines Vorgangs bzw. einer Aktion eingesetzt wird.

Bei einem Test hat sich herausgestellt, dass das KeyPress-Ereignis durch F3 gar nicht ausgelöst wird.   

Funktionieren tut aber folgendes:

Code [Auswählen] Erweitern

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF3 Then Me.AllowEdits = True
End Sub


BTW:
KeyAscii und KeyCode ist offensichtlich nicht dasselbe.

[kingwambi]

Guten Morgen, schläfst du denn nie? Danke dass du dir (um die Zeit) noch gedanken darüber gemacht hast !! Bist die Beste ! Ich habe es noch um die MSG Box erweitert - funktioniert perfekt. Wünsche dir noch einen wunderschönen Tag. LG Jürgen

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF3 Then
    Me.AllowEdits = True
    MsgBox "Datensatz ist freigegeben"
    End If
End Sub

[MaggieMay]

Hi,

schläfst du denn nie?

aber sicher doch, bspw. morgens um sieben! :-)