Senin, 15 April 2013

[MS_AccessPros] VBA question

 

Dear All,
I have a database that uses statuscode 10,20,30,40 and 50 to denote Reported, Planned, Scheduled, inprogress and completed respectively. The statuscode field is long integer data type. I have a search cum entry continuous form. In the unbound search combobox cboStatusCode, I have entered value list as 10,20,30,40,50, <30, <50 to where <30 indicates unscheduled job and <50 indicates unfinished jobs.

I am able to use the searchbox cboStatuscode to filter the form based on status of the job but when I use <30 and <50, it does not filter the joblist for unscheduled and unfinished jobs. Why?

I am using the following VBA for the same.
If Not IsNull(Me.cboSearchStatus) Then
strWhere = strWhere & "([StatusCode] Like """ & Me.[cboSearchStatus] & """) AND "
End If

If Me.cboSearchStatus = "<50" Then
strWhere = strWhere & "([StatusCode]<50) AND "
End If

If Me.cboSearchStatus = "<30" Then
strWhere = strWhere & "([StatusCode]<30) AND "
End If

----
Thanks and Regards,
Kumar

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (13)
Recent Activity:
.

__,_._,___

Tidak ada komentar:

Posting Komentar