Hello guys,
I have a query below:
Where DueDate field came from the module below:
The query above is working fine... but when I created another query:
It gives an error message:
Data type mismatch in criteria expression
I am certain though that the link fields have the same data type (Reporting Period, Loan Number nad Date Assigned)
I tried though to remove the DueDate field from the query, and when I run it... the query runs fine... But when I put in the DueDate field again, it gives the Data Type mismatch error again...
Is there any way you could help me out debug this problem?
Any help is greatly appreciated.
Thank you,
I have a query below:
Code:
SELECT TotalScope_MaxDate.ReportingPeriod, TotalScope_MaxDate.LoanNumber, TotalScope_MaxDate.DateAssigned, TotalScope_MaxDate.RushReqDate, TotalScope_MaxDate.ResolvedIssueDate, TotalScope_MaxDate.MaxDate, IIf([TATRush]=0,[TATDays],[TATRush]) AS TotalTATTime, dateAddNoWeekends(Maximum([TotalScope_MaxDate].[DateAssigned],[TotalScope_MaxDate].[RushReqDate],[TotalScope_MaxDate].[ResolvedIssueDate]),[TotalTATTime]) AS DueDate
FROM (TotalScope_MaxDate LEFT JOIN TATDays ON (TotalScope_MaxDate.MAXDateMonth = TATDays.Month) AND (TotalScope_MaxDate.MAXDateYear = TATDays.Year)) LEFT JOIN TOtalScope_TATRush ON (TotalScope_MaxDate.LoanNumber = TOtalScope_TATRush.LoanNumber) AND (TotalScope_MaxDate.ReportingPeriod = TOtalScope_TATRush.ReportingPeriod)
WHERE (((TotalScope_MaxDate.Withdraw)=0))
GROUP BY TotalScope_MaxDate.ReportingPeriod, TotalScope_MaxDate.LoanNumber, TotalScope_MaxDate.DateAssigned, TotalScope_MaxDate.RushReqDate, TotalScope_MaxDate.ResolvedIssueDate, TotalScope_MaxDate.MaxDate, IIf([TATRush]=0,[TATDays],[TATRush]), TOtalScope_TATRush.TATRush, TATDays.TATDays;
Where DueDate field came from the module below:
Code:
Public Function dateAddNoWeekends(dtmDate As Variant, intDaysToAdd As Integer) As Date
Dim direction As Integer
Dim intCount As Integer
If IsNumeric(intDaysToAdd) And IsDate(dtmDate) Then
dateAddNoWeekends = dtmDate
If intDaysToAdd < 0 Then
direction = -1
ElseIf intDaysToAdd > 0 Then
direction = 1
Else
Exit Function
End If
Do
dateAddNoWeekends = dateAddNoWeekends + 1 * (direction)
If Not (Weekday(dateAddNoWeekends) = vbSaturday Or Weekday(dateAddNoWeekends) = vbSunday) Then
intCount = intCount + 1
End If
Loop Until intCount = Abs(intDaysToAdd)
End If
End Function
The query above is working fine... but when I created another query:
Code:
SELECT Switch([job_Tracking].[Signed Off] Is Not Null,"Signed Off",[job_Tracking].[On hold for Issue] Is Not Null,"On Hold for Issue",[job_Tracking].[QCCompleteDate] Is Not Null,"QC Complete",[job_Tracking].[AnalystCompleteDate] Is Not Null,"Ready for Review",[job_Tracking].[DateASsigned] Is Not Null,"Assigned",[job_Tracking].[DateAssigned] Is Null,"Not Assigned") AS Status, Job_Tracking.LoanNumber, Job_Tracking.ReportingPeriod, TotalSCOPE_TAT.DateAssigned, TotalSCOPE_TAT.RushReqDate, TotalSCOPE_TAT.ResolvedIssueDate, TotalSCOPE_TAT.MaxDate, TotalSCOPE_TAT.TotalTATTime, TotalSCOPE_TAT.DueDate
FROM Job_Tracking INNER JOIN TotalSCOPE_TAT ON (Job_Tracking.ReportingPeriod = TotalSCOPE_TAT.ReportingPeriod) AND (Job_Tracking.LoanNumber = TotalSCOPE_TAT.LoanNumber) AND (Job_Tracking.DateAssigned = TotalSCOPE_TAT.DateAssigned)
WHERE (((Job_Tracking.Withdraw)=0))
GROUP BY Switch([job_Tracking].[Signed Off] Is Not Null,"Signed Off",[job_Tracking].[On hold for Issue] Is Not Null,"On Hold for Issue",[job_Tracking].[QCCompleteDate] Is Not Null,"QC Complete",[job_Tracking].[AnalystCompleteDate] Is Not Null,"Ready for Review",[job_Tracking].[DateASsigned] Is Not Null,"Assigned",[job_Tracking].[DateAssigned] Is Null,"Not Assigned"), Job_Tracking.LoanNumber, Job_Tracking.ReportingPeriod, TotalSCOPE_TAT.DateAssigned, TotalSCOPE_TAT.RushReqDate, TotalSCOPE_TAT.ResolvedIssueDate, TotalSCOPE_TAT.MaxDate, TotalSCOPE_TAT.TotalTATTime, TotalSCOPE_TAT.DueDate
HAVING (((Job_Tracking.ReportingPeriod)<"2020*"));
It gives an error message:
Data type mismatch in criteria expression
I am certain though that the link fields have the same data type (Reporting Period, Loan Number nad Date Assigned)
I tried though to remove the DueDate field from the query, and when I run it... the query runs fine... But when I put in the DueDate field again, it gives the Data Type mismatch error again...
Is there any way you could help me out debug this problem?
Any help is greatly appreciated.
Thank you,