Discussion :

[vavavoum74]

Bonjour
Le code suivant fonctionnait parfaitement:

Code :

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

If (Nz(Me.DateEnvoi, "0") = 0) And (Nz(Me.NomDuReparateur, "0") = 0) Then DoCmd.Close acForm, "FormConfirmationExpedier"

Pour une raison que j'ignore, j'ai cette erreur qui est apparue:

Je ne me souvient pas d'avoir fait de modif particulière... je cherche à voir d'où vient l'erreur.
Si je prends par exemple le champ texte brut TypeMachine, si j'y associe le code ci dessus j'obtiens l'erreur si je clique sur le champ TypeMachine.

Plus fort, si je met la ligne de code en commentaire, donc plus de code du tout, l'erreur est toujours là !!


Il faut que je mette l'ensemble en commentaire pour que l'erreur ne se produise plus :


J'ai ouvert-fermé et compacté la frontale et la dorsale sans effet.
J'ai une ancienne version qui tourne parfaitement sur la même dorsale.
Je ne comprends pas ce que j'ai pu faire pour avoir ce comportement pour moi illogique...

Toute aide sera grandement appréciée!

[Gado2600]

Bonjour,

Essaie dans un premier temps de faire un débogage.
Dans la fenêtre d'édition du code => sur le ruban "débogage" => "Compiler Database".

Check aussi tes références externes.

Cordialement,

[vavavoum74]

Quand je fais un débogage j'obtiens:

je ne comprends pas ce qui ne va pas...

[Gado2600]

Réécris l'appel de procédure comme ceci :

Code :

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

Private Sub Form_BeforeUpdate(Cancel As Integer)

Il te manque la partie entre parenthèses, principalement.

La variable "Cancel" est présente pour annuler certains événements qui sont annulables.
Le BeforUpdate étant annulable, la variable est indispensable.

Cordialement,

[vavavoum74]

C'était bien ça!
Merci beaucoup, je met résolu.