Abeetan
Member
- Local time
- Today, 06:11
- Joined
- Nov 30, 2021
- Messages
- 39
I am not exactly sure what's going on, but there is an issue I am running into. My date entries don't show when I run my SQL statement on a search form.
here is a post I came across that talks about the same issue I am going through
here is a post I came across that talks about the same issue I am going through
Code:
Function SearchCriteria()
Dim strProjectCode, strRequestNumber, strCompName, strSdate, strRdate As String
Dim task, strCriteria As String
'Check if Project Code Textbox is blank
If IsNull(Me.txtS_PC) Then strProjectCode = "[ProjectCode] like '*'" Else
strProjectCode = "[ProjectCode] = '" & Me.txtS_PC & "'"
End If
'Check if Request Number Textbox is blank
If IsNull(Me.txtS_RN) Then strRequestNumber = "[RequestNumber] like '*'" Else
strRequestNumber = "[RequestNumber] = '" & Me.txtS_RN & "'"
End If
'Check if Company Name Textbox is blank
If IsNull(Me.txtS_CompNa) Then strCompName = "[companyName] like '*'" Else
strCompName = "[companyName] = '" & Me.txtS_CompNa & "'"
End If
'Check if Sent Date Textbox is blank
If IsNull(Me.txt_Search_Sdate) Then strSdate = "[DateRequestSent] like '*'" Else
strSdate = "[DateRequestSent] = #" & txt_Search_Sdate & "#"
End If
'Check if Received Date Textbox is blank
If IsNull(Me.txt_Search_Rdate) Then strRdate = "[DateReceived] like '*'" Else
strRdate = "[DateReceived] = #" & txt_Search_Rdate & "#"
End If
strCriteria = strProjectCode & "And" & strRequestNumber & "And" & strCompName & "And" & strSdate & "And" & strRdate
task = "SELECT * from qryRequestInternal where " & strCriteria
Me.sfrmRequestInternal.Form.RecordSource = task
Me.sfrmRequestInternal.Form.Requery
Me.sfrmRequestInternal_col.Form.RecordSource = task
Me.sfrmRequestInternal_col.Form.Requery
End Function
Last edited: