Discussion :

[chpavy]

Bonjour à tous.

J'ai crée une fonction Age() qui renvoi une information dans tous les cas lorsque je test par la fenêtre Execution du VB de Access :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function Age(Optional dtNaissance As String = "01/01/2015") As String
On Error GoTo Age_Err   
    Dim intAge As Integer 
       intAge = DateDiff("yyyy", [dtNaissance], Now()) + _
             Int(Format(Now(), "mmdd") < Format([dtNaissance], "mmdd"))             
       Age = intAge
Exit Function
Age_Err:    
    Age = "Non renseigné"              
End Function

J'utilise cette fonction dans une requête qui va chercher la date de naissance dans une colonne "DATNAISS". Si l'enregistrement est vide j'ai un #Erreur comme résultat.

Voici l'extrait SQL de la requête :

Code sql :

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

Age([DATNAISS]) AS Ages

J'aimerais que la réponse soit "Non renseigné" si DATNAISS est vide.

Merci pour vos réponses.

[anto38fr]

Bonjour,

je suis bien loin d'être un expert, mais ne faudrait-il pas simplement mettre un "Exit Function" après ton "Age = "Non renseigné" " ?

J'ai fait la même fonction que toi mais en affichant un message box et sa a plutôt bien marcher (sauf que moi ma fonction ne retourne pas de valeur).

Donc si le Exit Function ne marche pas je ne peut pas plus t'aider.

Anto

[chpavy]

Bonjour Anto

Je te remercie mais ça ne marche pas mieux. Je rappelle que dans la fenêtre exécution ça fonctionne même avec un appel Age() ou Age("") mais que si j'utilise cette fonction dans une requête, j'ai une erreur lorsque DATNAISS est vide.

[madefemere]

Bonjour,

A ma connaissance, ta fonction est "à priori" bonne sauf que l'erreur n'est pas levée lors de l'exécution, mais dès l'appel de ton argument qui est vide (Null ou ""). Or vu que le type de l'argument est String, le type Null ne fait rien.
Si on le veut vraiment, je dirais qu'il faut modifier le type de l'argument en Variant pour qu'il accepte les valeurs Null et faire un test pour retourner le résultat "Non renseigné".
Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Age(dtNaissance As Variant) As String
On Error GoTo Age_Err
    Dim intAge As Integer
    If IsNull(dtNaissance) Or dtNaissance = "" Then
        Age = "Non renseigné"
    Else
       intAge = DateDiff("yyyy", [dtNaissance], Now()) + _
             Int(Format(Now(), "mmdd") < Format([dtNaissance], "mmdd"))
       Age = intAge
    End If
Exit Function
Age_Err:
    Age = "Non renseigné"
End Function

Cordialement,

[chpavy]

Et voila, Nickel, ça marche.
Je vais essayer de retenir la leçon mais pour l'instant j'ai du mal à goûter la subtilité. En faisant un Age() je pensais avoir testé le Null ....

Merci pour ton aide, je note "RESOLU"