FindFirst¦FindNext mit Parameter

Hallo
Ich habe follcenden Code. Nun möchte ich den Namen ‚Meier‘ durch eine Variable Nam ersetzen. Wie mache ich das?

Public Sub Kunden()
Dim Nam As String 'Parameter für den Namen anstelle von Meier
Dim rs As Variant
Set rs = CurrentDb.OpenRecordset("SELECT Kunden_Nummer, Name, Firma, Strasse, Ort " & „FROM Auftrag_Kunden ORDER BY Kunden_Nummer“) 'Öffnet die angegebene Datenbank
With rs
.FindFirst („Name = ‚Meier‘“)
MsgBox .Fields(„Name“).Value & Chr(13) & .Fields(„Strasse“).Value
End With
Do While True
With rs
.FindNext („Name = ‚Meier‘“)
If .NoMatch Then
MsgBox „Keine Datensätze gefunden!“
Exit Do
Else
MsgBox .Fields(„Name“).Value & Chr(13) & .Fields(„Strasse“).Value
End If
End With
Loop
rs.Close
End Sub

Besten dank für jeden Hinweis.

MFG Sebastian

Hi,

.FindNext („Name = '“ & Nam & „’“)

Tschau

Peter

Hallo
Ich habe follcenden Code. Nun möchte ich den Namen ‚Meier‘
durch eine Variable Nam ersetzen. Wie mache ich das?

Public Sub Kunden()
Dim Nam As String 'Parameter für den Namen anstelle von Meier
Dim rs As Variant
Set rs = CurrentDb.OpenRecordset("SELECT Kunden_Nummer, Name,
Firma, Strasse, Ort " & „FROM Auftrag_Kunden ORDER BY
Kunden_Nummer“) 'Öffnet die angegebene Datenbank
With rs
.FindFirst („Name = ‚Meier‘“)
MsgBox .Fields(„Name“).Value & Chr(13) &
.Fields(„Strasse“).Value
End With
Do While True
With rs
.FindNext („Name = ‚Meier‘“)
If .NoMatch Then
MsgBox „Keine Datensätze gefunden!“
Exit Do
Else
MsgBox .Fields(„Name“).Value & Chr(13) &
.Fields(„Strasse“).Value
End If
End With
Loop
rs.Close

End Sub

Besten dank für jeden Hinweis.

MFG Sebastian

Danke Peter für den Hinweis, jezt solte es gehen.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]