Erreur d'exécution 94 utilisation incorrecte null

Question

Bonjour,

Alors je me permets de poster mon problème ici. Je préviens de suite que je ne suis pas une spécialiste du VBA.
J'ai un problème avec un fichier ACCESS que mon prédécesseur à créé.

Quand je suis dans un champ pour rentrer des dates, Access me sort "erreur d'exécution 94 utilisation incorrecte null "

 Else
      For i = 1 To [Dleap]
        [EnvoiAppPrev] = [EnvoiAppPrev] + 1
        If WeekDay([EnvoiAppPrev]) = 7 Then
          [EnvoiAppPrev] = [EnvoiAppPrev] + 2

C'est la ligne en question qui pose problème. Je ne sais pas trop ce qu'il faudrait que je vous mette pour que vous puissiez comprendre d'où viens le problème.
Le plus bizarre dans tout ça, c'est que cela fonctionnait très bien et d'une saisie à l'autre le problème est apparu...

Merci d'avance et n'hésitez pas à me demander d'autres informations.

ucfoutu · Answer

Bonjour,

Je ne sais pas trop ce qu'il faudrait que je vous mette pour que vous puissiez comprendre d'où viens le problème

Alors : que les choses soient très claires pour tous :
Je n'accepterai jamais que l'on "me mette" quoi que ce soit, hein !
Et c'est quoi, la "ligne en question" ?
et si tu nous montrais (entre balises code, s'il te plait) un code par copier/coller ? (en dénonçant la fameuse "ligne en question " ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Renfield · Answer

c'est moche, comme ecriture, avec les crochets...

faire un test de nullité :

If Not IsNull([Dleap]) Then
...

devrait te permettre de ne pas avoir ces cas...


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Primo60 · Answer

MDR Ucfoutu ! Non je ne me permettrais pas ce genre de choses  merci pour ta réponse rapide en tout cas.
Désolée j'ai mal relu mon post. J'avais normalement posé des balises pour que la ligne en question ressorte en couleur...


Else
For i = 1 To [Dleap]
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2 

Désolée Renfield, mais ce n'est pas moi qui ai codé tout ça^^ mais merci pour ta réponse.
J'ai essayer d'insérer cette ligne mais comme je l'ai déjà dis, je ne suis pas douée du tout pour le codage....
Je sais qu'il vous manque du code mais je ne sais pas non plus quoi poster, il y a une tripotée de ligne^^

Erreur d'exécution 94 utilisation incorrecte null

3 réponses

Votre réponse

Discussions similaires