Hallo
Ich möchte eine Abfdrage mit dem Befehl FindFirst in einer Tabelle „Kunden“ machen. Dafür gibt es ein Abfrageformular mit Namen, Strasse und Ort.
Alle diese Parameter werden eingelesen und variablen zugeordnet.
Die Suche soll nach dem Namen (Namen1) erfolgen.
Follgender Code habe ich mal zusammengestellt.
Jetzt gibt es aber da einb Problem mit dem befehl FindFirst, sowie auch mit dem Type dbOpenShnapshot. Shnapshot habe ich dann ausgelassen, weil es anscheinend nur so Funktioniert, da die ganze Tabelle nur Lokal existiert (nehme ich mal an). Aber wo liegt der Fehler bei der FindFirst anweisung? Wer kann mir weiterhelfen?
Public Sub Kunden()
Dim Namen1 As String
Dim Strasse As String
Dim Ort As String
Dim rs As Variant
Set rs = CurrentDb.OpenRecordset(„Kunden“)'Öffnet die angegebene Datenbank
Do While True
With rs
.MoveLast
.findfirst Namen1
If .NoMatch Then
MsgBox „Keine Datensätze gefunden!“
Exit Do
End If
End With
Loop
End Sub
Ich bedanke mich herzlich für jeden Tip.
Grüsse Sebastian