Office: Datensätze, die ein bestimmtes Datum einschließen

Hallo Zusammen,

ich möchte herausfinden, ob es in einer Tabelle Einträge gibt, die ein bestimmtes Datum einschließen und gleichzeitig noch eine andere Bedingung erfüllen.

Die zu durchsuchende Tabelle tbl_Vergabe hat z.B. unter anderem diese Felder:

VergebenDatVon (Datum)
VergebenDatBis (Datum)
VergebenObjekt (Zahl)

Ich hatte mir vorgestellt eine Funktion zu erstellen, die überprüft, ob es Datensätze gibt, bei denen VergebenObjekt = 3 und VergebenDatVon < AusgabeDatum und (VergebenDatBis > AusgabeDatum ODER VergebenDatumBis = LEER / nicht gefüllt)

Ich schätze das geht mit DCount, stelle mich aber mit dem Erstellen etwas blöd an, verstehe die Beispiele gerade nicht. :-(

Also ungefähr so:
function TagXVergeben(AusgabeDatum as date, Objekt as long) as boolean
if DCount("*", "tbl_Vergabe", "[VergebenObjekt] =" & Objekt & " AND "[VergebenDatVon] <= " & AusgabeDatum & " AND ([VergebenDatBis] >= " & AusgabeDatum & " OR [VergebenDatBis] = ''")) > 0 then
TagXVergeben = True
else
TagXVergeben = False
end if
end function

Aber irgendwie ist da noch kompletter Murks drin. Er nimmt die function nicht an, will Listentrennzeichen oder Klammern haben. Ich stocher gerade etwas blind rum...
Sorry, brauche wohl nicht erwähnen, dass ich noch nicht so weit bin...

Wäre für Hilfe dankbar!

Beere

 

Hallo nochmal,
ich denke ich habe ein Problem mit dem Datum in DCount...

Und zwar habe ich (nach vielen erfolglosen Versuchen) die folgende Codezeile mal ausprobiert:
DCount("*", "[tbl_Vergabe]", "[VergebenObjekt] = " & Objekt & " AND [VergebenNam] = 'Fritz'")
Das funktioniert ganz toll.

Probiere ich es mit einem Datum bekomme ich es nicht hin:
DCount("*", "[tbl_Vergabe]", "[VergebenObjekt] = " & Objekt & " AND [VergebenDatVon] = '01.01.2022'")
Datentypkonflikt in Kriterienausdruck

Auch das hier führt zum Fehler:
DCount("*", "[tbl_Vergabe]", "[VergebenObjekt] = " & Objekt & " AND [VergebenDatVon] = " & Date)
Fehler 3075 ; Syntaxfehler in Zahl in Abfrageausdruck '[VergebenObjekt] = 2 AND [VergebenDatVon] = 18.10.202'

Achtung: Da steht echt das Jahr 202, nicht 2022!
Was mache ich denn hier falsch?

Danke,
Beere

 

Hallo, ich habe die Funktion jetzt nicht explizit ausprobiert, aber Datumswerte müssen in # eingeschlossen werden, wenn das Vergleichsfeld den Feldtyp Datum hat.
Beispiel: .....[Datumsfeld] = #" & Format(Suchdatum, "yyyy-mm-dd") & "#")
also dieses Format: #2022-10-18#

 

Hallo Andyfau,
vielen Dank für Deine Antwort. So etwas in der Art hatte ich auch schon ausprobiert, hat leider nicht funktioniert. Was aber bei mir geholfen hat war etwas in der Art:

...AND ([VergebenDatVon] <= " & CDbl(AusgabeDatum) ...

Thema ist damit erledigt. :-)

Danke,
Beere