Recordset from a Form

[Joakim N]

Hi,



I want to get the Recordset in a Form. I get Error #13 (Type mismatch) on the command:

Set rst = Me.Recordset

Can someone help me what I am doing wrong. The form is active. I added som code do doublecheck that.

Private Sub cmdMoveUp_Click()
    Dim rst As ADODB.Recordset
    Dim fld As Field
    
    'Just for test to show that form is active
    Debug.Print Me.txtSkill.Value
    
    Set rst = Me.Recordset               'Here I get an error
    For Each fld In rst.Fields
        Debug.Print fld.Name
    Next fld
End Sub

[ranman256]

Use the query the form is using,then create a new recordset.

set rst =currentdb.openrecordset("qsFormQuery")

[Joakim N]

Thanks,

I tested to change ADODB.Recordset to only Recordset in declaration. Then my original code worked.

Private Sub cmdMoveUp_Click()
    Dim rst As Recordset
    Dim fld As Field

    Set rst = Me.Recordset
    For Each fld In rst.Fields
        Debug.Print fld.Name
    Next fld
End Sub