Discussion :

[SNB]

Bonjour,

Dans une fonction, je souhaite pouvoir tester si DateAnci est saisie sinon j'utilise la DateDeb. Je ne comprend pas pourquoi si le champ DateAnci est vide dans la table la fonction me retourne #erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function CalcEchelon(ByVal DateDeb As Date, ByVal DateAnci As Date, ByVal DateRef As Date) As Integer
 
Dim DateRetenue As Date
Dim NbMois As Integer
 
If IsNull(DateAnci) Then
    DateRetenue = DateAnci
Else
    DateRetenue = DateDeb
End If

Merci pour votre aide

edit : cafeine, merci d'utiliser les balises code

[keita]

salut
dans ton code, je ne vois nulle part que tu affecte une valeur à ta fonction; donc pour moi pas de valeur de retour.
@+

[SNB]

je n'ai copié que le début du code qui génère mon erreur, le reste du code fonctionne correctement si les deux dates sont saisies.
Je ne comprend pas pourquoi ma fonction de test de DateAnci renvoi le résultat #erreur si le champ DateAnci est vide.

[cafeine]

tu dois définir les paramètres en Optional et mettre une default value ... exemple :

Code :

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

1
2
3
...
Function xSplit2(ByVal strExpr As String, Optional ByVal strDelim As String = " ") As Boolean
...