search record if found open form.

[cysklement]

Hi,

I need help with creating a just form that has an unbound textbox and a button for search record. For instance if the user enter the criteria in the textbox and the item matches the criteria in the search textbox. it will open up the form. it's like google website.......
Help pls.



thanks

[cysklement]

Hi I had found this coding but I just can't make it work to openform if records found...

Private Sub cmdSearch_Click()

If Len(cboSearchField) = 0 Or IsNull(cboSearchField) = True Then
MsgBox "You must select a field to search."

ElseIf Len(txtSearchString) = 0 Or IsNull(txtSearchString) = True Then
MsgBox "You must enter a search string."

Else

'Generate search criteria
GCriteria = cboSearchField.Value & " LIKE '*" & txtSearchString & "*'"

'Filter frmCustomers based on search criteria
Form_frmmultifunctionprinter.RecordSource = "select * from tblmultifunctionprinter where " & GCriteria
Form_frmmultifunctionprinter.Caption = "tblmultifunctionprinter (" & cboSearchField.Value & " contains '*" & txtSearchString & "*')"

'Close frmSearch
DoCmd.Close acForm, "frmSearch"
DoCmd.OpenForm acForm, "frmmachine"

MsgBox "Results have been filtered."

End If

End Sub

I added the code DoCmd.OpenForm acForm, "frmmachine"
but it seems doesn't work

Help pls.

[cysklement]

Hi I have encountered a problem. even the value is not accurate in the search box it will just pop up my form....
How do I make it as if the value entered in the search box in not in the db it will show a msg box...?

[pbaldy]

You could use a DCount() with your criteria variable. Pop your message box if the result is zero.