Discussion :

[Thonio]

Bonjour j'utilise Microsoft Access 2003.
Mon problème concerne 2 tables : "Personnel" et "Incident"
Dans ma table personnel, le champ concerné est : "Date_Prise_Poste"
Dans ma table Incident, les champs concernés sont : "Date" et "Ancienneté"
"Date_Prise_Poste" et "Date" sont de type date
"Ancienneté" est un numérique qui doit prendre la différence de mois entre les 2 dates.

Dans mon formulaire "Personnel", il y a possibilité de remplir "Date_Prise_Poste"
Dans mon sous formulaire "Incident", Il y a possibilité de remplir "Date"
J'ai créé un champ où j'affiche le résultat de cette différence :
Donnée => Source contrôle :

Code :

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

Ent(([Date]-Formulaires![Personnel]!Date_Prise_Poste)/30)

Ce que je souhaite à partir de là c'est remplir automatiquement mon champ ancienneté lorsque je modifie la valeur de "Date" ou "Date_Prise_Poste".

Après quelques recherches, j'ai vu qu'il fallait dans mes 2 champs de type date rajouter un événement Avant MAJ.
J'ai essayé de convertir ma petite formule en VB mais ça ne fonctionne pas. Voici ce que j'ai mis :

Code :

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

1
2
3
Private Sub Date_BeforeUpdate(Cancel As Integer)
Incident.[Ancienneté] = CInt((Incident.[Date] - Personnel.[Date_Prise_Poste]) / 30)
End Sub

En vous remerciant par avance, je vous remercie de toute l'aide que vous pourrez m'apporter.

[SnakeCharmer]

J'ai peut-être une astuce pour toi : en VBA, il existe la fonction DateDiff
(pour + de renseignement, F1!)