Discussion :

[steeves5]

Salut à tous

Je voudrais savoir comment faire pour tester un bouton dans un formulaire A qui a été séléctioné dans le formulaire B?

Merci de votre aide

[Dolphy35]

Salut,

Tu peux être un peu plus précis, quel type de bouton, les deux forms sont-ils ouverts ??

Merci

[steeves5]

ok
En fait dans mon formulaire B, j'ai deux boutons qui ouvre le formulaire A. Et dans mon formulaire A je souhaiterai savori lequel des deux bontons j'ai appuyé.

et les deux formulaires sont ouverts

[fscli]

salut
dans ton formulaire A met 1 controle (ex zone de texte que tu met invisible)
dans ton formulaire B lorsque tu cliques sur le premier bouton tu peux par exemple rendre la zone de texte enabled
lorsque tu cliques sur le premier bouton tu peux par exemple rendre la zone de texte pas enabled

apres tu teste et tu sais sur quel bouton tu as appuyé
ya surement d'autre moyens...

[Dolphy35]

re,

Utilise l'option OpenArgs de la commande OpenForm, tu peux faire un truc comme ceci :

Code :

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

    DoCmd.OpenForm "MonForm", acNormal, , , , , "Bouton1"

et à l'ouverture de ton autre formulaire tu récupère la valeur de OpenArgs:

Code :

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

1
2
    Dim strBouton As String
    strBouton = Me.OpenArgs

ta variable strBouton aura soit bouton1 soit bouton2.

[ft035580]

Salut,


Tu peux mettre un label dans ton formulaire A et à partir de ton formulaire B

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub BoutonA_Click()
DoCmd.OpenForm "FormulaireA"
Forms![FormulaireA]![info].Caption = "Vous avez appuyé sur le bouton 1"
End Sub
 
 
 
DoCmd.OpenForm "FormulaireA"
Forms![FormulaireA]![info].Caption = "Vous avez appuyé sur le bouton 2"
End Sub

[ft035580]

Ps: Info est le nom du label.

[steeves5]

Merci à tous

Je pense que je vais pouvoir tester l'ensemble de vous suggestions.

Encore merci

[Petogaz]

salut,

le plus simple est de récupérer le nom du controle active lors du click donc mettre tout bêtement dans le code du click des boutons ce code :

Code :

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

msgbox "c'est le bouton "&Me.ActiveControl.Name

ou dans la zone texte du formulaire B :

Code :

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

=forms("formulaire A").activecontrol.name

c'est tout !!

[steeves5]

Ok merci encore a tous pour votre aide.
J'ai pu adapté vos suggestions a mon application. qui était de récupérer des valeurs dans le formulaire en fonction des boutons du formulaire B.

Merci