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 StE_existiert(ByVal frm1 As Access.Form, _
                              ByVal StE_Name As String) As Boolean
 
 'Quelle: http://www.dbwiki.net/
 
 Dim ctl As Control
 
 StE_existiert = False
 
 For Each ctl In frm1.Controls
   If ctl.Name = StE_Name Then
     StE_existiert = True
   End If
 Next
 
End Function

Aufruf

 If StE_existiert(Me, "MeinSteuerelementname") Then
   MsgBox "Das Steuerelement existiert."
 Else
   MsgBox "Das Steuerelement existiert nicht."
 End If