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
Hallo,
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
Hallo,
Du bist einfach super, das funktioniert prima!!!
Vielen Dank
Beate1953