please help with this code 1

[Travis33]

I HAVE THIS CODE BELOW THAT i AM TRYING TO HAVE MY FORM WHEN I ENTER IN NUMBERS INTO A COMBO BOX SCROLL THROUGH THE RECORDS THAT MATCH PART OR ALL OF THE STRING.

**********************************************************
Dim db As database, rst As Recordset, strsql As String
Set db = CurrentDb
Str = "select * from [mtusparts01 query]= " & Me.[partnumber] & " * "
Set rst = db.openrecordset(strsql)
If rst.RecordCount >= 1 Then
Me.RecordSource = strsql
Else
Exit Sub
End If
rst.Close
Set db = Nothing
***********************************************************

when I try to compile the code it gives me an error on
me.[partnumber]
it tells me "Argument Not Optional"
How do I fix this so my code will run
Thank You,
Travis

 

[mike777]

Hope this helps. Why don't you just use the autoexpand feature of the combobox? Then you don't need this code.
Otherwise, something looks like it's wrong with your SQL string. You don't have a "WHERE" clause.
You have:
Str = "select * from [mtusparts01 query]= " & Me.[partnumber] & " * "
Try
Str = "select * from [mtusparts01 query] where [mtusparts01 query].[partnumber] like " & Me.[partnumber] & " * "
Note: The "[partnumber]" part of this refers to whatever the respective field in your query is named, of course.
Also, "like" should be used instead of "=" when using wildcards.
Huge success to you!

 

[mike777]

Hope this helps. Why don't you just use the autoexpand feature of the combobox? Then you don't need this code.
Otherwise, something looks like it's wrong with your SQL string. You don't have a "WHERE" clause.
You have:
Str = "select * from [mtusparts01 query]= " & Me.[partnumber] & " * "
Try
Str = "select * from [mtusparts01 query] where [mtusparts01 query].[partnumber] like " & Me.[partnumber] & " * "
Note: The "[partnumber]" part of this refers to whatever the respective field in your query is named, of course.
Also, "like" should be used instead of "=" when using wildcards.
Huge success to you!
Mike Kemp
kempmike65@aol.com