Discussion :

[ponpon99]

Bonjour à tous ,

Je me permet de vous sollicité car j'ai un petit soucis .
Je désire créer une base acccess avec des interventions (genre GMAO) .
je voudrais que au lancement de ma base à l'aide d'une macro autoexec
qu' access analyse les champs date prévue de ma table préventif et me fasse apparaitre un message en me disant le nombre de date qui sont infèrieures à la date du jour . quel qu'un pourrait il m'éclairer ?

je vous remercie d'avance Ponsan loic

[marot_r]

Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public function CompterDatePrevue()
   dim nbDate as long
   nbDate=dcount("DatePrevue", "Preventif", "[DatePervue]<#" & format(Date(),"yyyy\-mm\-dd")) & "#"
   msgbox "Il y a " & nbDate & " date(s) avant aujourd'hui, le " & format(Date(),"yyyy\-mm\-dd")
end function

Le # sert de délimiteur de date.
Le format(Date(),"yyyy\-mm\-dd")) sert à s'assurer que le système interprète bien le 01/02/2014 comme le 1er février 2014 (format français, jj/mm/aaaa) et non le 2 janvier 2014 (format américain, mm/jj/aaaa).

Je te recommande pour les noms internes des objets de te limiter aux lettres majuscules ou minuscules, aux chiffres et au _ (ex : ceciEstUnNom, Ceci_Aussi). Les autres caractères même si acceptés par Access peuvent être la cause de bug assez vicieux et sournois.

Si tu as besoin d'un texte pour un humain avec des accents ou autres utilise des étiquettes (dans les formulaires) ou la propriété légende (caption) qui sont prévues pour cela.

A+