Question d'un p'tit nouveau

Question

Salut a vous ! je me posais une question. J'aimerais savoir s'il est possible de changer le nom d'un bouton par programmation dans un programmation VBa pour Acces.

Mise en situation : 

J'ai un formulaire avec plusieur boutons

Commande0, Commande1 ...

J'aimerais que Commande0 change pour cmdAllo lorsque l'argument donne par le clique sur le boutons du formulaire pr&#233;c&#233;dent est allo.

Je ne sais pas si je suis assez clair, mais il me serait tr&#232;s pratique de savoir s'il est possible et surtout qu'elle est la ligne de commande. 

Merci et bonne journ&#233;e a tous,

mrdep1978 · Answer

Je ne pense pas que ce soit possible et, surtout, je ne vois quel est l'int&#233;r&#234;t ?

cs_tari · Answer

C'est très simple Pour afficher la valeur du bouton du formulaire1 sur le bouton du formulaire2 dans le code de la Form_Load du 2nd formulaire tu mets : Form_..caption = Form_..caption tu peu mettre autre chose (variable ou texte entre " ") après le = Voilà J'espère avoir bien compris ton problème, si tu ne trouve pas ou si ce n'est pas n'hésite pas à demander

mrdep1978 · Answer

Avec ce code tu changes le texte du bouton (propri&#233;t&#233; Caption), pas son nom (Propri&#233;t&#233; Name).

Cohiba021 · Answer

oki alors vous allez peut-&#234;tre alors m'aidez a trouver une autre solution.

J'ai FRMmain qui a plusiseur bouton. 

Lorsque je clique sur cmdtpv il load le FRM2, qui a plusieurs boutons non visible, avec l'argument Tpv et affiche 2 boutons.

Un avec Probl&#232;me et un avec contacte en caption. que je rend visible.

Mais quesqui arrive c'est que selon l'argument envoyer le bouton dont le nom (Propri&#233;t&#233; Name) est commande0 n'ouvre pas toujours la m&#234;me chose. Donc ce que je voulais faire c'est chang&#233; commande0 en cmdXXXXX et cr&#233;&#233; un private sub pour cmdXXXX qui change selon l'argument re&#231;u a l'ouverture de FRM"

D&#233;sol&#233; si je en suis pas assez clair, je en suis pas tr&#232;s habitu&#233; &#224; programmer et je n'utilise surment pas toujours les bon terme.

Mais je vous remercie de prendre le temps de me r&#233;pondre.

Bonne journ&#233;e a tous, (ou bonne soir&#233; si vous n'&#234;tes pas au canada).

mrdep1978 · Answer

Ca pour pas &#234;tre clair ...

R&#233;sumons :
Qu'est ce que la variable tpv ? O&#249; est-elle d&#233;finie?
Sur quelle Form est situ&#233; le bouton Command0 ? Est-ce un de tes boutons avec, en caption, Probl&#232;me ou Contact ?

Pour moi, si ton principe de fonctionnement est (Attention le code ci-dessous ne fonctionne pas !!!!)
If tpv = "allo" Then
   command0.Name = "cmdAllo"
Else
   command0.Name = "cmdToto"
End if
Avec :
Private Sub cmdAllo_Click()
....
End Sub
Private Sub cmdToto_Click()
...
End Sub

Rien ne t'emp&#234;che d'avoir &#224; la place
Private Sub Command0_Click()
   If tpv = "allo" Then
      Call MySubAllo()
   Else
      Call MySubToto()
   End If
End Sub

Private Sub MySubAllo()
...
End Sub

Private Sub MySubToto()
...
End Sub

Cohiba021 · Answer

Ok je suis d&#233;sole, de ne pas &#234;tre clair.


 


J&#8217;ai FrmMain, et FRM2.


 


Dans FrmMain il y un 2 boutons commande.


 


1 qui est CmdA et1 qui est CmdB.


 


Lorsque je clique sur Cmda je load FRM2 avec l&#8217;argument A1 et si je clique sur B je load encore FRM2 mais L&#8217;argument B1


 


Donc lorsque FRM2 load il active les boutons n&#233;cessaires selon que l&#8217;argument envoy&#233; soit A1 ou B1.


 


Par exemple FRM2 a 6 boutons non affich&#233;. L&#8217;argument A1 active 2 boutons (Commande0 et Commande1) et l&#8217;argument B1 active 3 boutons (Commande0, Commande1, Commande2). Mais ce qui arrive c&#8217;est que Commande0 qui a &#233;t&#233; activ&#233; avec l&#8217;argument A1 n&#8217;ouvrira pas la m&#234;me chose que Commande0 qui a &#233;t&#233; activ&#233; par l&#8217;argument B1.  


 


Je sais que je pourrais faire plusieurs formulaires diff&#233;rents mais je ne veux pas &#234;tre oblig&#233; de cr&#233;er un formulaire pour chaque bouton cr&#233;&#233; dans FrmMain. Car chaque bouton vont ouvrir un formulaire semble, (en fait il a juste le nombre de bouton et le nom (caption) des boutons qui change).


 


 


Je sais pas si sa va vous aider mais bon, voici ce qu&#8217;il a dans le Sub CmdA


 


Private Sub cmdA_Click()


 


    DoCmd.OpenForm "frm2", , , , , , "SPID"


    


End Sub


 


Et voici ce qu&#8217;il a dans le Sub CmdB


 


Private Sub cmdtpv_Click()


 


    DoCmd.OpenForm "frm2", , , , , , "TPV"


End Sub


 


 


Dans FRM2 j&#8217;ai


 


Private Sub Commande0_Click()


 


DoCmd.OpenForm "frmTemplateRecherche", , , , , , tblA1


 


End Sub


 


Si il a &#233;t&#233; activ&#233; avec l&#8217;argument A1 mais s&#8217;il est activ&#233; avec l&#8217;argument B1 alors il faudrait que sa devienne


 


Private Sub Commande0_Click()


 


DoCmd.OpenForm "frmTemplatecontact", , , , , , tblcontactB1


 


End Sub


 


 


 


Je vous remercie vraiment de votre aide et surtout de votre patience

mrdep1978 · Answer

OK, j'ai compris !!!
Il faut utiliser la propri&#233;t&#233; OpenArgs, pour savoir quelle est la valeur de l'argument que tu as pass&#233; &#224; FRM2
Et donc, il faut mettre dans les &#233;v&#233;nements click de tes boutons Command0, Command1 .... le test sur OpenArgs pour choisir ce que tu vas faire :
Private Sub Commande0_Click()
if OpenArgs = "SPID" Then
   DoCmd.OpenForm "frmTemplateRecherche", , , , , , tblA1
else
   'TPV<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />   DoCmd.OpenForm "frmTemplatecontact", , , , , , tblcontactB1
end if
End Sub

Cohiba021 · Answer

Merci beaucoup de ton aide...

Je test et je t'e donne des nouvelle

Merci encore

Question d'un p'tit nouveau

8 réponses

Discussions similaires