search on form controlled by a textbox

[wchitamb]

I have a textbox & a button on a form and would like to search a table. and have the result either on a subform or excel. with the code below nothing is happening.

Private Sub Command114_Click()
Dim strSQL As String
Dim strMyString As String
Dim rs As DAO.Recordset

strMyString = Forms![Main_Menu]!StrArticle
strSQL = "SELECT * FROM tblArticles " & _
"WHERE ArticleNo = '" & strMyString & "';"

Debug.Print strSQL

Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

If Not (rs.EOF) Then
'Debug.Print rs![strMyString]
Else
Debug.Print "Nothing found"
End If

Set rs = Nothing
End Sub

 

[pbaldy]

Have you looked at the Immediate window after running the code? I'd probably do:

Me.SubformName.Form.RecordSource = strSQL

 

[GinaWhipp]

You might be better off with the FindRecord method. Have a look at...
https://msdn.microsoft.com/en-us/library/office/ff835361.aspx?f=255&MSPPError=-2147217396

 

[wchitamb]

Thanks.i ended up having a text-box and a button (behind the button was a query that read the parameter on the text-box) and run the query to display the results

 

[pbaldy]

Most of us prevent users from seeing tables and queries, only forms and reports. You have little control over format and interactivity in tables and queries, and no events to work with.