Solved Search from form in another form

[FahadTiger]

Hi all experts..
I found this file on one of the respected sites..and when I enter a value in the search box, it shows me the records..and it works fine..
I tried to create another form that has a text box to search in that form..I tried a lot, but it shows me an error..any advice, I am completely confused

 

[Gasman]

Why not just show the code?
You do not even say what the error is?

 

[FahadTiger]

Why not just show the code?

u can see it when use the form search "form1"

 

[MajP]

Private Sub Command2_Click()
Dim rst As Recordset
Dim strSearch As String

strSearch = Nz(Me.txtFindNo, "NA")

If Not IsNumeric(strSearch) Then
  MsgBox "Must Provide a valid Country ID"
Else
    If Not CurrentProject.AllForms("frmCountries").IsLoaded Then
      DoCmd.OpenForm "frmCountries"
    End If
    Set rst = Forms!frmCountries.Recordset
    rst.FindFirst "CountrySN = " & strSearch
    If rst.NoMatch Then MsgBox "No country ID matches " & strSearch
End If
End Sub

The above works, but I would think a user would search by name. Why would they know the number they are looking for? So you would have a combobox instead of a textbox with all the names. Then using autocomplete if a user is looking for Haiti and types "H" it would bring up Haiti. Even if they are searching by number, I would use a combobox limited to list not a textbox.

 

[Gasman]

u can see it when use the form search "form1"

Perhaps, but why do I need to download a file just to see snippet of code?

 

[FahadTiger]

I found the solution... Thank you guys
Actually I was searching for records in one form through another form

 

[FahadTiger]

Now I read your post...how amazing you are...much better than what I came up with..its perfect

Private Sub Command2_Click()
Dim rst As Recordset
Dim strSearch As String

strSearch = Nz(Me.txtFindNo, "NA")

If Not IsNumeric(strSearch) Then
  MsgBox "Must Provide a valid Country ID"
Else
    If Not CurrentProject.AllForms("frmCountries").IsLoaded Then
      DoCmd.OpenForm "frmCountries"
    End If
    Set rst = Forms!frmCountries.Recordset
    rst.FindFirst "CountrySN = " & strSearch
    If rst.NoMatch Then MsgBox "No country ID matches " & strSearch
End If
End Sub

The above works, but I would think a user would search by name. Why would they know the number they are looking for? So you would have a combobox instead of a textbox with all the names. Then using autocomplete if a user is looking for Haiti and types "H" it would bring up Haiti. Even if they are searching by number, I would use a combobox limited to list not a textbox.