[Access] Na 14uur geen opdr meer voor volgende dag

[Toink]

Hoi,

Irri probleem:

Datums vergelijken gaat niet echt goed bij mij.

Situatie:

Ik heb een systeem en daar kun je opdrachten op invoeren. Na 14 uur 's middags mag je geen opdracht meer voor de volgende dag meer aannemen maar op z'n vroegst de daarop volgende dag.

Welke code gebruik ik nu?

Dim datumnu as date

datumnu = geselecteerde_datum

If datumnu <= Date + (10/24) Then 'dat is dus de huidige datum
MsgBox "U heeft een waarde ingevoerd die te vroeg is", vbOKOnly, "Fout"

If datumnu > Now + 7 Then
If MsgBox("U heeft een waarde ingevoerd die meer dan 1 week vooruit is. Weet u dit zeker?", vbYesNo, "Vraag") = vbYes Then
' doe maar wa anders

Ik zie dan in de debugger 2 datums, die lijken goed te zijn, maar als hij ze moet vergelijken dan doet hij het eigenlijk altijd fout. Wie biedt hulp?

[Uiligheid]

als je eens probeert te werken met Now, ipv datumnu ? Misschieen een ideetje, ik weenie of het wel werkt dan..

[Toink]

DatumNu dat is een datum die ik geselecteerd heb in een kalenderformpie dat ik gemaakt heb. Dus dat is niet now().

Stom... gewoon hier en daar wat haakjes eromkwakken en je probleem is opgelost.

----Einde topic----