Le membre existe déja dans un module objet dont le présent mpdule est dé rivé
3 réponses
Txl
Bonjour,
J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés "microsoft" (donc incompréhensible)
Dans le sousform j'ai 3 mudles de code en entrée ou sortie sur divers champs mais rien de bien méchant, voila les codes
Private Sub modetransmission_Exit(Cancel As Integer)
If [modetransmission] <> "Courrier" Then
[cv] = True
Else
[cv] = False
End If
End Sub
Private Sub Supprimer_Click()
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End Sub
Private Sub datesucces()
If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then
Me.datesucces.Enabled = True
Else
Me.datesucces.Enabled = False
MsgBox "Merci de cocher l'option PML ou PHML"
End If
End Sub
Je ne pense pas qu'il y ait un problème dans le code et je ne comprends pas pourquoi j'ai cette erreur.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Txl" | J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés "microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
"Txl"
| J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des
clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés
"microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces()
If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then
Me.datesucces.Enabled = True
Else
Me.datesucces.Enabled = False
MsgBox "Merci de cocher l'option PML ou PHML"
End If
End Sub
"Txl" | J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés "microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
Le texte d'erreeur est le sujet de mon post "Le membre existe déja dans un module objet dont le présent module est dérivé", bien sur sans code d'erreur, de fenetre de debogage ni rien de tout ca.
J'ai vérifié ce que tu m'as dit et bien sur mon erreur venait de la, un million de mercis, par contre je n'arrive pas à faire ce que je veux (comme d'habitude...)
Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du sousform "datesucces" ne soit accessible (activé)que si cadreetat à la valeur 3 ou 4
Donc j'ai modifié mon code pour mettre la vérification en entrée de datesucces dans le sousform comme suit :
Private Sub datesucces_Enter() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
Mais j'ai un message d'erreur qui me dit qu'il ne peut mas mettre le control en inactif alors que je suis dedans (ce qui parait logique), mais comment empecher les gens d'y aller s'ils n'ont pas choisi l'option 3 ou 4 dans le form parent dans cadreetat ?
J'ai bien pensé à mettre la vérification dasn la sortie du champ précédent mais si un génie va cliquer directement dans le champ datesucces il contourne mon blocage...
Merci d'avance
Salut,
"Txl" | J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés "microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
-- Utilisant le client e-mail révolutionnaire d'Opera : http://www.opera.com/mail/
Salut,
Le texte d'erreeur est le sujet de mon post "Le membre existe déja dans un
module objet dont le présent module est dérivé", bien sur sans code
d'erreur, de fenetre de debogage ni rien de tout ca.
J'ai vérifié ce que tu m'as dit et bien sur mon erreur venait de la, un
million de mercis, par contre je n'arrive pas à faire ce que je veux
(comme d'habitude...)
Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du
sousform "datesucces" ne soit accessible (activé)que si cadreetat à la
valeur 3 ou 4
Donc j'ai modifié mon code pour mettre la vérification en entrée de
datesucces dans le sousform comme suit :
Private Sub datesucces_Enter()
If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then
Me.datesucces.Enabled = True
Else
Me.datesucces.Enabled = False
MsgBox "Merci de cocher l'option PML ou PHML"
End If
End Sub
Mais j'ai un message d'erreur qui me dit qu'il ne peut mas mettre le
control en inactif alors que je suis dedans (ce qui parait logique), mais
comment empecher les gens d'y aller s'ils n'ont pas choisi l'option 3 ou 4
dans le form parent dans cadreetat ?
J'ai bien pensé à mettre la vérification dasn la sortie du champ précédent
mais si un génie va cliquer directement dans le champ datesucces il
contourne mon blocage...
Merci d'avance
Salut,
"Txl"
| J'ai un formulaire "offres", un sous formulaire "clients" dont je me
sers pour affecter des
clients aux offres et lorsque je positionne un client sur une offre j'ai
ce message d'erreur trés
"microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces()
If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then
Me.datesucces.Enabled = True
Else
Me.datesucces.Enabled = False
MsgBox "Merci de cocher l'option PML ou PHML"
End If
End Sub
--
Utilisant le client e-mail révolutionnaire d'Opera :
http://www.opera.com/mail/
Le texte d'erreeur est le sujet de mon post "Le membre existe déja dans un module objet dont le présent module est dérivé", bien sur sans code d'erreur, de fenetre de debogage ni rien de tout ca.
J'ai vérifié ce que tu m'as dit et bien sur mon erreur venait de la, un million de mercis, par contre je n'arrive pas à faire ce que je veux (comme d'habitude...)
Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du sousform "datesucces" ne soit accessible (activé)que si cadreetat à la valeur 3 ou 4
Donc j'ai modifié mon code pour mettre la vérification en entrée de datesucces dans le sousform comme suit :
Private Sub datesucces_Enter() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
Mais j'ai un message d'erreur qui me dit qu'il ne peut mas mettre le control en inactif alors que je suis dedans (ce qui parait logique), mais comment empecher les gens d'y aller s'ils n'ont pas choisi l'option 3 ou 4 dans le form parent dans cadreetat ?
J'ai bien pensé à mettre la vérification dasn la sortie du champ précédent mais si un génie va cliquer directement dans le champ datesucces il contourne mon blocage...
Merci d'avance
Salut,
"Txl" | J'ai un formulaire "offres", un sous formulaire "clients" dont je me sers pour affecter des clients aux offres et lorsque je positionne un client sur une offre j'ai ce message d'erreur trés "microsoft" (donc incompréhensible)
Et quel est-il... ce message d'erreur ? l'objet de ton message ?
C'est quoi, ta sub qui se nomme à l'identique qu'une zone de texte ??
Private Sub datesucces() If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then Me.datesucces.Enabled = True Else Me.datesucces.Enabled = False MsgBox "Merci de cocher l'option PML ou PHML" End If End Sub
-- Utilisant le client e-mail révolutionnaire d'Opera : http://www.opera.com/mail/
3stone
Salut,
"Txl" [...] | Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du | sousform "datesucces" ne soit accessible (activé)que si cadreetat à la | valeur 3 ou 4 | | Donc j'ai modifié mon code pour mettre la vérification en entrée de | datesucces dans le sousform comme suit : | | Private Sub datesucces_Enter() | If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then | Me.datesucces.Enabled = True | Else | Me.datesucces.Enabled = False | MsgBox "Merci de cocher l'option PML ou PHML" | End If | End Sub
Je mettrait plutôt le code sur activation du form principal ET dans l'événement "après mise à jour" de "cadreetat"
if me.cadreetat = 3 or me.cadreetat= 4 then me!nomsousform.Form!datesucces.enabled = true else ... end if
"Txl"
[...]
| Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du
| sousform "datesucces" ne soit accessible (activé)que si cadreetat à la
| valeur 3 ou 4
|
| Donc j'ai modifié mon code pour mettre la vérification en entrée de
| datesucces dans le sousform comme suit :
|
| Private Sub datesucces_Enter()
| If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then
| Me.datesucces.Enabled = True
| Else
| Me.datesucces.Enabled = False
| MsgBox "Merci de cocher l'option PML ou PHML"
| End If
| End Sub
Je mettrait plutôt le code sur activation du form principal ET
dans l'événement "après mise à jour" de "cadreetat"
if me.cadreetat = 3 or me.cadreetat= 4 then
me!nomsousform.Form!datesucces.enabled = true
else
...
end if
"Txl" [...] | Dans le form j'ai un controle "cadreetat" et je voudrais qu'un controle du | sousform "datesucces" ne soit accessible (activé)que si cadreetat à la | valeur 3 ou 4 | | Donc j'ai modifié mon code pour mettre la vérification en entrée de | datesucces dans le sousform comme suit : | | Private Sub datesucces_Enter() | If Me.Parent!cadreetat = 3 Or Me.Parent!cadreetat = 4 Then | Me.datesucces.Enabled = True | Else | Me.datesucces.Enabled = False | MsgBox "Merci de cocher l'option PML ou PHML" | End If | End Sub
Je mettrait plutôt le code sur activation du form principal ET dans l'événement "après mise à jour" de "cadreetat"
if me.cadreetat = 3 or me.cadreetat= 4 then me!nomsousform.Form!datesucces.enabled = true else ... end if
