Run-Time Error 13 Type Mismatch

[Ray Todd Jr]

This function causes a Run-Time Error 13, Type Mismatch Error on this line:

set rstclone=frm.recordsetclone

What have i done incorrectly to cause this error?

Thanks,

Ray.


Public Function DisableEnable(frm As Form)
Dim rstClone As Recordset

Set rstClone = frm.RecordsetClone

If frm.NewRecord Then
frm!cmdFirst.Enabled = True
frm!cmdNext.Enabled = False
frm!cmdPrevious.Enabled = True
frm!cmdLast.Enabled = True
frm!cmdNew.Enabled = False
Exit Function
End If

frm!cmdNew.Enabled = True

If rstClone.RecordCount = 0 Then
frm!cmdFirst.Enabled = False
frm!cmdNext.Enabled = False
frm!cmdPrevious.Enabled = False
frm!cmdLast.Enabled = False
Else
rstClone.Bookmark = frm.Bookmark
rstClone.MovePrevious
If rstClone.BOF Then
frm!cmdFirst.Enabled = False
frm!cmdPrevious.Enabled = False
Else
frm!cmdFirst.Enabled = True
frm!cmdPrevious.Enabled = True
End If
rstClone.Bookmark = frm.Bookmark

rstClone.MoveNext
If rstClone.EOF Then
frm!cmdNext.Enabled = False
frm!cmdLast.Enabled = False
Else
frm!cmdNext.Enabled = True
frm!cmdLast.Enabled = True
End If
End If
End Function

 

[Brendan Reynolds]

The article at the following URL explains it ...

http://www.mvps.org/access/bugs/bugs0031.htm

 

[Ray Todd Jr]

Brendan:

That fixed it.

Thanks,

Ray.

The article at the following URL explains it ...

http://www.mvps.org/access/bugs/bugs0031.htm