Trouble with Query Statement

  • Thread starter Thread starter AussiesNAgility4Me
  • Start date Start date
A

AussiesNAgility4Me

I keep getting the following error with the code below: runtime error
'13'; Type mismatch.

Set rst = CurrentDb.OpenRecordset("SELECT tblCaseInfo.CaseID,
tblCaseInfo.DHSNo, tblCaseInfo.Region, tblCaseInfo.DHSAttny,
tblCaseInfo.CaseName, " _
& "tblAction.CaseID, tblAction.Actn, tblStatus.CaseId,
tblStatus.ClosedDate, tblStatus.StatusRptNotes " _
& "FROM (tblCaseInfo INNER JOIN tblAction ON tblCaseInfo.CaseId =
tblAction.CaseID) " _
& "LEFT JOIN tblStatus ON tblCaseInfo.CaseId = tblStatus.CaseId "
_
& "WHERE ((tblStatus.ClosedDate) Is Null);")

I tested the above SQL statement as a regular query and it works. Can
anyone tell me where I went wrong in the proper VB phrasing of the
statement above?

FYI, I am trying to pass information to an Excel spreadsheet. If you
need more of the code to answer, let me know.
TIA
S. Jackson
 
How have you declared rst (and what version of Access are you using)?

Since you're attempting to open a DAO recordset, try:

Dim rst As DAO.Recordset
 
I have seen this error when there are differnt data types in the join fields
in differnt tables. Are the data types the same for tblCaseInfo.CaseId,
tblAction.CaseID, and tblStatus.CaseId ?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

This doesn't work 9
How do I assign an unbound object in a report? 1
Like Expression in Query 5
Using SQL Query Code in Form Module to Return Record Count 2
IIf Statement in Query Criteria 1
Can't add records to statement with two many-to-many joins. 3
Help on DBRW custom query with 2 INNER JOIN statements 1
SQL statement works in a query, but not in VBA 5

Back
Top