Discussion :

[xycoco]

Bonjour,

Dans un formulaire, j'ai un champ date dans le lequel j'inscris manuellement la date du jour dès que je modifie les informations contenues dans ma fiche.

Et puis j'ai pensé : pourquoi le faire manuellement si access peut le faire pour toi!

Donc je cherche un moyen d'entrer pour chaque enregistrement correpondant la date du jour dès que j'entre de nouvelles données ou le modifie. Est-ce possible?

Merci de votre aide

[m-mas]

il y a plusieurs évenements que tu pourras utiliser !! regard "perte focus" ou "sortie" .... et essai d'affecter la date avec Now() !

[xycoco]

Bonjour et merci de ta réponse rapide,

J'ai appliqué ceci sur mon formulaire qui marche très bien

Code :

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

1
2
3
Private Sub Form_Dirty(Cancel As Integer)
Me.DateMiseAjour = Now()
End Sub

Mais voilà (et oui il ya toujours un mais...) j'ai des sous-formulaires que je souhaite intégré dans la formule, c'est simple vous me direz, il suffit d'intégrer la base du code ci-dessus au sous-formulaire :

Code :

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

1
2
3
Private Sub Form_Dirty(Cancel As Integer)
Forms![frm_principal]![DateMiseAjour] = Now()
End Sub

Mais j'utilise ces sous-formulaires dans d'autres formulaires.....

Et là c'est le drame!

[xycoco]

J'ai trouvé, j'affiche ceci dans le sous-formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Dirty(Cancel As Integer)
If CurrentProject.AllForms("frm_1").IsLoaded = True Then
    Forms![frm_1]![DateMiseAjour] = Now()
Else
    If CurrentProject.AllForms("frm_2").IsLoaded = True Then
        Forms![frm_2]![DateMiseAjour] = Now()
    Else
        Forms![frm_3]![DateMiseAjour] = Now()
    End If
End If
End Sub

Mais j'ai encore et encore un problème : un des formulaire n'accepte pas les modificationss : je fais un autre post pour ce problème.