Bonjour,

J'ai une erreur dans mon code que je n'arrive pas à trouver!
Je souhaite calculer l'âge de patients par rapport à une date de référence!
Si les patients sont décédés, la date de référence devient la date de décès!

Voici mon code :

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
17
18
19
20
21
22
23
24
25
26
rst.MoveFirst

While Not rst.EOF
rst.Edit

If IsNull(rst.Fields("Decede")) Then
    
    If IsNull(rst.Fields("DatNaissance")) Then rst.Fields("AgePatient") = ""
    End If
    
    If Not IsNull(rst.Fields("DatNaissance")) Then
    DateReference2 = "DatNaissance"
    DateReference = #6/30/2003#
    rst.Fields("AgePatient") = CalculAge(rst.Fields(DateReference2),    DateReference)
    End If
 
Else
DateReference2 = "DatNaissance"

rst.Fields("AgePatient") = CalculAge(rst.Fields(DateReference2), rst.Fields("Decede"))End If

rst.Update
rst.MoveNext
Wend

MsgBox "L'âge des patients de la table " & NomTable & " est calculé "
J'ai l'erreur "Utilisation incorrecte de Null" sur la ligne en rouge ci-dessus
Si quelqu'un pouvait m'aider?

Merci d'avance