You sure the code is for an MDB, and not an ADP?

Also, are you sure it's using frm.RecordsetClone, and not
frm.Recordset.Clone?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Jeff Monroe" wrote in message
...

Crystal:

That worked, thanks.

Do you have any idea why the tutorial book uses ADODB.Recordset? It's
throughout the whole chapter? Does it have anything to do witht the
references selected? Version of Access? I emailed the author but have
not received a response.

Jeff

strive4peace Wrote:
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



-




--
Jeff Monroe