Discussion :

[Ericka]

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

[motrin]

Code :

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

1
2
 
rst.Fields("AgePatient") = CalculAge(rst.Fields(DateReference2), DateReference)

Dans ta méthode CalculAge, il y a un paramètre rst.Fields(DateReference2),
DateReference qui est probablement null et il n'aime pas cela. Il te manquerais pas par hasard des guillemets à rst.Fields("DateReference2") dans la fonction CalculAge.

[Ericka]

Bonsoir Motrin,

Code :

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

Il te manquerais pas par hasard des guillemets à rst.Fields("DateReference2") dans la fonction CalculAge.

J'avais déjà vérifié cela, j'ai fait d'autres essais et toujours la même erreur!
Cependant, tu as raison, l'erreur vient certainement de ma "DateReference2" qui quelquefois "null"! (Les dates de naissance ne sont pas toujours renseignées)

L'erreur est certainement ridicule mais là je sature!
Je vais continuer à chercher!

Merci à toi

[motrin]

tu as juste à ajouter un if

if valeur = null
CalculAge (....)
else
CalculAge ()
end if

[Tofalu]

If IsNull(rst.Fields("DatNaissance")) Then rst.Fields("AgePatient") = ""
End If

Pas de End If quand le then est sur la même ligne que le If

[Ericka]

Bonjour à tous!

Je n'avais pas mis de "End if" au début! Mais dans ce cas, j'ai une erreur me disant que j'utilise un "Else" sans "If"!

[Ericka]

Ca y est!
Ca fonctionne!
J'ai juste réécrit mon code avec un peu plus de logique, le problème venait de l'ordre dans lequel j'introduisais mes conditions!

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
rst.MoveFirst
 
While Not rst.EOF
rst.Edit
 
If Not IsNull(rst.Fields("DatNaissance")) Then
                If IsNull(rst.Fields("Decede")) Then
                      DateReference = #6/30/2003#
                      rst.Fields("AgePatient") = CalculAge(rst.Fields("DatNaissance"), DateReference)
                Else
                      DateReference = rst.Fields("Decede")
                      rst.Fields("AgePatient") = CalculAge(rst.Fields("DatNaissance"), DateReference)
                End If
 
 
Else
      rst.Fields("AgePatient") = ""
 
End If
 
rst.Update
rst.MoveNext
Wend
 
MsgBox "L'âge des patients de la table " & NomTable & " est calculé "

En tout cas, encore merci pour votre aide!
A bientôt