Ausschrift, wenn eine Suche kein Ergebnis liefert

[GonzoWiefel]

Hallo, ich habe in meinem Formular ein Suchfeld mit folgendem Code:

Code [Auswählen] Erweitern

Private Sub txtSuche_AfterUpdate()
Dim strFilter As String
    If Not IsNull(Me!txtSuche) Then
        strFilter = "Aktenbetreff LIKE '*" & Me!txtSuche & "*' OR Vorgangsbetreff LIKE '*" & Me!txtSuche & "*' OR Geschaeftszeichen LIKE '*" & Me!txtSuche & "*' OR BearbeitungDurch LIKE '*" & Me!txtSuche & "*' OR Bearbeiter LIKE '*" & Me!txtSuche & "*'"
        Me.Filter = strFilter
        Me.FilterOn = True
    End If
End Sub
Wenn die Suche kein Ergenis liefert, zeigt der Bildschirm eine leere Seite. Ich hätte nun gern, dass da die Information gegeben wird, dass kein Treffer vorliegt.
Könnt ihr mir da weiterhelfen. Danke im voraus

[Beaker s.a.]

Code [Auswählen] Erweitern

        ...
        Me.FilterOn = True 'Filter anwenden
              If Me.Recordset.RecordCount = 0 Then
                  MsgBox "Keine Daten!"
              End If
    End If

[GonzoWiefel]

Vielen Dank!