Private Sub cmdSuchen_Click()
On Error GoTo Mldg
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
strInput = InputBox("Geben Sie mit einen Sternchen * eingefassten" & vbCr & _
"Suchbegriff ein.", "Suche mit Jokern", , 8000, 8000)
If strInput = "" Then Exit Sub
Set db = CurrentDb
strSQL = " SELECT * FROM tblMieter WHERE Bemerkung Like '" & strInput & "'"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
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
rs.MoveLast
intAnz = rs.RecordCount
rs.MoveFirst
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
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 strTxt1 & strTxt2 & strMsg, vbOKOnly + vbInformation, "Treffer:"
Exit Sub
Mldg:
MsgBox "Fehlermeldung: " & Err.Description & vbCr & vbCr & _
"Fehlernummer: " & Err.Number
End Sub