[Access vba]erreur 2467....
DarkAurora
Messages postés
443
Statut
Membre
-
gorby -
gorby -
Bonjour, j'ai une erreur 2467 l'expression entré fait référence à un objet fermé ou supprimer
sur ce code
Dim Value As Integer
If Liste0.Column(0) = 1 Then DoCmd.RunMacro "M_ouvrir Tintervention"
If Liste0.Column(0) = 2 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 3 Then DoCmd.RunMacro "M_ouvrir_recherche_total"
If Liste0.Column(0) = 4 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 5 Then DoCmd.RunMacro "M_A suivre etat"
If Liste0.Column(0) = 6 Then DoCmd.RunMacro "M_ouvrir a suivre par ligne"
If Liste0.Column(0) = 7 Then DoCmd.RunMacro "M_ouvrir a suivre pointage"
If Liste0.Column(0) = 8 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 9 Then DoCmd.RunMacro "M_ouvrir intervention nuit"
If Liste0.Column(0) = 10 Then DoCmd.RunMacro "M_ouvrir intervention week-end"
If Liste0.Column(0) = 11 Then DoCmd.RunMacro "M_ouvrir creneaux intervention"
je ne crois pas avoir supprimer aucune des macro alors je ne sais pas comment faire pour me debug
merci de m'aider
--
je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet
sur ce code
Dim Value As Integer
If Liste0.Column(0) = 1 Then DoCmd.RunMacro "M_ouvrir Tintervention"
If Liste0.Column(0) = 2 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 3 Then DoCmd.RunMacro "M_ouvrir_recherche_total"
If Liste0.Column(0) = 4 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 5 Then DoCmd.RunMacro "M_A suivre etat"
If Liste0.Column(0) = 6 Then DoCmd.RunMacro "M_ouvrir a suivre par ligne"
If Liste0.Column(0) = 7 Then DoCmd.RunMacro "M_ouvrir a suivre pointage"
If Liste0.Column(0) = 8 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 9 Then DoCmd.RunMacro "M_ouvrir intervention nuit"
If Liste0.Column(0) = 10 Then DoCmd.RunMacro "M_ouvrir intervention week-end"
If Liste0.Column(0) = 11 Then DoCmd.RunMacro "M_ouvrir creneaux intervention"
je ne crois pas avoir supprimer aucune des macro alors je ne sais pas comment faire pour me debug
merci de m'aider
--
je préfère fermer ma gueule et passer pour un con
que l'ouvrir et ne laisser aucun doute à ce sujet
Configuration: Windows XP Safari 525.19
3 réponses
-
je remonte le sujet car je suis sûre que vous pouvez m'aider
merci d'avance -
svp je me permet de remonter le sujet
merci pour l'aide d'avance
pour info lorsque je fait du pas à pas à la colonne 3 lorsque je click et que je déclenche l'événement docmd.runmacro fonctionne il m'ouvre bien ma macro mais après ça il perd sa valeur de list0.columm=3 -