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