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 dans 1 seul

Code :

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

Private Sub Form_Current()

Comment faire ?

Merci.

Bonne journée,

[Olivierporcinet]

Une question que je me pose :

Si on fait un

Code :

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

After Update

sur le champ

Code :

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

DDN

,

genre :

Code :

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

1
2
3
Private Sub DDN_AfterUpdate()
c_age.Value = calculAge(DDN.Value, Now)
End Sub

le calcul se fait mais les infos ne sont pas tenues en mémoire lors de la prochaine ouverture de la base, et les anciens enregistrements ne se mettent pas à jour.

Donc, le + facile, je pense est de trouver la solution à mon 1er problème, soit :

mettre plusieurs lignes de codes dans

Code :

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

From_Current()

[Olivierporcinet]

J'ai trouvé une parade .....

Code :

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

1
2
3
4
5
Private Sub Form_Load()
 
c_age.Value = calculAge(DDN, Now)
 
End Sub

Mais erreur signalée lors d'un nouvel enregistrement :

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
Function calculAge(dateAnniv As Variant, dateM As Variant) As Variant
Dim nbMois As Integer
Dim nbJours As Integer

nbMois = DateDiff("m", dateAnniv, dateM) + (Day(dateM) < Day(dateAnniv))

If Day(dateM) < Day(dateAnniv) Then
nbJours = DateDiff("d", dateAnniv, DateSerial(Year(dateAnniv), Month(dateAnniv) + 1, 0)) + Day(dateM)
Else
nbJours = Day(dateM) - Day(dateAnniv)
End If

calculAge = LTrim(Str(nbMois \ 12)) & " ans " & LTrim(Str(nbMois Mod 12)) & " mois " & LTrim(Str(nbJours)) & " jours"

End Function

Erreur d'exécution '94 : Utilisation incorrecte de Null

[loufab]

Bonjour,

Attention à l'utilisation des événements. Ils ont un ordre de déclenchement et peuvent trouver un formulaire qui n'est pas encore abondé.

Il y a un tuto et un utilitaire pour apprendre, comprendre et maitriser cette partie incontournable de Access.

C'est ici :

https://loufab.developpez.com/tutori...ss/evenements/

Concernant ton code je vois une grosse incohérence dans la logique.

Code :

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

1
2
3
4
5
Function calculAge(dateAnniv As Variant, dateM As Variant) As Variant
Dim nbMois As Integer
Dim nbJours As Integer
 
nbMois = DateDiff("m", dateAnniv, dateM) + (Day(dateM) < Day(dateAnniv))

Tu indiques des paramètres variant c'est donc que tu t'attends à avoir des paramètres à Null. Ce qui est bien le cas puisque ta ligne passe en erreur.

Si c'est bien le cas, tu considères que ton calculAge ne peut rien renvoyer donc il te faut sortir avant l'exécution.

Teste tes 2 paramètres avant ton datediff et si l'un des 2 est à null tu fais un Exit Function.

L'indentation de code n'est pas une option. Il faut que tu la fasses aussi pour toi que pour ceux qui vont te lire.

Cordialement,

[Olivierporcinet]

Si je comprends bien, cela pose problème à cause du champ vide

Code :

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

DDN

dans un nouvel enregistrement.

Il faut sûrement préciser que à l'ouverture d'un nouvel enregistrement, le champ peut être null....

Par contre, les 2 codes fonctionnent sans conflit :

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
c_age.Value = calculAge(DDN, Now)
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

[Olivierporcinet]

Un grand merci.