January 26th, 2007, 03:50 PM
|
|
Member
|
|
First recorded activity by OfficeFrustration: May 2006
Location: San Diego, CA
Posts: 27
|
|
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
Quote:
|
Originally Posted by strive4peace
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
|
|