Kombinationsfeld per VBA automatisch aufklappen

Per VBA lässt sich mit .DropDown ein Kombinationsfeld aufklappen. Das Kombifeld muss hierzu den Focus haben. Um z.B. dem Benutzer eine fehlende Auswahl zu melden und das Kombifeld zur Auswahl direkt zu öffnen kann man folgenden Code verwenden:

Code:

' Text-Auswahl im Kombifeld If IsNull(KombiName) Or KombiName = "" Then MsgBox "Bitte wählen Sie einen Wert aus!", 16, "Fehlende Eingabe" KombiName.SetFocus KombiName.DropDown End If   ' Zahl-Auswahl im Kombifeld If IsNull(KombiName) Or KombiName = 0 Then MsgBox "Bitte wählen Sie einen Wert aus!", 16, "Fehlende Eingabe" KombiName.SetFocus KombiName.DropDown End If

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!