Kombinationsfeld automatisch klappen

Frage:
In einem Formular sind verschiedene Kombinationsfelder vorhanden. Sobald ein Feld den Fokus erhält, soll sich sofort das Auswahlmenü öffnen, ohne dass ich extra auf den Pfeil klicken muss. Welche Einstellungen sind dafür vorzunehmen?

 

Antwort: Dafür benötigen Sie VBA-Unterstützung:

1. Kopieren Sie die folgende Funktion in ein neues oder in ein vorhandenes Modul:
   Function AutoDropDown()
   On Error Resume Next
   Screen.ActiveControl.Dropdown
   End Function
2. Öffnen Sie das gewünschte Formular im Entwurfsmodus.
3. Markieren Sie die Kombinationsfelder, deren Auswahllisten automatisch aufklappen sollen, mit gedrückter Umschalt-Taste.
4. Wählen Sie das Menü ANSICHT-EIGENSCHAFTEN an bzw. drücken Sie F4, um das Eigenschaftenfenster anzeigen zu lassen.
5. Tragen Sie in der Eigenschaft „Bei Fokuserhalt“ folgenden Ausdruck ein:
   =AutoDropDown()
6. Speichern Sie die Änderungen.

 

In Zukunft wird bei Aktivierung eines Kombinationsfeldes die Funktion „AutoDropDown“ aufgerufen, die wiederum für das Kombinationsfeld die Methode „Drop Down“ aufruft und damit die Auswahlliste öffnet. Sie können mit den Cursor– Tasten einen Eintrag auswählen und die Return-Taste drücken – es wird zum nächsten Feld gewechselt und dort ggf. die nächste Auswahlliste automatisch aufgeklappt.