Hallo
ich habe mir aus den verschiedenen anderen Foren ein stück Code herausgenommen und möchte es von einer expliziten suche in eine normale Suche verwandeln.
Bis jetzt wird mit Find Criteria:=Str, nach dem ergebniss gesucht.
Bsp suche nach "Freiberg" mit "Freiberg"
wie kann ich daraus eine suche basteln, die mir alle ergebnisse liefern
Bsp suche nach "Freiberg" und "Freiburg" mit "Frei"
Sub Access_Kundensuche_einfach()
Dim conn As New Connection, rec As New Recordset
Dim Str As String
conn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" _
+ ThisWorkbook.Path + "\Test_Kunden.mdb"
Str = "KundenCode='" & Me.cmb_kcode_suche.Value & "'"
With rec
.Open "Kunden", conn, adOpenKeyset, adLockOptimistic
.MoveFirst
.Find Criteria:=Str, SearchDirection:=adSearchForward
If Not .EOF Then
Do While Not .EOF
Me.txt_kundencode.Value = .Fields("KundenCode").Value
Me.txt_firma.Value = .Fields("Firma").Value
Me.txt_kontaktperson.Value = .Fields("Kontaktperson").Value
Me.txt_position.Value = .Fields("Position").Value
Me.txt_strasse.Value = .Fields("Strasse").Value
Me.txt_plz.Value = .Fields("PLZ").Value
Me.txt_region.Value = .Fields("Region").Value
Me.txt_ort.Value = .Fields("Ort").Value
Me.txt_email.Value = .Fields("eMail").Value
Me.txt_telefon.Value = .Fields("Telefon").Value
Me.txt_telefax.Value = .Fields("Telefax").Value
.Find Criteria:=Str, SkipRecords:=1
Loop
Else
MsgBox "Kein Ergebnis gefunden!", vbOKOnly + vbCritical _
, "Fehler: Suche erfolglos!"
End If
.Close
End With
conn.Close
End Sub |