Discussion :

[Olivierporcinet]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
Private Sub Form_Current()
If Me.[Chang_nom] Then MsgBox "Changement de nom !", vbExclamation, 
If Me.[Pas en règle] Then MsgBox "Pas en règle de mutuelle - VOIR SI ATTESTATION !", vbExclamation, 
 
End Sub

J'ai besoin de mettre un code supplémentaire sur le formulaire :

Code :

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

1
2
3
Private Sub Form_Current()
Age = calculAge(DDN.Value, Now)
End Sub

Si je le mets à part et que je refais une nouvelle ligne

Code :

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

Private Sub Form_Current()

il y a conflit; donc je suppose qu'il faut combiner les 2 codes.

Comment faire ?

Merci.

Bonne soirée,

[Olivierporcinet]

Désolé, j'aurais dû mettre le sujet dans VBA