Discussion :

[HABILER]

Bonjour la communauté,

J'ai une requête faisant appel à plusieurs tables. La requête fait également à deux fonctions dont dans ladite requête une fonction fait appel à l'autre. En bref la fonction "cinquanteans' fait appel au résultat de la fonction Age_pausecarr.

Le problème est que dans l'une des tables ne contient pas de champs naissance,. Il en résulte donc que lorsque Age_pausecarr appelle via la variable dtbirthday le champs naissance, la valeur est nulle et m'indique donc un data mismatch. De même lorsque j'inclus IIf(IsNull([naissance]), #1/1/1900#, ([naissance])) il ne tient pas compte du champs vide. Mon problème réside je crois donc dans la gestion de la valeur vide.

Qui pourrait m'aider ?

Merci d'avance

Habiler

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
Function Age_pausecarr(dtBirthDay As Date, Dtdebutpausecarr) As Integer
Dim mydate As Date
mydate = Dtdebutpausecarr
Age_pausecarr = DateDiff("yyyy", dtBirthDay, mydate)
Select Case Month(dtBirthDay)
    Case Is > Month(mydate)
        Age_pausecarr = Age_pausecarr - 1
    Case Month(mydate)
        If Day(dtBirthDay) > Day(mydate) Then Age_pausecarr = Age_pausecarr - 1
End Select
End Function


Function cinquanteans(anydate As Date)
Dim varResult As Date

varResult = IIf(IsNull(anydate), #1/1/1900#, (anydate))
cinquanteans = DateSerial(Year(varResult) + 50, Month(varResult), Day(varResult))

End Function

[Jeannot45]

As-tu essayé avec la fonction Nz() qui permet d'affecter une valeur par défaut à un champ Null

ce qui pourrait donner dans ton cas :

Code :

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

1
2
 
varResult = Nz(anydate, #1/1/1900#)

Bonne continuation

[HABILER]

Merci pour la réponse, mais le problème reste identique, Il m'affiche toujours "Error" comm résultat.

Code :

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

1
2
3
4
5
6
7
8
Function cinquanteans(anydate As Date)
Dim varResult As Date
 
varResult = Nz(anydate, #1/1/1900#)
cinquanteans = DateSerial(Year(varResult) + 50,_
 Month(varResult), Day(varResult))
 
End Function

[Jeannot45]

Désolé de revenir aussi tardivement sur ton post.
As-tu trouvé une solution, sinon à quoi correspond DteDebutPauseCarr (argument de ta fonction) ?
J'essaie de recréer la requête mais il me manque cette information.

Bonne journée.