Formular - Vorlage / Schreibschutz

[kingwambi]

Hallo - sorry aber da ich mit Makros noch weniger Erfahrung habe als mit VBA muss ich für dich bescheuerte Fragen stellen. Ich habe in der Hilfe, in Google und Youtube gesucht bin aber für mich nicht wirklich fündig geworden, da ja das AllowEdits nirgends hinterlegt ist. Ich hoffe du hilfst mir hier weiter. Ich habe das was ich gemacht habe als Bild angehängt. Wie würde es richtig aussehen - Danke

[MzKlMu]

Hallo,
das kannst Du Dir alles sparen, das ist relativ einfach auch ohne Makros und Autokey.
Hinterlege im Formularereignis "Bei Taste" folgenden Code:

Code [Auswählen] Erweitern

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 25 Then '25 = F3
        Me.AllowEdits = True
        MsgBox "Datensatz ist freigegeben"
    End If
End Sub
Achtung, die Formulareigenschaft "Tastenvorschau" muss auf Ja stehen.

[kingwambi]

Hallo Klaus, wenn ich das einfach in die Zeile reinkopiere (Ausdrucksgenerator) dann bekomme ich die Meldung, dass das Objekt nicht gefunden wurde. Wenn ich Codegenerator nehme und dies einfüge bekomme ich keinen Fehler es tut sich aber nichts wenn ich die F3 Taste drücke. Was mache ich falsch? LG Jürgen

[MzKlMu]

Hallo,
das ist VBA Code, der hat im Ausdrucksgenerator nichts zu suchen.
Ereignis wählen, Code reinkopieren.

Steht dann [Ereignisprozedur] in der Zeile ?
Wird die MsgBox angezeigt ?
Ist die Tastenvorschau des Formulars auf Ja gestellt ?`

[kingwambi]

Hallo - hab ein Bild angehängt. Es steht Ereignisprozedur drinnen. Die MSG Box wird nicht angezeigt - entsperrt auch nicht. Tastenvorschau ist auf Ja.

[MaggieMay]

Hi,

der Code stimmt nicht, verwende besser die VBA-Konstante vbKeyF3.

[kingwambi]

es dürfte an der 25 liegen. ich habe mal 114 versucht - dann lässt es sich mit der Taste "R" entsperren. Was könnte es für F3 geben?

[kingwambi]

So? dann entsperrt er auf jede Taste die ich drücke.

Private Sub Form_KeyPress(KeyAscii As Integer)
    If vbKeyF3 Then
        Me.AllowEdits = True
        MsgBox "Datensatz ist freigegeben"
    End If
End Sub

[MaggieMay]

Der Vergleich mit der Eingabe muss natürlich drin bleiben!

[kingwambi]

sorry das sagt mir jetzt nichts. könntest du mir bitte den code senden - danke

[kingwambi]

So wahrscheinlich - mit F3 geht's aber auch nicht - mit ESC zb schon - hättest du eine Idee?

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyF3 Then
        Me.AllowEdits = True
        MsgBox "Datensatz ist freigegeben"
    End If
End Sub

[MaggieMay]

If KeyAscii = vbKeyF3

[kingwambi]

Hättest du noch eine Idee wieso es mit Escape geht und mit F3 nicht?

[MzKlMu]

Hallo,
bei mir funktioniert das mit der 25.

Lasse Dir mal mit einer Msgbox KeyAscii ausgeben.

?vbKeyF3 im Direktbereich ergibt 114, aber auf die 114 abgefragt geht es nicht.
Bin im Moment ratlos, das habe ich schon öfter gemacht.

[kingwambi]

Hallo - ich werde es bei der ESC Taste belassen - ist mir schon lieber als die F3. Ich möchte mich recht herzlich für die Hilfestellung und die Geduld mit mir bei allen Beteiligten bedanken. Da nun (hoffentlich) alles abgearbeitet ist werde ich den Thread schließen. LG Jürgen