Tipp 2.1 - Combobox öffnen

Wie kann ich eine angegebene Combobox per Code öffnen?

Mit dieser Funktion können Sie eine angegebene Combobox per Code öffnen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

ab Access 2000Hinweis: Durch spezielle Anweisungen können Sie diese Funktion erst ab Access 2000 einsetzen.

Beispiel:

Option Explicit
 
Public Sub A2XCboOpen(pCbo As ComboBox)
  '// =====================================================
  '// Methode   | Öffnet die angegebene Combobox
  '// -----------------------------------------------------
  '// Parameter | pCbo - Combobox
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
 
  On Error GoTo HandleErr
  pCbo.SetFocus
  pCbo.Dropdown
 
HandleExit:
  Exit Sub
 
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "basFrm.A2XCboOpen"
  End Select
  Resume HandleExit
End Sub


Zurück | Inhalt | Tipp 2.2 - Ersten Eintrag in der Combobox Weiter