Office: Messagebox bei Abrageresultat mit leeren Datensätzen

Hallo
Ich habe ein Einzelformular bei dem ich mit einem Klick auf einen Button eine Abrage ausführe, die mir dann nur noch gefilterte Datensätze im Formular anzeigt und nicht mehr alle Datensätze der zugrundeliegenden Tabelle.
Ich möchte nun folgendes erreichen: Sollte die ausgeführte Abfrage keine Datensätze fiinden, so soll eine Infobox angezeigt werden, die darauf hinweist, dass keine Datensätze gefunden wurden.

Wie stelle ich sowas an? Vielen Dank im voraus für eure Hilfe.

 

Hallo!

Das kein im Einzelfall auf verschiedene Weise realisiert werden.

1) Falls Du Deine Abfrage in der RecordSource-Eigenschaft des Formulars gespeichert hast, kannst Du die Formularmethoden/Eigenschaften verwenden, zB. das Formularereignis für den aktuellen Satz (des Formulars):

Code:

Public HatSätze As Boolean
Private Sub Form_Current()
    HatSätze = True
    With Me
        ' Überprüfe die RecordCount-Eigenschaft des Formulars:
        If .RecordsetClone.RecordCount = 0 Then
            ' Zeige Meldung an:
            MsgBox Prompt:="Kein Datensatz in der Abfrage.", _
                   Buttons:=vbCritical + vbOKOnly, _
                   Title:="Leere Abfrage"
            HatSätze = False
        End If
    End With
End Sub

2) Falls Du aber im Formular eine selbständige, von den Formulareigenschaften unabhängige Abfrage ausführst, wenn Du auf den Button klickst, kann das zB. wie folgt geschehen (für das folgende Beispiel musst Du die DAO-Bibliothek aktiviert haben):

Code:

Public HatSätze As Boolean
Private Sub Button_Click()
    Dim Abfr As DAO.Recordset
    With CurrentDb
       Set Abfr = .OpenRecordset("SELECT * FROM Tabelle WHERE Feld='Berta';")
       With Abfr
           ' Positioniere auf den 1. Satz der Abfrage:
           .MoveFirst
           ' Falls EOF trotzdem TRUE liefert, existiert kein 1. Satz -> Abfrage ist leer.
           If .EOF Then
              MsgBox Prompt:="Kein Datensatz in der Abfrage.", _
                     Buttons:=vbCritical + vbOKOnly, _
                     Title:="Leere Abfrage"
              HatSätze = False
           Else
              HatSätze = True
           End If
       End With
    End With
End Sub

Über eine zusätzliche Public-Variable HatSätze kannst Du in den beiden obigen Beispielen sogar noch außerhalb der SUBs testen, ob die Abfragen Datensätze lieferten oder nicht.