Erreur éxécution94 Utilisation incorecte NULL

Primo60 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention - 22 févr. 2012 à 15:33

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
[COLOR="Red"] For i = 1 To [Dleap][/COLOR]
[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.

Afficher la suite

A voir également:

Erreur éxécution94 Utilisation incorecte NULL
Télécharger gratuitement notice d'utilisation - Guide
Erreur 0x80070643 - Accueil - Windows
Erreur 4201 france tv ✓ - Forum Réseaux sociaux
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues

4 réponses

Réponse 1 / 4

blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention 3 362

Salut,

valeur de Dleap ?

A+ Blux

 "Les cons, ça ose tout. 
C'est même à ça qu'on les reconnait"

Réponse 2 / 4

Primo60 Messages postés 6 Date d'inscription Statut Membre Dernière intervention

Merci Blux pour ta réponse rapide. Je suis désolée mais je ne sais pas où trouver ça. Moi même je ne sais pas à quoi cela fait référence...
Je sais, je ne t'aide pas non plus^^

Je ne sais pas non plus quoi poster pour pouvoir t'éclairer plus :s

blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention 3 362

Poster un peu plus de code m'aiderait...
Quand ton appli est plantée, tu passes ta souris sur dleap, il devrait afficher sa valeur...

Réponse 3 / 4

Primo60 Messages postés 6 Date d'inscription Statut Membre Dernière intervention

[Dleap] = Null

Je vais te poster du code, qui pour moi correspond à la "fonction" complète. C'est un peu long, désolée...

Private Sub EmisReel_Exit(Cancel As Integer)
If IsDate([EmisReel]) Then
[EnvoiAppPrev] = [EmisReel]
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
If WeekDay([EnvoiAppPrev]) = 1 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
End If
If Dleap = 0 Then
[EnvoiAppReel] = [EnvoiAppPrev]
Else
For i = 1 To [Dleap]
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
If Month([EnvoiAppPrev]) = 1 Then
If Day([EnvoiAppPrev]) = 1 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
If Month([EnvoiAppPrev]) = 5 Then
If Day([EnvoiAppPrev]) = 1 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
If Month([EnvoiAppPrev]) = 7 Then
If Day([EnvoiAppPrev]) = 14 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
If Month([EnvoiAppPrev]) = 8 Then
If Day([EnvoiAppPrev]) = 15 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
If Month([EnvoiAppPrev]) = 11 Then
If Day([EnvoiAppPrev]) = 11 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
If Month([EnvoiAppPrev]) = 12 Then
If Day([EnvoiAppPrev]) = 25 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 1
If WeekDay([EnvoiAppPrev]) = 7 Then
[EnvoiAppPrev] = [EnvoiAppPrev] + 2
End If
End If
End If
Next
End If

[RetourAppPrev] = [EnvoiAppPrev]
If [DlApp] = 0 Then
Else
For i = 1 To [DlApp]
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
If Month([RetourAppPrev]) = 1 Then
If Day([RetourAppPrev]) = 1 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
If Month([RetourAppPrev]) = 5 Then
If Day([RetourAppPrev]) = 1 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
If Month([RetourAppPrev]) = 7 Then
If Day([RetourAppPrev]) = 14 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
If Month([RetourAppPrev]) = 8 Then
If Day([RetourAppPrev]) = 15 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
If Month([RetourAppPrev]) = 11 Then
If Day([RetourAppPrev]) = 11 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
If Month([RetourAppPrev]) = 12 Then
If Day([RetourAppPrev]) = 25 Then
[RetourAppPrev] = [RetourAppPrev] + 1
If WeekDay([RetourAppPrev]) = 7 Then
[RetourAppPrev] = [RetourAppPrev] + 2
End If
End If
End If
Next
End If

[DateNotifPrev] = [RetourAppPrev]
If [DlSyn] = 0 Then
Else
For i = 1 To [DlSyn]
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
If Month([DateNotifPrev]) = 1 Then
If Day([DateNotifPrev]) = 1 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
If Month([DateNotifPrev]) = 5 Then
If Day([DateNotifPrev]) = 1 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
If Month([DateNotifPrev]) = 7 Then
If Day([DateNotifPrev]) = 14 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
If Month([DateNotifPrev]) = 8 Then
If Day([DateNotifPrev]) = 15 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
If Month([DateNotifPrev]) = 11 Then
If Day([DateNotifPrev]) = 11 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
If Month([DateNotifPrev]) = 12 Then
If Day([DateNotifPrev]) = 25 Then
[DateNotifPrev] = [DateNotifPrev] + 1
If WeekDay([DateNotifPrev]) = 7 Then
[DateNotifPrev] = [DateNotifPrev] + 2
End If
End If
End If
Next
End If

If IsDate([EmisPrev]) Then
If IsDate([EmisReel]) Then
[Ecart] = [EmisReel] - [EmisPrev]
Else
[Ecart] = Now - [EmisPrev]
End If
If [Ecart] < 0 Then
[Ecart] = 0
End If
End If
If IsDate([EnvoiAppPrev]) Then
If [Dleap] > 0 Then
If IsDate([EnvoiAppReel]) Then
[RetEap] = [EnvoiAppReel] - [EnvoiAppPrev]
Else
[RetEap] = Now - [EnvoiAppPrev]
End If
If [RetEap] < 0 Then
[RetEap] = 0
End If
Else
[RetEap] = 0
End If
End If
End If
End Sub

blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention 3 362

Il est donc plus que probable que dleap n'aie pas de valeur.
Et comme il n'est prévu nulle part qu'il puisse avoir la valeur 'null', l'application plante.

Je modifierais peut-être le code pour ajouter ce test et le traiter de la même façon que s'il avait une valeur à 0, mais il faut connaître le code et toutes ses implications : d'où vient cette variable et à quoi sert-elle ?

Un truc comme ça :

If (isnull(Dleap) or Dleap = 0) Then
[EnvoiAppReel] = [EnvoiAppPrev]

Réponse 4 / 4

Primo60 Messages postés 6 Date d'inscription Statut Membre Dernière intervention

Peut on voir ça par mail ou messagerie? Car là comme ça je ne vois pas trop comment on peux faire :s

Je suis désolée, je suis vraiment une novice là dedans mais j'ai vraiment besoin de régler ce problème....

blux Messages postés 27147 Date d'inscription Statut Modérateur Dernière intervention 3 362

on peut voir ça en MP...

Discussions similaires

Erreur 3005 sur France TV

Ressource demandée en cours d'utilisation

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

Votre réponse

Discussions similaires