Le portail francophone de la géomatique

Bonjour,
Le plus simple est de creer une requete basee sur votre critere date
appelee par exemple RqFdate
definnissez les parametre [mydate] type date (click droit puis parametres
en mode creation requete)

Dans un module le code suivant

Public sub Decoche()
Dim Rq as querydefs
Dim DD as string
dim rst as recordset
Dim db as database

set db= currentdb()
set rq= db.querydefs( RqFdate )
valeur = inputbox( entrer la date )
rq.parameters( mydate )= Valeur
set rst =rq.openrecordset

If not(rst.eof and rst.bof) then
rst.movefirst
do while not rst.eof
rst( nomduchampcaseacocher ) = false
rst.movenext
loop
else
msgbox( pasd'enregistrement )
end if

set db=nothing
set rq=nothing
set rst=nothing

Sur un formulaire un bouton
puis dans l'evenement click du bouton

decoche()

Christophe Vergon