Formulaire pour insérer des données

[Job3-14]

Bonjour,

1) J'ai un formulaire nommé "F-Principal". Il contient 3 TexteBox.

2) Lorsque je clic sur un des trois TexteBox de "F-Principal" , un sous-formulaire nommé "F-Boutons" s'ouvre. Ce sous formulaire contient 9 boutons ayant comme "Caption." :

.....................Caption
bouton 1 = .... 1
bouton 2 = .... 2
bouton 3 = .... 3
etc...

Ce que je veux obtenir :

Lorsque je clic sur ces boutons, je veux que la valeur de "Caption" s'inscrive dans la TexteBox qui avait le focus juste avant l'ouverture de "F-Boutons".

Quelqu'un a une idée?

Merci de m'aider !

[tee_grandbois]

Bonsoir,
je commencerai par ajouter un contrôle non visible dans F-principal que je nommerai ControleActif.
Ensuite je créerai un Sub nommé MajTextBox

Code :

1
2
3
4
5
6
7
8
9
Public Sub MajTextBox()
' si on doit initialiser la valeur de tous les contrôles de type TextBox
For Each Control In Me
    If Control.Properties("ControlType") = acTextBox Then Control.Value = ""
Next
' Mémorisation du dernier controle actif
Me.ControleActif = Me.ActiveControl.Name
 
End Sub

Après sur l'événement "Sur Réception Focus" (GotFocus) de chaque TextBox je ferai appel au sub MajTextBox pour mémoriser le dernier contrôle actif

Code :

1
2
3
Private Sub Texte0_GotFocus()
Call MajTextBox
End Sub

Enfin, sur l'événement "Sur clic" (Click) de chaque bouton je mettrai ce code-ci :

Code :

Parent.Controls(Parent.Controls("ControleActif")).Value = Me.ActiveControl.Caption

[Job3-14]

J'ai le message d'erreur suivant :

Erreur d'exécution 2452
La référence à la propriété Parent de l'expression entrée n'est pas correcte.

[Philippe JOCHMANS]

Bonjour

Lorsque tu veux faire des interactions entre les formulaires et les sous-formulaires, voici un tuto à lire :

Les appels formulaires/états.

Philippe

[Job3-14]

Envoyé par Job3-14

Bonjour,

2) Lorsque je clic sur un des trois TexteBox de "F-Principal" , un sous-formulaire nommé "F-Boutons" s'ouvre. Ce sous formulaire contient 9 boutons ayant comme "Caption." :

J'amène ici une correction sur la correction de mon énoncé. Au point deux, "F-Boutons" n'est pas un sous-formulaire, mais plutôt un autre formulaire indépendant du premier.

Je joins un exemple pour la compréhension.

[tee_grandbois]

Bonjour,
dis nous si c'est mieux comme cela :

Code :

Me.Parent.Controls(Me.Parent.Controls("ControleActif")).Value = Me.ActiveControl.Caption

Ce code doit être placé dans l'événement "Sur clic" de chaque bouton du sous-formulaire F-boutons.
Remarque : par convention, il faut éviter l'utilisation de caractères ambigüs ou réservés tels que : -, +, /, *, =, & etc. pour nommer des objets.