Office: (Office 2019) Formular mit Bedingung öffnen aus einem Listenfeld heraus (VBA)

Hallo zusammen,

ich möchte aus einem Listenfeld ein Formular mit einer Bedingung öffnen, wenn ich die Enter/Return-Taste drücke.
Hinweis: im gleichen Formular ist bereits die Enter-Taste schon für eine Befehlsschaltfläche belegt.

Ich habe nachfolgenden Code gefunden, denn ich bei der Werteliste als Ereignis "Bei Taste Ab" eingefügt habe:

Private Sub lstErgebnis_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then ' Enter = Ascii-Code 13
DoCmd.OpenForm "frmGeUebersicht"
End If
End Suddb

Aber wie muss ich die nachfolgende Bedingung (aus einem anderen Makro) hinzufügen?
Bedingung =[GID]=[Formulare]![frmMenu]![Navigationsunterformular].[Formular]![lstErgebnis]

Vielen Dank an euch

Gruß
Eisfuchs

 

Hallo,
1. Nutze das Ereignis 'Beim Klicken'
2. Schau Dir die Parameter der OpenForm-Methode an.
DoCmd.OpenForm-Methode (Access)

 

Hi,

danke für deine Antwort, werde ich gleich einmal versuchen.
Aber wenn ich das Ereignis "Beim klicken" verwende, bedeutet das aber, wenn ich in das Listenfeld auf einen Eintrag klicke, führt er sofort die Aktion aus.
Das ist aber nicht so gewollt!
Denn ich möchte ja vielliecht im Listenfeld mit den Pfeiltasten noch einen Eintrag auswählen unddann erst die Aktion ausführen!

Gruß
Eisfuchs

 

Hallo,
nimm das Ereignis "Beim Doppelklicken" dann.