Public Function null_fields(formular As Form, Optional except As String)

For Each myCtl In formular.Controls
    If myCtl.Name <> except Then
    'MsgBox myCtl.Name
        Select Case myCtl.ControlType
            Case acTextBox, acComboBox
                myCtl.Value = Null
                
            Case Else
                ' mache nichts
        End Select
    End If
Next

Set myCtl = Nothing

End Function