Having problems updating code. I need it to look at multiple Origin_Date columns (Origin_Date2 & Origin_Date3).
Current VBA
I also tried
Current VBA
Code:
' If Opened Date From
If (IsDate(Me.OpenedDateFrom) And IsDate(Me.OpenedDateTo)) Then
strWhere = strWhere & " AND [CAReport.Origin_Date] BETWEEN #" & Format(Me.OpenedDateFrom, "mm\/dd\/yyyy") & _
"# AND #" & Format(Me.OpenedDateTo, "mm\/dd\/yyyy") & "#"
ElseIf Nz((Me.OpenedDateFrom) And (Me.OpenedDateTo)) <> "" Then
strError = cInvalidDateError
End If
Code:
strWhere = strWhere & " AND " & "[CAReport.Origin_Date] >= " & GetDateFilter(Me.OpenedDateFrom) _
& " OR [CAReport.Origin_Date2] >= " & GetDateFilter(Me.OpenedDateTo) _
& " OR CAReport.Origin_Date3] >= " & GetDateFilter(Me.OpenedDateTo)
Last edited by a moderator: