Discussion :

[lechtifred]

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.

[ActionAccess]

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 :

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

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