Meldung wenn SELECT keine Datensätze ergibt

[Beate1953]

Hallo,

ich habe einen SELECT-String, der mir alle Datensätze liefert, deren Datum zwischen Anfdat und Enddat (beides Public DateVariablen) liegt.

Jetzt brauche ich ein If, das mir eine Meldung ausgibt, wenn es keine Datensätze gibt, deren Datum zwischen Anfdat und Enddat liegt.
Also so etwa:
IF (SELECT keine Treffer ergibt) THEN
   MsgBox("Keine Datensätze vorhanden")
END IF

Ich habe keine Ahnung, wie ich das machen soll.



Falls es interessiert, folgt nun der SQL-String:

SQLstr = "SELECT Posten.Barcode, Posten.[Bezeichnung (Typ, genaue Bezeichnung)], Gerätegruppen.Bezeichnung, "
SQLstr = SQLstr & "Abteilungen.Ort, [E-Check].[E-Check], [E-Check].Datum, [E-Check].Bemerkung "
SQLstr = SQLstr & "FROM (Gerätegruppen INNER JOIN Posten ON Gerätegruppen.[GerätegruppeID] = Posten.[Gerätegruppe]) "
SQLstr = SQLstr & "INNER JOIN (Abteilungen INNER JOIN [E-Check] ON Abteilungen.[ID] = [E-Check].[Ort]) "
SQLstr = SQLstr & "ON Posten.[Barcode] = [E-Check].[Barcode] "
SQLstr = SQLstr & "WHERE [E-Check].Datum Between " & Format(Anfdat, "\#yyyy-mm-dd\#") & " AND " & Format(Enddat, "\#yyyy-mm-dd\#")


Ich hoffe, Ihr könnt mir wieder einmal helfen.

Viele Grüße
Beate1953

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

Dim rs as Dao.Recordset

Set rs=Currentdb.Openrecordset (SQLstr ,dbOpensnapshot)
If rs.BOF And rs.EOF Then
   MsgBox "Keine Datensätze vorhanden"
End If

rs.Close
Set rs=Nothing

[Beate1953]

Hallo,

Du bist einfach super, das funktioniert prima!!!

Vielen Dank
Beate1953