Discussion :

[Cyphen]

Salut !!

Merci d'avance pour vos réponses.

Malgré la FAQ et les recherches diverses sur le forum et sur Google, je reste bloqué sur quelque chose qui ne semble pourtant pas si compliqué.

J'ai un bouton dans un sous-formulaire et je voudrais que lors d'un clique sur celui-ci, cela emule le click d'un des boutons de son formulaire père.

J'ai essayé plusieurs choses dont:

Forms![Father]![Control].Onclick
Forms![Father]![Control_Click]
[Father].Control_Click

Mais cela ne semble pas marcher...

Que faire donc ?

[argyronet]

Boujour,
Le module d'un formulaire est une classe et tu ne peux pas appeler aussi simplement que tu le penses...
Tu as une soultion parallèle qui consiste à mettre le code de la dite procédure ---> Et que fait-elle la procédure du formulaire père ? ---> dans un module et la rendant "publique", après quoi tu pourras l'appeler.

Argy

[Trini]

Bonjour,

J'utilises quelquefois ce genre d'appel et celal fonctionne correctement

Code :

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

1
2
3
4
5
6
7
 
 
Forms!MonFrm.Bouton_Click
 
'  et aussi
 
Parent.Bouton_Click

avec donc Bouton qui se trouve dans le formulaire parent, bien sûr if faut retirer le PRIVATE de la procédure Sub Bouton_click(), mais sinon ça marche.

Salut,

[Cyphen]

Le bouton père permet ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub BtChange_Click()
 
'Open the Change Status Window
 
If Me.StUpd.Visible = False Then
Me.StUpd.Visible = True
Else
Me.StUpd.Visible = False
 
Color
 
Dim SQL As String
SQL = "UPDATE [ZLT Tools] SET [Status] = '" & StatusTxt & "' WHERE [Part Number] = '" & PNTxt & "';"
DoCmd.RunSQL (SQL)
 
TreeOpen
 
End If
 
End Sub

Color et TreeOpen étant des fonctions...

En fait j'aimerai que le bouton update contenu dans le sous-formulaire lance les actions équivalentes à ce click pour fermer le sous-formulaire, mettre à jour mon code couleur, ma base et mon arbre.

Il y a vraiment pas moyen d'appeler ce Click ?

[Cyphen]

Bonjour,

J'utilises quelquefois ce genre d'appel et celal fonctionne correctement

Code :

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

1
2
3
4
5
6
7
 
 
Forms!MonFrm.Bouton_Click
 
'  et aussi
 
Parent.Bouton_Click

avec donc Bouton qui se trouve dans le formulaire parent, bien sûr if faut retirer le PRIVATE de la procédure Sub Bouton_click(), mais sinon ça marche.

Salut,

Il me dit qu'il est impossible de masquer le controle actif.

[Trini]

C'est quoi l'erreur exactement ?

[Trini]

Décidement on se croise dans les réponses

Ben ton problème vient pas de l'appel, y fonctionne bien.

Regardes plutôt sur tes contrôles, propriété Activé Oui/non avec un setfocus sur l'un d'eux.

Salut,

[Trini]

Ou même plutôt sur le contrôle Me.StUpd.
Tu essaies de le rendre invisble alors que c'est le contrôle actif, un truc de ce genre.
Essaies d'attribuer un SetFocus à un autre contrôle avant de le rendre invisible.

Salut,

[Cyphen]

Ou même plutôt sur le contrôle Me.StUpd.
Tu essaies de le rendre invisble alors que c'est le contrôle actif, un truc de ce genre.
Essaies d'attribuer un SetFocus à un autre contrôle avant de le rendre invisible.

Salut,

Avec un SetFocus avant ca marche ^^

Ceci dit, autre question avant de clore totalement ce sujet (parce que je veux pas en faire un autre et géner le reste).

Peux t on faire en sorte lors d'un Update SQL d'enlever la msgbox automatique qui s'affiche... C'est assez génant ;p

merci en tout cas

[Trini]

Ben un cht'i Docmd.Setwarnings False devrait suffire.

Salut

[Cyphen]

Ben un cht'i Docmd.Setwarnings False devrait suffire.

Salut

Ca marche ;p Merci encore ;p

J'ai l'impression d'être en Espagnol en programmant sur Access... Je comprend bien mais j'ai pas le vocabulaire...

Problème résolu.

[argyronet]

Ah c'est beau le bricolage !!!

Si ce genre de solution te convient, tant mieux mais franchement, c'est un plat de spaghettis...

Argy

[Cyphen]

Ah c'est beau le bricolage !!!

Si ce genre de solution te convient, tant mieux mais franchement, c'est un plat de spaghettis...

Argy

Bah c'est pas que je veux absolument que ca me convienne mais j'ai pas d'autres solutions pour le moment. Je veux pas qu'on voit de MsgBox... Si tu as une meilleure idée je suis preneur...

Je suis loin d'être informaticien dans mes études comme dans la vie ^^ Alors forcement c'est loin d'être nickel mon truc

Si tu as une solution plus "technique" je suis preneur.

[Trini]

ma qué, t'ou n'aimes pas mes spaghettis !!

[argyronet]

Non, pas ceux là...
Dans ce débat, je préfère les cuisiner moi-même...