Howdy, Stranger!

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

Categories

need to search access database

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

Comments

  • akbarvdyakbarvdy Member Posts: 2
    Hai,

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


    all success
    Akbar
  • darthmilldarthmill Member Posts: 7
    : 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] :-)

Sign In or Register to comment.