Søgefunktion

For mig lyder det lidt som om du måske allerede har lavet det som du ønsker.
Men hvordan selecter du i DB, med en select * from Tabel where branchekode = kode??

jeg bruger dette til at søge .mit problem er at jeg gerne ville lave en liste sådan at når jeg søgte på branche kode fik jeg retur en liste over alle dem der har denne branche kode ....og jeg kan kun ganske få sql koder, det er en acces database !


Dim sogefelt As String
sogefelt = InputBox("TAST Brancekode")
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
    If Data1.Recordset("Branche kode") = sogefelt Then
    Exit Sub
    End If
    Data1.Recordset.MoveNext
    Loop
    MsgBox "der er ikke nogen branche med den kode"

End Sub

Ok, du henter hele tabellen ind og cykler gennem til først element, du skal bare have den til at fortsætter efter den har fundet først element.

Nu ved jeg så ikke lige hvad du vil med de kontaktpersoner du finder, men her er et eksempel. Kræver at du tilføjer en listbox til din form.

  Dim sogefelt As String
  sogefelt = InputBox("TAST Brancekode")
  Data1.Recordset.MoveFirst
  List1.Clear
  Do While Data1.Recordset.EOF = False
    If Data1.Recordset("Branche kode") = sogefelt Then
      List1.AddItem Data1.Recordset("Kontakt personer")
    'Exit Sub
    End If
    Data1.Recordset.MoveNext
  Loop
  If List1.ListCount = 0 Then
    MsgBox "der er ikke nogen branche med den kode"
  End If

Så kører den gennem alle dine linier i databasen før den stopper.

lige det jeg manglede tak for hjælpen