Søgefunktion i access?

Her er en søger i VBA:
Dim SQLstr As String
Dim serienr As String
Dim MSG As String
Dim Svar As Integer
Dim Ctrl As Control
DoCmd.GoToControl "serienr"
serienr = InputBox(Prompt:="Indtastserienr:" & vbNewLine & vbNewLine, Title:="Find serienr")
Me.RecordsetClone.FindFirst "serienr=  '" & serienr & "'"
While Me.RecordsetClone.NoMatch = True
If Me.RecordsetClone.NoMatch = True Then
Svar = MsgBox(Prompt:="serienr findes ikke", Title:="Søgningen lykkedes ikke")
Exit Sub
End If
Me.RecordsetClone.FindFirst "serienr=  '" & serienr & "'"
Wend
Me.Bookmark = Me.RecordsetClone.Bookmark

Jeg har flere demoer med søgefunktioner, Jeg kan tilsende dig.
;o)

vi gentager lige er virkelig grøn i acesss!!*G*

Hvis du har data i en forespørgsel der inkluderer feltet "serienr", kan du indsætte et kriterie i forespørgslen i feltet "serienr":

Like "*" & [Forms]![form1]![serienr] & "*"

Hej når du er grøn i acesss, Hvad så med de færdige jeg tilbyder dig. Bare læg din email adresse så sender jeg dem.

Prøv også at se disse spørgsmål (og svarene)

http://www.eksperten.dk/kat/33?searchtype=txt&words=search&method=and&sort=score&catid=33

ok skriv til krbe01@frederiksberg.dk

Er afsendt i access XP

Skulle du havde haft dem i en anden version. konvatere jeg dem bare.
;o)

vil kontroller dem når jeg kommer hjem

I have an example which I can send if you like

this example allows you to enter search criteria in one or more fields.