Mulity Texbox Filtering not working

[inthu]

Option Compare Database

Private Sub cmdSearch_Click()
On Error GoTo errr


Me.FloorMaintanance_subform.Form.RecordSource = SQL = "SELECT FloorMaintanance.* from FloorMaintanance " & BuildFilter
Me.FloorMaintanance_subform.Requery
Exit Sub
errr:


MsgBox Err.Description
End Sub


Private Function BuildFilter() As Variant
Dim varWhere As Variant
varWhere = Null


If Me.txtFloor > "" Then
varWhere = varWhere & "[FloorNO] like " & Me.txtFloor & " AND "
End If


If Me.txtstatus > "" Then
varWhere = varWhere & "[Status] like " & Me.txtstatus & " AND "
End If


If Me.txtCat > "" Then
varWhere = varWhere & "[Catergory] like " & Me.txtCat & " AND "
End If


If IsNull(varWhere) Then
varWhere = ""
Else
varWhere = "WHERE" & varWhere

If Right(varWhere, 3) = "AND" Then
varWhere = Left(varWhere, Len(varWhere) - 3)
End If
End If

BuildFilter = varWhere
End Function

hi friends
this coding not working i dnt know y
plz solve my problem
thanks
inthu

[ItsMe]

What is the problem? How is it not working? How do you know it is not working?

[lfpm062010]

Did a quest test. It looks like the check for "AND" failed because you padded with a blank at the end. This should fix it.

If Right(RTRIM(varWhere), 3) = "AND" Then
varWhere = Left(varWhere, Len(varWhere) - 3)
End If
End If

[inthu]

because i run this form i click cmdSearch. there is no action i ll happen in the view page

[ItsMe]

place a debug line at the end of the function like this

BuildFilter = varWhere
debug.print varWhere
End Function

Look in the immediate window and paste the result here for us to look at. Immediate window can be viewed using Ctrl+G on your keyboard. I did not test the code, but I see a WHERE with quotes and no spaces. Also I still use + with variants rather than ampersands. And I am not sure what = SQL = is about.

[ssanfu]

If Me.txtstatus and Me.txtCat are text strings, then they need to be delimited.

For info about delimiters, see http://allenbrowne.com/binary/Access...Chapter_07.pdf