Søgefunktieoin med flere kriterier

Søge i hvad?
En database, en tekstfil, et regneark, et dokument, ...?

Kan du selv finde ud af at lave søgningen, og mangler bare at få sat søgeordene ind?

Lidt mere beskrivelse...

Hej.

Ja, det lyder lidt diffust.  Vil du søge på alle poater, hvis kunde-efternavn ender på 'sen' og som har ordrenumre hvor ciffer 3 og 4 er '17' ?

Du skal i hvert fald gøre dig klart, og søgningen skal være 'enten - eller' - altså blot ét af kriterierne er opfyldt.  Eller om søgningen skal være 'både og' - altså at samtlige kriterier skal være opfyldt.

Jeg gætter på at det er recordsets, du vil udvælge fra.

martin_moth Jeg vil også gætte på at det er en database da elvstine skriver:
"søge i db." db=database

Hvis du kun vil søge i de felter som er udfyldt så kan du jo gøre sådan:

Private Sub Command1_Click()
Dim strSQL As String
Dim strSearch As String

  strSearch = ""

  If Len(txtOrdrenr.Text) > 0 Then
    strSearch = strSearch & " Ordrenr='" & txtOrdrenr.Text & "' AND"
  End If

  If Len(txtVarenr.Text) > 0 Then
    strSearch = strSearch & " Varenr='" & txtVarenr.Text & "' AND"
  End If

  If Len(txtKunde.Text) > 0 Then
    strSearch = strSearch & " Kunde='" & txtKunde.Text & "' AND"
  End If

  If Len(Leveringsuge.Text) > 0 Then
    strSearch = strSearch & " Leveringsuge='" & txtLeveringsuge.Text & "' AND"
  End If
 
  If strSearch <> "" Then
    strSearch = Mid$(strSearch, 1, Len(strSearch) - 4)

    'Stjerne (SELECT * FROM) kan du udskifte med fx. Ordrenr, Varenr, Kunde, Leveringsuge for at gøre din sql hurtiger.
    strSQL = "SELECT * FROM DIN_TABEL WHERE" & strSearch & ";"
   
    ' Så er det bare at fyre strSQL af..
  End If
End Sub

sorry - havde ikke læst ordenligt

SJH:

Det var lige det jeg mente. Jeg prøver det lige af.

Men kan den også som joern skriver finde kunder der ender på "sen"?

så skal du bare bruge LIKE '%SØGEORD%'

  If Len(txtKunde.Text) > 0 Then
    strSearch = strSearch & " Kunde LIKE '%" & txtKunde.Text & "%' AND"
  End If

En anden ting.. du skriver at Ordrenr og Varenr er tekstfelter?? er det ikke nummer som skal stå i dem da??

Det er ikke fordi det ikke vil virke.. men du kan sikkert komme ind i nogle problemer hvis du skal sorter (ORDER BY) så vil den sorter alfabetisk og ikke numerisk..

Hvis du ændre de to felter til "Tal" så skal de to se sådan ud:

  If Len(txtOrdrenr.Text) > 0 Then
    strSearch = strSearch & " Ordrenr=" & txtOrdrenr.Text & " AND"
  End If

  If Len(txtVarenr.Text) > 0 Then
    strSearch = strSearch & " Varenr=" & txtVarenr.Text & " AND"
  End If

Nej det skal ikke være af typen tal i Acces for vare nummer kan godt indeholde tal, men du har ret Ordre nr skal laves om til tal.

/Elvstine

Men i denne funktion skal de da udfylde alle felter.
Skal jeg ikke samle alle disse if'er??

sjh>>
Så har jeg fået kigget på det du skrev - det virker uden beklagelser!!
Smider du et svar??

Nu er der snart gået 1 år siden jeg spurgte efter et svar.

Hvis du ikke svarer inden da, så lukker jeg og tager point selv....!!!!

ok da ;)