Discussion :

[issam16]

salut tout le monde,

est ce que vous avez deja rencontré ce type d'erreur:
Message d'erreur '91'
variable objet ou variable de bloc with non définie

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim EnrProduit As Recordset
Dim Existee As Boolean
 
Set Enr = CurrentDb.OpenRecordset("AnalysesParProduit")
Existe = False
 
If Me.CODEPRODUIT.Value <> 0 Then
 Do While Not EnrProduit.EOF
  If Me.CODEPRODUIT.Value = EnrProduit("CODEPRODUIT") Then
    Existee = True
    'Exit Do
  End If
  EnrProduit.MoveNext
 Loop
 
 If Existee Then
  VarbufferCodeProduit = Me.CODEPRODUIT
  DoCmd.OpenForm "CriteresDesMesuresParProduit"
 Else
  MsgBox "Vous n'avez pas encore planifier des analyse pour le prouit " '& Me.CODEPRODUIT, vbOKOnly, "Erreur!!"
 End If
Else
 MsgBox "Il faut saisir le code du produit", vbOKOnly, "Message d'erreur"
End If

[Lou Pitchoun]

Salut,
C'est une erreur qui arrive lorsqu'il manque un mot.
Vérifie que tous tes blocs If, While, For, Do Loop, With soient "fermés" c'est à dire qu'il y ait les End If, Wend, Next, End With etc...

[issam16]

Salut,
C'est une erreur qui arrive lorsqu'il manque un mot.
Vérifie que tous tes blocs If, While, For, Do Loop, With soient "fermés" c'est à dire qu'il y ait les End If, Wend, Next, End With etc...

je verifie mais j'arrive pas à trouver

[stolx_10]

If Me.CODEPRODUIT.Value <> 0 Then
Do While Not EnrProduit.EOF
If Me.CODEPRODUIT.Value = EnrProduit("CODEPRODUIT") Then
Existee = True
'Exit Do
End If
EnrProduit.MoveNext
END IF
Loop

essaie ça

[Lou Pitchoun]

Ce n'est pas Loop mais Wend qu'il faut mettre

[issam16]

essaie ça

ça me donne une erreur de compilation, parcequ'il y un end if de plus.

[issam16]

Il me semble que Do While n'existe pas en VBA mais se traduit par Do Loop

je ne crois pas parceque je 'ai deja utiliser pas mal de fois

[Lou Pitchoun]

désolé, j'ai été trop vite.....

EDIT tu déclares

Code :

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

Existee As Boolean

Et tu mets

Code :

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

Existe = False

Regarde déjà ça.

[stolx_10]

ça me donne une erreur de compilation, parcequ'il y un end if de plus.

Effectivment, le End If que je pensais manquant est bien présent à la fin du code ^^ sorry :p

Pour moi Do While existe .... je confonds avec le VB surement Sinon pourquoi passer par un DO si tu peux passer directement par un While ou un For ? ( plutot While ici )

[stolx_10]

EDIT tu déclares

Code :
Existee As Boolean

Et tu mets

Code :
Existe = False

Regarde déjà ça.

GG !

[issam16]

désolé, j'ai été trop vite.....

EDIT tu déclares

Code :

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

Existee As Boolean

Et tu mets

Code :

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

Existe = False

Regarde déjà ça.

ce n'est pas l'erreur mais en tout merci
mais le debogage s'arrete sur la boucle while mais j'arrive pas à trouver ce qui cloche dans ce code??

[Lou Pitchoun]

Essaie ça, et là j'en suis sur.

Code :

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

1
2
3
4
Set EnrProduit = CurrentDb.OpenRecordset("AnalysesParProduit")
....
EnrProduit.Movefirst
Do While ...

[issam16]

Essaie ça, et là j'en suis sur.

Code :

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

1
2
3
4
Set EnrProduit = CurrentDb.OpenRecordset("AnalysesParProduit")
....
EnrProduit.Movefirst
Do While ...

oui t'as supper raison je viens de le decouvrir moi aussi, tu l'as vu avant moi.
merci

c'est le copier/coller qui a fais toute ces erreur!!!

[Arkham46]

slt,

petit conseil du jour : ajouter

Code :

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

Option Explicit

en en-tête des modules pour forcer le compilateur à vérifier que toutes les variables utilisées sont déclarées
ça évite de perdre du temps sur ce genre d'étourderie

[issam16]

slt,

petit conseil du jour : ajouter

Code :

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

Option Explicit

en en-tête des modules pour forcer le compilateur à vérifier que toutes les variables utilisées sont déclarées
ça évite de perdre du temps sur ce genre d'étourderie

ok merci ça va m'aider trop cette option,merci encore