Typs are incompatible, Controls

[Slangly]

Hi everybody!
First I have to say that I´m from Austria, so I hope you understand that my English is not perfect. So please keep your answers in an understanding form. Thanks

Now my problem:

I want to dis/enable some textboxes. I use the selfwritten function ButtonsPerson. When I start my form, I get the runtime error number 13, "Typs are incompatible".

Here are some parts of my code, which should be enough for you guys, to recognize the problem.

Thank you again.

Slangly

(global:)
Option Explicit
Option Compare Database
Dim rsFirma As New ADODB.Recordset
Dim rsPerson As New ADODB.Recordset
Dim cn As New ADODB.Connection


Private Sub Form_Load()
    Set cn = CurrentProject.Connection
    rsFirma.Open "firma", cn, adOpenStatic, adLockOptimistic, adCmdTableDirect
    rsPerson.Open "person", cn, adOpenStatic, adLockOptimistic, adCmdTableDirect
    rsFirma.Index = "PrimaryKey"
    rsPerson.Index = "PrimaryKey"
    DatenFirma
    DatenPerson
End Sub

Private Function ButtonsPerson(ByVal Modus As String)
Dim Feld As Field
Dim Name As String
    If (Modus = "Sperren") Then
        For Each Feld In rsPerson.Fields
            Name = "txtP" & Feld.Name
            Forms("firma").Controls(Name).Enabled = False
        Next
    End If
    If (Modus = "Freigeben") Then
        For Each Feld In rsPerson.Fields
            Name = "txtP" & Feld.Name
            Forms("firma").Controls(Name).Enabled = True
        Next
    End If
End Function

 

[Norie]

Where is the error occurring?

 

[Slangly]

I realized, that the error is occuring in the for each statement, also when I don´t write anything in the for each.
the type "field" must be false for recordset fields, but which type is the right one?

 

[Norie]

I see here that you have qualified various things as being ADODB objects, perhaps you also need to do this when declaring Feld.

Dim rsFirma As New ADODB.Recordset 
Dim rsPerson As New ADODB.Recordset 
Dim cn As New ADODB.Connection