Dim frm as Form
Dim Ctrl as Control
Set frm = Form_frmZugang
For each ctrl in frm.Controls
Debug.Print "Typ:" & ctrl.ControlType & "Name: " & ctrl.Name
Next ctrl