[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
A voir également:
- [Access vba]erreur 2467....
- Access appdata - Guide
- Erreur 4101 - Forum Lecteurs et supports vidéo
- Erreur t32 ✓ - Forum Livebox
- Acer quick access - Forum Logiciels
- Iptv erreur de lecture - Forum TV & Vidéo