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