basic sql search code - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


basic sql search code

Private Sub comSearch_Click()
Dim search As String
Dim sBookmark As String
search = InputBox(" Enter the model you wish to see Search must be in this format eg Er-380")
search = Trim$(search)
If search <> "" Then
With Data1.Recordset
sBookmark = .Bookmark
.FindFirst " Model like '" + search + "*'"

If .NoMatch Then
MsgBox "No Matching Records"
.Bookmark = sBookmark
End If
End With
End If
End Sub

I need to change the above code so i only need t put part of the model number in and not the whole model number any help would be great.
Sign In or Register to comment.