Double combined Search

[TNGgroup]

Hi,

I have a form, on top of that form I made a cbobox with values called
cboSearch1, but also 2 checkboxes (chkSearch2 & chkSearch3).
Now I like to put some code behind a Command Button, so that a search in the
currect recordset i made on 2 of the 3 field (always cboSearch1 &
ChkSearch1 or ChkSearch2)

Thx in advance

TNG

[Salad]

TNGgroup wrote:

Hi,

I have a form, on top of that form I made a cbobox with values called
cboSearch1, but also 2 checkboxes (chkSearch2 & chkSearch3).
Now I like to put some code behind a Command Button, so that a search in the
currect recordset i made on 2 of the 3 field (always cboSearch1 &
ChkSearch1 or ChkSearch2)

Thx in advance

TNG

Create a subroutine in the code. Maybe callit Findit(). You didn't say what
your were attempting to find. Here is something generic. It will not work,
it's just a blueprint on how you can do it.

Private Sub FindIt()
Dim rst As DAO.Recordset
Dim strFind As String 'holds the search filter
set rst = Me.Recordsetclone
strFind = "[YourFieldName] = '" & Me.cboSearch1 & "'" 'cbo value if text
field has single quotes
strFind = "[YourFieldName] = " & Me.cboSearch1 'cbo value if numeric
field has no quotes
If chkSearch2 then
strFind = strFind & " And [SecondField] = True"
else
strFind = strFind & " And [ThirdFieldField] = True"
endif

rst.findfirst strFind
If not rst.Nomatch then me.bookmark = rst.bookmark
set rst = Nothing
End Sub