icemonster
Registered User.
- Local time
- Yesterday, 20:23
- Joined
- Jan 30, 2010
- Messages
- 502
so this code seemed to work earlier now it wont. for some reason, it only works when i try to filter the date, but won't work with the text strings, any thing wrong with it?
PHP:
Function startReqList()
strStartSql1 = "SELECT qry_LABREQUEST4.LABREQUISITIONID, qry_LABREQUEST4.FLABREQUESTID, qry_LABREQUEST4.LRCREATEDONDATE, " _
& "qry_LABREQUEST4.CAGENCYNAME , qry_LABREQUEST4.PATIENT, qry_LABREQUEST4.LREQSERVICEDATE, qry_LABREQUEST4.LABREQSTATUS3, " _
& "qry_LABREQUEST4.LREQCLIENTID, qry_LABREQUEST4.LREQPATIENTID, qry_LABREQUEST4.LREQSERVICETIME, qry_LABREQUEST4.LREQFASTING, " _
& "qry_LABREQUEST4.LRIDC9DIAGNOSIS, qry_LABREQUEST4.LREMPLOYEEID, qry_LABREQUEST4.LRADDITIONALTEST, qry_LABREQUEST4.LRSTATUS, " _
& "qry_LABREQUEST4.LRCREATEDBYUSER, qry_LABREQUEST4.LROTHERTESTS, qry_LABREQUEST4.CPHONE1, qry_LABREQUEST4.CPHONE2, " _
& "qry_LABREQUEST4.CFAX1, qry_LABREQUEST4.CFAX2, qry_LABREQUEST4.CSTREET1, qry_LABREQUEST4.CSTREET2, qry_LABREQUEST4.CCITY, " _
& "qry_LABREQUEST4.CZIPCODE, qry_LABREQUEST4.CSTATE, qry_LABREQUEST4.CEMAIL1, qry_LABREQUEST4.CEMAIL2, qry_LABREQUEST4.CCONTACT1, " _
& "qry_LABREQUEST4.CCONTACT2, qry_LABREQUEST4.CADDEDBYID, qry_LABREQUEST4.CADDEDBYUSER, qry_LABREQUEST4.CADDEDONDATE, qry_LABREQUEST4.CADDEDONTIME, " _
& "qry_LABREQUEST4.PATIENTID, qry_LABREQUEST4.PLASTNAME, qry_LABREQUEST4.PFIRSTNAME, qry_LABREQUEST4.PPHONE1 , qry_LABREQUEST4.PPHONE2, " _
& "qry_LABREQUEST4.PSTREET1, qry_LABREQUEST4.PSTREET2, qry_LABREQUEST4.PCITY, qry_LABREQUEST4.PSTATE, qry_LABREQUEST4.PZIPCODE , " _
& "qry_LABREQUEST4.PSEX, qry_LABREQUEST4.PDOB, qry_LABREQUEST4.PHHA, qry_LABREQUEST4.PSSN, qry_LABREQUEST4.PADDEDBY, " _
& "qry_LABREQUEST4.PADDEDONDATE, qry_LABREQUEST4.PADDEDONTIME, qry_LABREQUEST4.BILLINGID, qry_LABREQUEST4.BPATIENTID, " _
& "qry_LABREQUEST4.BBILLTYPEID, qry_LABREQUEST4.BIDNO, qry_LABREQUEST4.BMEDICARENO, qry_LABREQUEST4.BOTHER, " _
& "qry_LABREQUEST4.BILLTOSELECT, qry_LABREQUEST4.BGROUPNO, qry_LABREQUEST4.PFONE1, qry_LABREQUEST4.PFONE2, qry_LABREQUEST4.PCOMPADDRESS, " _
& "qry_LABREQUEST4.CFONE1, qry_LABREQUEST4.CFONE2, qry_LABREQUEST4.CCOMPADDRESS, qry_LABREQUEST4.LRFASTING, qry_LABREQUEST4.CFFAX1, " _
& "qry_LABREQUEST4.CFFAX2, qry_LABREQUEST4.LABREQTIMEDATE, qry_LABREQUEST4.CFONE12, qry_LABREQUEST4.CFAX12, qry_LABREQUEST4.PFONE12, " _
& "qry_LABREQUEST4.LRIDCID, qry_LABREQUEST4.LREQDOCTORID, qry_LABREQUEST4.DOCTOR, qry_LABREQUEST4.DRNPI, qry_LABREQUEST4.LRCREATEDBYID, " _
& "qry_LABREQUEST4.LRRESCHEDULED, qry_LABREQUEST4.LRRESCHEDDATE, qry_LABREQUEST4.LRVERIFIED, qry_LABREQUEST4.LABREQSTATUS1, " _
& "qry_LABREQUEST4.LABREQSTATUS2, qry_LABREQUEST4.LABREQATTACHID, qry_LABREQUEST4.LRCREATEDONTIME FROM qry_LABREQUEST4 "
If Not IsNull(Me.txtLabReqID1) Then
strWhereSql1 = "WHERE qry_LABREQUEST4.LABREQUISITIONID Like '*" & Me.txtLabReqID1 & "*'"
Else
strWhereSql1 = ""
End If
If Not IsNull(Me.cboLabStatus1) Then
If strWhereSql1 = "" Then
strWhereSql1 = "WHERE qry_LABREQUEST4.LABREQSTATUS3 Like '*" & Me.cboLabStatus1 & "*'"
Else
strWhereSql1 = strWhereSql1 & "AND qry_LABREQUEST4.LABREQSTATUS3 Like '*" & Me.cboLabStatus1 & "*'"
End If
End If
If Not IsNull(Me.txtHHA1) Then
If strWhereSql1 = "" Then
strWhereSql1 = "WHERE qry_LABREQUEST4.CAGENCYNAME Like '*" & Me.txtHHA1 & "*'"
Else
strWhereSql1 = strWhereSql1 & "AND qry_LABREQUEST4.CAGENCYNAME Like '*" & Me.txtHHA1 & "*'"
End If
End If
If Not IsNull(Me.txtPatient1) Then
If strWhereSql1 = "" Then
strWhereSql1 = "WHERE qry_LABREQUEST4.PATIENT Like '*" & Me.txtPatient1 & "*'"
Else
strWhereSql1 = strWhereSql1 & "AND qry_LABREQUEST4.PATIENT Like '*" & Me.txtPatient1 & "*'"
End If
End If
If Not IsNull(Me.txtRDFrom) And Not IsNull(Me.txtRDTo) Then
dtStartDate1 = Me.txtRDFrom
dtEndDate1 = Me.txtRDTo
If strWhereSql1 = "" Then
strWhereSql1 = "WHERE qry_LABREQUEST4.LRCREATEDONDATE Between #" & dtStartDate1 & "# " _
& "And #" & dtEndDate1 & "# "
Else
strWhereSql1 = strWhereSql1 & "AND qry_LABREQUEST4.LRCREATEDONDATE Between #" & dtStartDate1 & "# " _
& "And #" & dtEndDate1 & "# "
End If
End If
If Not IsNull(Me.txtSDFrom) And Not IsNull(Me.txtSDTo) Then
dtStartDate2 = Me.txtSDFrom
dtEndDate2 = Me.txtSDTo
If strWhereSql1 = "" Then
strWhereSql1 = "WHERE qry_LABREQUEST4.LREQSERVICEDATE Between #" & dtStartDate2 & "# " _
& "And #" & dtEndDate2 & "# "
Else
strWhereSql1 = strWhereSql1 & "AND qry_LABREQUEST4.LREQSERVICEDATE Between #" & dtStartDate2 & "# " _
& "And #" & dtEndDate2 & "# "
End If
End If
strSortOrderSql1 = " ORDER BY qry_LABREQUEST4.LRCREATEDONDATE DESC;"
strSQL1 = strStartSql1 & strWhereSql1 & strSortOrderSql1
With Me.lstREQUISITION
.RowSource = strSQL1
.Value = Null
End With
End Function