need to search access database

darthmill

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 to put part of the model number in and not the whole model number any help would be great.
Thanks

akbarvdy

Hai,

use % instead of * in findfirst line
.FindFirst " Model like '" + search + "%'"


all success
Akbar

darthmill

: Hai,
:
: use % instead of * in findfirst line
: .FindFirst " Model like '" + search + "%'"
:
:
: all success
: Akbar
:
nope could not get it to work came up saying no match found
[blue]Mill[/blue] :-)