Discussion :

[Aladin_23]

Bonjour le forum

J' ai cette fonction pour le calcul d' age

Code :

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

1
2
3
4
5
6
7
Public Function Anciennete(Anniv As Date) As String
 Dim diff As Double, NbreAns As Integer, NbreMois As Integer
diff = Date - Anniv  ' diff en jour
NbreAns = diff / 365
NbreMois = (diff - (NbreAns * 365)) / 30
Anciennete = NbreAns & " année(s) et " & NbreMois & " mois"
End Function

J' ai placer ceci dans ma requete

Code :

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

Age: anciennete([DateNaissance])

J' obtiens le résultat que je désire, mais j' ai un souci. Si je n' ai pas de date dans le champ DateNaissance,
J' ai une ereeur dans mon champ Age.
J' ai essayé de mettre une valeur par défault de type 00/00/0000, mais ca ne marche pas.
je precise que j' ai laissé le champ DateNaissance en texte.
Merci d' avance pour toute aide
Aladin

[paidge]

Bonjour,

Tout dépend comment tu veux que ton programme réagisse si la date de naissance n'est pas renseignée Déjà, si tu veux qu'elle soit obligatoirement renseignée, modifies ta table en modifiant les paramètres du champs [DateNaissance] :

• Null Interdit = Oui
• Chaîne vide autorisée : Non

Sinon, renseignes-toi sur la fonction Nz(maVariable, [valeur si null]) pour ta requête Celle-ci permet de vérifier si une variable est nulle et de renvoyer la valeur de ton choix. Par exemple :

Modifies ta fonction comme ceci histoire de vérifier qu'on a bien une date passée en paramètre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Anciennete(Anniv As Variant) As Variant
    Dim diff As Double, NbreAns As Integer, NbreMois As Integer
 
    If IsDate(Anniv) Then
        diff = Date - CDate(Anniv)  ' diff en jour
        NbreAns = diff / 365
        NbreMois = (diff - (NbreAns * 365)) / 30
        Anciennete = NbreAns & " année(s) et " & NbreMois & " mois"
    Else
        Anciennete = Null
    End If
End Function

Ensuite ta requête :

Code sql :

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

SELECT *, Nz(Anciennete([DateNaissance]),"0") AS Age FROM MaTable;

Affichera "0" si la date est nulle ou n'est pas une date

[Aladin_23]

Bonjour paidge et le forum
merci d' avoir répondu, le souci c' est que le champ calculé

Code :

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

Age: anciennete([DateNaissance])

est dans la requete qui almente le formulaire, je n' ai pas de code vba du style

Code :

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

SELECT

Aladin

[paidge]

le souci c' est que le champ calculé

Code :

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

Age: anciennete([DateNaissance])

est dans la requete qui almente le formulaire, je n' ai pas de code vba du style

Code :

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

SELECT

Justement je t'ai donné le code SQL de la requête....Au lieu d'afficher ta requête en mode création, affiche-la en mode SQL et modifie-la avec le code SQL que je t'ai donné en prenant soin d'adapter le nom de la table Ensuite, tu repasses en mode création pour la modifier à ta guise si tu n'es pas à l'aise avec le SQL

[Aladin_23]

Bonsoir paidge et le forum
Avec un peu de retard car j' ai du abandonner un moment, merci pour tes conseils que j' ai suivi et qui m' a permit de résoudre le pb
Aladin