Renvoie #Erreur qd cellule vide - Access Fermé

Question

Bonjour,

Voilà mon code dans l'objet module d'Access (version2000).


Function date_MAJcasto(date_cde As Date, enseigne As String) As String    
If enseigne = "CASTORAMA" Then
date_MAJcasto = date_cde - 1
Else
date_MAJcasto = date_cde
End If
End Function


Celui-ci fonctionne sauf quand date_cde est vide. Il me renvoie alors "#Erreur"
Comment faire pour qu'il n'applique la fonction que lorsque date_cde n'est pas vide.

Par avance merci

Zasami · Answer

il faut just tester si la date est vide ou pas autrement dit Null ou non

Function date_MAJcasto(date_cde As Date, enseigne As String) As String    

if ( date_cde <>null) then 'Test si la date est vide si oui on fait rien si ne pas vide on exécute l'instruction suivante
        If enseigne = "CASTORAMA" Then
             date_MAJcasto = date_cde - 1
          Else
             date_MAJcasto = date_cde
      End If
End if
End Function

Martino_ICI · Answer

Merci pour ta réponse.

Seulement quand je teste, il fait l'inverse de ce que je demande. C'est-à-dire qu'il me met #Erreur lorsque la cellule est vide et rien lorsque j'ai une date.

Zasami · Answer

inverse seulement la condition de If au lieu de <> mets un =

Martino_ICI · Answer

Et oui, c'est bien ce que je me suis dit. Mais bizarrement, il me renvoie exactement le même résultat.
As-tu une autre solution à me proposer??

Par avance merci

Zasami · Answer

c étrange , peux tu m'expliquer exactement, tu veux faire quoi? peut-être le problème ne vient pas de ce bout de code: peu tu metre le message d'erreur qui s'affiche..... meme si je comprend pas pour quoi je vai donner une autre solution
Function date_MAJcasto(date_cde As Date, enseigne As String) As String  
if ( date_cde =null) then 
 
msgbox ("la date incorrecte : entre une date valide svp")
exit sub  ' quitter la fonction sans rien faire
else
If enseigne = "CASTORAMA" Then
    date_MAJcasto = date_cde - 1
Else
date_MAJcasto = date_cde
End If
End if
End Function

Martino_ICI · Answer

Je vais essayer d'être clair.

J'ai une table dans laquelle j'ai un champ enseigne, un autre ville et en face, un champ date.
Je veux que lorsqu'il trouve dans le champ enseigne "CASTORAMA", il retire un jour à la date qui correspond.
J'ai donc fait une requête ou je prends tout mes champs et dans un champ supplémentaire, j'intègre ma fonction.
Et dans l'absolue, ça marche. Sauf que lorsque je n'ai pas d'enseigne de renseigné et/ou pas de date, il remonte le résultat #Erreur.

En fait, j'ai l'impression qu'il n'accepte pas les cellules vides.

Zasami · Answer

je comprend pas trop bien , envoi ma ta base par email et je vais voir

Martino_ICI · Answer

je te remercie.

La question suivante est bête mais tu peux me communiquer ton adresse mail ou me dire comment te l'envoyer??

par avance merci

Zasami · Answer

envoi en pièce joint sur nakkar2005@yahoo.fr

Martino_ICI · Answer

C'est parti.
Je te remercie.

Martino_ICI · Answer

Est-ce que tu as pu regarder??

Renvoie #Erreur qd cellule vide - Access

11 réponses

Discussions similaires