Jeg takker for svaret. Det ser meget brugbart ud.
MVH
Dennis Olesen
"Joachim Boll" <joachimFJERN@DETTEinmedico.dk> skrev i en meddelelse
news:403f14bf$0$1641$edfadb0f@dread14.news.tele.dk...
> Du kan søge vha. SQL, det virker super godt, og tager ikke højde for store
> og små bogstaver
> her er et eksembel:
>
> Dim sql_N As String, _
> sql_M As String, _
> sql_E As String, _
>
> '**** forklaring på overstående
> '**** N': Navn
> '**** M': Mellemnavn
> '**** E': Efternavn
>
>
>
> '***** her kommer søgekriteriene, nu kan du enten søge på 'Navn' eller
> 'Efternavn' eller 'Mellemnavn' søgningerne bliver sorteret efter A-Z på
> navnet
>
> sqltxt = "SELECT * FROM Data1 WHERE Navn LIKE '" & sql_N & "*'" & _
> "AND Efternavn LIKE '" & sql_E & "*'" & _
> "AND Mellemnavn LIKE '" & sql_M & "*'" & _
> "ORDER BY navn "
>
> Data1.RecordSource = sqltxt '***** søgekriteriene
bliver
> lagt over i Data1 kontrollen
> Data1.Refresh '***** husk at
> opdatere Data1 kontrollen
>
>
> VH Joachim Boll
>
>
>
> "Dennis Olesen" <olesen_@_c.dk> skrev i en meddelelse
> news:403e36e2$0$29334$edfadb0f@dread15.news.tele.dk...
> > Jeg er ved at lave en lille database. Jeg har fået lavet en lille søge
> > funktion men den virker lidt for svag. Hvis man vil finde nogle data så
> skal
> > man skrive hele ordet, hvis ordet er skrevet med stort i databasen så
> >
> > soegenavn = InputBox("Skriv navnet på firmaet du vil søge efter.",
"Firma
> > navn søgning")
> > Data1.Recordset.MoveFirst
> > Do While Data1.Recordset.EOF = False
> > If Data1.Recordset("Firma Navn") = soegenavn Then
> > Exit Sub
> > End If
> > Data1.Recordset.MoveNext
> > Loop
> > MsgBox "Firmaet findes ikke i denne database"skal man også søge
efter
> > ordet med stort.Hvordan laver man en rigtig god søge funktion. her er
den
> > som jeg har skrevet:
> >
> > Håber der er nogen som forstå hvad jeg skriver og vil hjælpe.
> >
> > MVH
> > Dennis Olesen
> >
> > "Øvelse gør mester"
> >
> >
>
>