Probleme med Dcount

Hej igen eksperten....

Jeg har et problem med Dcount, hvor jeg har noget kode der skal checke om et lokale kan bookes på i et valgt tidsrum.

Hvis den finder en record der opfylder de indtastede kriterier, så er lokalet booket indenfor tidsrummet, og kan derfor ikke bookes igen.

Der er flere dcounts, som skal lede på forskellige kriterier, for at imødekomme at man laver forskellige kombinationer af start og slut tid for bookingen. Jeg er ikke færdig med alle de forskellige "Where" kriterier endnu.

Problemet er at selvom jeg bruger kriterier der burde udløse en record, så sker det ikke. Jeg har checket ved at bruge kriterierne i en forespørgsel, og den rigtige record kommer op. Kan nogen af jer se hvad der er forkert i min Dcount ?


Her er koden:


Dim frakl As Date, tilkl As Date, dato As Date

frakl = [Forms]![FM_book_lokale]![tidfra]
tilkl = [Forms]![FM_book_lokale]![tidtil]
dato = [Forms]![FM_book_lokale]![dato]

where1 = "[DT_rum].[IDrum]= " & [Forms]![FM_book_lokale]![IDrum] & " AND [DT_tilbudskalender].[dato] = #" & dato & "# AND [DT_tilbudskalender].[starttid] <= #" & frakl & "# AND [DT_tilbudskalender].[sluttid] >= #" & tilkl & "#"
where2 = "[DT_rum].[IDrum]= " & [Forms]![FM_book_lokale]![IDrum] & " AND [DT_tilbudskalender].[dato] = #" & dato & "# AND [DT_tilbudskalender].[starttid] > #" & frakl & "# AND [DT_tilbudskalender].[sluttid] < #" & tilkl & "#"

If DCount("*", "F_rum_paa_dato_og_tid", where1) > 0 Or DCount("*", "F_rum_paa_dato_og_tid", where2) > 0 Then
    P = MsgBox("Rummet er booket i det angivne tidsrum", vbOKOnly)
    Exit Sub
Else
    'her skal der være en update forespørgsel som opretter bookingen med IDrum, dato, tidfra, tidtil, tilbudstype(mødebooking) og IDmedarbejder
    P = MsgBox("rummet kan bookes i det angivne tidsrum", vbOKOnly)
End If