Hi Jeff,

Dim rstClone As dao.Recordset

Warm Regards,
Crystal
*
(: have an awesome day
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*



Jeff Monroe wrote:
I have a form with navigation buttons (First, Next, Previous, Last,
New). I am trying to make them "Smart" by enabling and disabling them
as per the position in the recordset (with the help of a book
tutorial).

When I try to use the form I get a "Run-time error '13': Type
mismatch". When I click debug the code that is highlighted is "Set
rstClone = frm.RecordsetClone". Here is a sample of the first part of
the code:

Public Function DisablEnable(frm As Form)
Dim rstClone As ADODB.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
...
End Function

The public function is kept in a module (basNavigationButtons) and I am
calling the function in the forms On Current event (
=DisablEnable([Form]) ). Lastly, I am using Access 2003.

PS: I have found this same error when using Set rstClone =
frm.RecordsetClone, but could not figure out why. I just had to move
on.

Jeff Monroe