Data type mismatch in criteria expression

[pbuethe]

I am getting a data type mismatch error on the following code, on the line in bold:

Private Sub cmdMarkEntered_Click()
Dim db As DAO.Database
Dim rst As Recordset
Dim qdf As QueryDef

Set db = CurrentDb
Set qdf = db.QueryDefs("qryfrmRefTrackingEntryNeeded")
For Each prm In qdf.Parameters
    prm.Value = Eval(prm.Name)
Next prm
[B]Set rst = qdf.OpenRecordset[/B]
Do While Not rst.EOF
 
   With rst
       .Edit
       !DataEntry = True
       !EntryDate = Now
       !EntryStaff = Me.txtUser.Value
       .Update
       .MoveNext
   End With
   
Loop

'Cleanup
Me.sfrmReferralDataEntry.Form.Refresh
rst.Close
Set rst = Nothing
End Sub

The query qryfrmRefTrackingEntryNeeded is:

SELECT qryCasesReferralAll.CaseNbr, qryCasesReferralAll.SampleNbr, qryCasesReferralAll.ProviderNbr, qryCasesReferralAll.ProviderName, qryCasesReferralAll.CUID, qryCasesReferralAll.Provider, qryCasesReferralAll.PatientName, qryCasesReferralAll.MedRecNbr, qryCasesReferralAll.MedicaidID, qryCasesReferralAll.AdmitDate, qryCasesReferralAll.DischDate, qryCasesReferralAll.ReviewLevel, qryCasesReferralAll.Outcome, qryCasesReferralAll.ReviewDate,  qryCasesReferralAll.DataEntry, qryCasesReferralAll.EntryDate, qryCasesReferralAll.EntryStaff
FROM qryCasesReferralAll
WHERE (((qryCasesReferralAll.DataEntry)=False));

qryCasesReferralAll:

SELECT tlkpReview.CaseNbr, tblWkshtHeader.SampleNbr, tblWkshtHeader.ProviderNbr, tblWkshtHeader.ProviderName, tblWkshtHeader.CUID, tblWkshtHeader.Provider, tblWkshtHeader.PatientName, tblWkshtHeader.MedRecNbr, tblWkshtHeader.MedicaidID, tblWkshtHeader.AdmitDate, tblWkshtHeader.DischDate, tlkpReview.ReviewLevel, tlkpReview.Outcome, tlkpReview.ReviewDate, tlkpReview.ReviewStaff, tlkpReview.LetterSent, tlkpReview.LetterDate, tlkpReview.LetterStaff, tblReferralTracking.Specialty1, tblReferralTracking.Specialty2, tblReferralTracking.Specialty3, tblReferralTracking.Specialty4, tlkpReview.DataEntry, tlkpReview.EntryDate, tlkpReview.EntryStaff, tblReferralTracking.NeedPC1, tblReferralTracking.PC1Assigned, tblReferralTracking.PC1Specialty, tblReferralTracking.UploadDate, tblReferralTracking.PC1ReturnDate, tblReferralTracking.PC1EntryDate, tblReferralTracking.PrelimLetterDate, tblReferralTracking.PrelimLetterStaff, tblReferralTracking.PC2Assigned, tblReferralTracking.PC2Specialty, tblReferralTracking.PC3Assigned, tblReferralTracking.PC3Specialty, tblReferralTracking.UR, tblReferralTracking.DRG, tblReferralTracking.QUAL
FROM tblWkshtHeader INNER JOIN (tlkpReview INNER JOIN tblReferralTracking ON tlkpReview.CaseNbr = tblReferralTracking.CaseNbr) ON tblWkshtHeader.CaseNbr = tlkpReview.CaseNbr
WHERE (((tblWkshtHeader.SampleNbr)>="1807.1.MULT.OFF") AND ((tlkpReview.ReviewLevel) Like "*PRA") AND ((tlkpReview.Outcome)="Referral") AND ((tlkpReview.ReviewDate)>=[Forms]![frmReferralDataEntry]![txtReviewDate] And (tlkpReview.ReviewDate)<[Forms]![frmReferralDataEntry]![txtReviewDate]+1));

I think the problem might be with the date criteria. ReviewDate in tlkpReview is Date/Time data type. txtReviewDate is a text box. I use the Date Picker to enter a date into txtReviewDate. Thanks for your help.

 

[Ranman256]

cant you use an update query, instead of all this code?

 

[pbuethe]

I just found out that I don't actually need this function on this form. It is used (and working with a different query) on another form in the database. So the solution turned out to be just to get rid of the button and its code. Thanks for your reply.