VBA Tipp: Feststellen, ob ein Steuerelement existiert

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte feststellen, ob ein Steuerelement in einem Formular existiert.

Lösung

Das geht mit folgender Funktion, die in einem globalen Modul hinterlegt wird.

Public Function CtlExists(Form As Access.Form, _
                          CtlName As String) As Boolean
 
   'Quelle: http://www.dbwiki.net/
 
 
   Dim ctl As Access.Control
 
   For Each ctl In Form
      If ctl.Name = CtlName Then
         CtlExists = True
         Exit For
      End If
   Next
 
End Function

Aufruf

   If CtlExists(Me, "EinSteuerelementname") Then
      MsgBox "Das Steuerelement existiert."
   Else
      MsgBox "Das Steuerelement existiert nicht."
   End If