Type Mismatch error

[pcdaveh]

I'm running the following code below and keep getting a type mismatch error in the open recordset statement. Code copied from:

http://support.microsoft.com/support/kb/articles/Q131/9/37.asp

Option Explicit

Dim DB As Database
Dim GrpPages As Recordset



Public Function GetGrpPages()
GrpPages.Seek "=", Me![CategoryName]
If Not GrpPages.NoMatch Then
GetGrpPages = Me.Page & "/" & GrpPages![Page Number]
End If
End Function



Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
Me.Page = 1
End Sub

Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
GrpPages.Seek "=", Me![CategoryName]
If Not GrpPages.NoMatch Then
If GrpPages![Page Number] < Me.Page Then
GrpPages.Edit
GrpPages![Page Number] = Me.Page
GrpPages.Update
End If
Else

GrpPages.AddNew
GrpPages![CategoryName] = Me![CategoryName]
GrpPages![Page Number] = Me.Page
GrpPages.Update
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Set DB = DBEngine.Workspaces(0).Databases(0)
DoCmd.RunSQL &quot;Delete * From [Category Group Pages];&quot;
Set GrpPages = DB.OpenRecordset(&quot;Category Group Pages&quot;, DB_OPEN_TABLE) 'Run-time 'error '13' type mismatch
GrpPages.Index = &quot;PrimaryKey&quot; ' What's up?
End Sub

 

[DougP]

is this Access 2000???? DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[pcdaveh]

I'm using access 2000.

 

[Databaseguy]

Go to the knowledgebase and search for Q209215


Your article was for version 2.0.