Controleer op dubbelboekingen!

[Kris Wuyts]

Weet iemand soms raad?


Ik heb een niet-afhankelijk formulier gemaakt met een activeX kalenderbesturingselementbron. Als ik het formulier volledig heb ingetik, druk ik op een toets om te controleren of die datum al niet dubbelgeboekt is!

code:
DIM DB AS DAO.DATABASE
DIM rstCont as DAO.RECORDSET

set DB = Dbengine.workspaces(0).databases(0)
set rstcont = db.openrecordset("SELECT * FROM tblplanenfactureer WHERE [datum] =" me!caldat,db_open_dynaset)

if rstcont.EOF then
msgbox "Niets gevonden"
else
msgbox "er is al iets gepland"
end if


UItkomst geeft altijd niets gevonden ook al staan er in de tabel overeenkomstige data vb 03-02-2005

 

[beheer25]

Weet niet zeker of dat bij DAO ook zo is, maar in ieder geval bij ADO is rst.recordcount een makkelijke check.


Grtz,

 

[Kris Wuyts]

Dubbelboeking

Dit is niet wat ik nodig heb, ik wil gewoon selecteren of dat die datum nog voorkomt in mijn tabel. zoja ga ik daar bewerkingen opdoen. Indien dat niet het geval is mag hij de boeking gewoon uitvoeren.

Snel hopend op een antwoord

 

[beheer25]

Als je de query gewoon in access uitvoert. Komt dan wel het juiste resultaat eruit? Normaal gesproken moeten er bij een datum als criterium "#" tekens omheen staan.


Grtz,

 

[IGO LEUVEN]

Kan jij mij daar een voorbeeld van geven?

 

[Kris Wuyts]

Reactie

Kan niet mij hiervan een voorbeeld geven

 

[beheer25]

db.openrecordset("SELECT * FROM tblplanenfactureer WHERE [datum] =#" & me!caldat & "#;",db_open_dynaset)


Grtz,