Register om et feld eksisterer på en Subform

Jeg har en form med en subform benyttet son dataark.
I dataarket ligger der felder hvor jeg ønsker at tjekke om de eksisterer.

Jeg kan selvfølgelig tjekke om de eksisterer i tabellen men det ønsker jeg ikke da det ikke er sikkert tabel/form matcher

Denne nedenfor anførte funktion skulle kunne anvendes men melder fejl
For Each ctrl In Forms(strFormName)

Fejlen er at strFormName ikke eksisterer


Public Function FieldExists(strFieldName As String, strFormName As String) As Boolean
    On Error GoTo Err_FieldExists
   
    Dim ctrl As Control
   
    FieldExists = False

        For Each ctrl In Forms(strFormName)

        With ctrl
            If TypeOf ctrl Is TextBox Then
                If StrComp(.Name, strFieldName, vbTextCompare) = 0 Then FieldExists = True
            End If
'            Select Case .ControlType
'                Case acCheckBox, acTextBox, acListBox, acComboBox
'                    If StrComp(.Name, strFieldName, vbTextCompare) = 0 Then FieldExists = True
'            End Select
        End With
    Next

Exit_FieldExists:
    Exit Function

Err_FieldExists:
    MsgBox Err.Description, vbExclamation + vbOKOnly, "FieldExists"
    Resume Exit_FieldExists

End Function


Kan i hjælpe