demande info de la fonction move dans un module

:D bonjour

j'ai crée une table declaration AT pour ma societe ,et je dois sortir un indicateur pour le personnel .

le but et de calculer le nbr de jour sans accident.
pour cela je dois prendre les info dans une table declaration pour
recupérer la date accident,puis utiliser diffdate.

mon probléme et de prendre le derniere enregistrement de ma table,puis l'avant dernier (pour moi je dois prendre la fonction movelast)

mais je n'arrive pas a l'utiliser dans un module.

Bonjour,

Pour te répondre, je suis parti des postulats suivants :

• une table [AT] avec deux champs : NomPersonne et DateDéclaration.
• Nompersonne est la personne qui a l'accident
• DateDéclaration contient les dates des différentes déclarations d'accident de travail.
• Le résultat est donné en nombre de jours.
• Je n'ai pas intégré de gestion d'erreur.

Ci-dessous la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function DiffAccident(strNomPersonne As String) As Integer   Dim db As DAO.Database Set db = CurrentDb   Dim rs As DAO.Recordset Set rs = db.OpenRecordset("SELECT * FROM [AT] WHERE NomPersonne = '" & strNomPersonne & "' ORDER BY DateDéclaration", dbOpenDynaset)   Dim DateDernierAccident As Date   rs.MoveLast 'pour aller au dernier accident DateDernierAccident = rs!DateDéclaration.Value   DiffAccident = DateDiff("d", DateDernierAccident, Date) 'différence par rapport à aujourd'hui.   End Function

---

Un exemple d'utilisation dans un champ d'un formulaire :
=DiffAccident("ActionAccess")
renvoie 110 si la date de dernier accident était le 11/01/06. (si nous sommes auj le 01/05/06)

Si on veut résonner en global et non plus par personne, il devrait suffir d'enlever toutes les références à StrNomPersonne.

Bon courage