The following line in the code below generates a Data Type Mismatch Error any ideas why? I took the code straight out of a MSAccess book.
Set R = CurrentDb.OpenRecordset(SQLText)
Private Sub Command32_Click()
cDim R As Recordset, SQLText
SQLText = "Select * From Product Where Catalog = 'CAT3'"
Set R = CurrentDb.OpenRecordset(SQLText)
If R.RecordCount Then
MsgBox "Record exists"
Else
MsgBox "Record not found"
End If
End Sub
Here's to alcohol...the cause of ... and solution to ... all of life's problems - - Homer J. Simpson