Hallo Leute,

Ich sitze nun seit 2 Stunden an dieser Aufgabe und komme einfach nicht weiter.

Ich gehe auf Suchen und gebe mit einem Joker ein Eintrag ein, aber bekomme keine Rückmeldung.

Zudem soll die InputBox erneut aufgerufen werden, wenn ich auf Retry klicke. Was kann ich da machen?

Code ist:

Private Sub cmdSuchen_Click()
'ErrorHandler
    On Error GoTo Mldg
'Deklaration
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strInput As String
    Dim IntI As Integer
    Dim intWahl As Integer
    Dim intAnz As Integer
    Dim strTxt1 As String
    Dim strTxt2 As String
    Dim strMsg As String
'InputBox mit Schleife
    strInput = InputBox("Geben Sie mit einen Sternchen * eingefassten" & vbCr & _
    "Suchbegriff ein.", "Suche mit Jokern", , 8000, 8000)
'Fehler Abfangroutine 1
    If strInput = "" Then Exit Sub
'Verweise
    Set db = CurrentDb
    strSQL = " SELECT * FROM tblMieter WHERE Bemerkung Like '" & strInput & "'"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'Fehler Abfangroutine 2
    If rs.RecordCount = 0 Then
       intWahl = MsgBox("Ihr Suchkriterium wurde nicht gefunden.", vbRetryCancel, "Microsoft Access")
    End If
    If intWahl = vbRetry Then
        
    Else
        SendKeys ("{esc}")
    End If
'Datensätze durchzählen
    rs.MoveLast
        intAnz = rs.RecordCount
    rs.MoveFirst
'Plural und Singular
    If intAnz = 1 Then
        strTxt1 = "Folgender Gast mit: " & strSQL & " wurde gefunden :" & vbCr & vbCr
    Else
        strTxt2 = "Folgende " & intAnz & " Gäste mit: " & strSQL & " wurden gefunden :" & vbCr & vbCr
    End If
'Schleife
    For IntI = 1 To intAnz
        strMsg = strMsg & "Name: " & rs("Vorname") & " " & rs("Nachname") & "," & " in " & rs("Ort") & " " & " TelNr: " & rs("TelNr") & vbCr
            rs.MoveNext
        Next IntI
        rs.Close
'MsgBox
    MsgBox strTxt1 & strTxt2 & strMsg, vbOKOnly + vbInformation, "Treffer:"
    Exit Sub
'ErrorHandler Sprungmarkierung
Mldg:
    MsgBox "Fehlermeldung: " & Err.Description & vbCr & vbCr & _
    "Fehlernummer: " & Err.Number
End Sub