Discussion :

[touche_a_tout]

Bonjour,
Dans la proc événementielle d'un bouton, je veux copier une donnée dans un champ d'un formulaire C indépendant et la coller dans un champ du même nom dans un sous-formulaire B intégré à un formulaire A. Mon code assigne bien la valeur à copier à ma variante mais ne trouve pas le sous-formulaire de destination et je ne comprends pas pourquoi. J'ai essayé en remplaçant les ! par des . ; j'ai essayé en ajoutant Form devant le nom du sous-formulaire, sans résultat. J'ai aussi essayé d'aller en 2 temps: mettre le focus sur le fomulaire principal A puis sur le sous-formulaire hébergé B: néant ! J'ai contrôlé mes relations et fait des essais avec des clef mono-champ, bi-champ, tri-champ mais sans succès.
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande12_Click()
Dim Mavaleur As String
Forms!FrmT_Maitre.Controls("IDMaitre").SetFocus
Mavaleur = Forms!FrmT_Maitre.Controls("IDMaitre").Value
Forms!FrmT_Eleve!FrmT_Ass.Controls("IDMaitre").SetFocus
Forms!Form_FrmT_Eleve!FrmT_Ass.Controls("IDMaitre").Value = Mavaleur
Mavaleur = ""
End Sub

Est-ce que quelqu'un pourrait me dépanner ?
Merci d'avance pour toute piste ou solution.
Cordialement
Pierre

[tee_grandbois]

Bonjour,
il manquait la propriété Form du sous-formulaire

Code :

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

Forms!Form_FrmT_Eleve!FrmT_Ass.Form.Controls("IDMaitre").Value = Mavaleur

[marot_r]

Bonjour.

La syntaxe pour accéder aux éléments d'un sous-formulaire est :

Code :

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

forms![NomTonFormPrincipal]![NomTonControleSousForm].Form![NomTonControle]

Un contrôle sous-formulaire est un contrôle qui contient un formulaire.
Une sorte de boite qui contient le formulaire. Donc pour accéder au formulaire lui-même, il faut utiliser .Form.

Genralement NomTonControleSousForm est les mêmes que celui du formulaire contenu mais ce n'est pas obligatoire.

Note que si le sous-formulaire est dans le formulaire qui éxécute le code tu peux aussi utiliser la syntaxe suivante :

Code :

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

me.NomTonControleSousForm.Form![NomTonControle]

ou si tu aimes typer tes données autant que moi;

Code :

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

1
2
3
4
dim f as Form_NomTonFormDansLeSousForm
set f=me.NomTonControleSousForm.Form
f.NomTonControle=Ici une valeur
set f=nothing

me. designe le formulaire qui éxécute le code.

L'un des avantages de cette syntaxe c'est que tu bénéficies de l'intellisens et que ton instruction d'affectation est plus simple.

A+

[touche_a_tout]

Bonjour,
J'aime tout autant le style concis de Tee_grandbois que les développements de marot_r; grand merci à tous les deux. Il manquait "Form"; pourtant j'en ai consulté des exemples de sub événementielles sur le web, mais bref...
encore merci et bonne soirée
Cordialement
Pierre

[touche_a_tout]

Bonsoir Tee et marot-r,
Me revoici parce que je pense que je n'ai rien compris. D'ailleurs je suis au niveau zéro de VBA pour Access et des formulaires. J'ai modifié mon code et j'ai toujours le même message d'erreur. J'ai des questions:
1) dans le 1er exemple de marot-r est-ce que [NomTonControleSousForm] est la même chose que [NomTonSousForm] ? Ou alors je n'ai donc pas besoin de nommer mon sous-formulaire dans le code ? Sinon qu'est-ce que ça désigne ?
2) Dans mon explorateur de projet, j'ai Form_Frmt_Eleve alors que mon formulaire s'appelle FrmT_Eleve, pourquoi ?
3) Le bouton est dans le sous-formulaire FrmT_Ass et mon code dans un module ordinaire, est-ce correct ?
J'ai sans doute mal interprété vos indications. Mon code est devenu (extrait):

Code :

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

1
2
3
4
Forms!FrmT_Maitre.Controls("IDMaitre").SetFocus
Mavaleur = Forms!FrmT_Maitre.Controls("IDMaitre").Value
Forms!FrmT_Eleve!FrmT_Ass.Form.Controls("IDMaitre").SetFocus
Forms!FrmT_Eleve!FrmT_Ass.Form.Controls("IDMaitre").Value = Mavaleur

Merci de votre patience.
Cordialement
Pierre

[tee_grandbois]

bonsoir,
1) [NomTonControleSousForm] désigne le contrôle du sous-formulaire (IDMaitre) et [NomTonSousForm] est le nom du sous-formulaire (FrmT_Ass), mais cette syntaxe est valable si le Sub est dans le formulaire principal.

2) Form_Frmt_Eleve est le nom que donne VBA au formulaire Frmt_Eleve, comme tous les objets de la classe formulaire, par ailleurs, VBA en profite pour remplacer les caractères réservés par des underscores "_".
la syntaxe Form_Frmt_Eleve peut donc très bien être utilisée à la place de Forms!Frmt_Eleve.

3) Si le code du bouton est dans le sous-formulaire dans ce cas la syntaxe est beaucoup plus simple :

Code :

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

Me.IDMaitre = Forms!FrmT_Maitre.Controls("IDMaitre")

[touche_a_tout]

Bonsoir marot_r et tee_grandbois,
Le niveau zéro, comme je disais. Dans un premier temps j'ai essayé la première proposition de marot_r clarifiée par les explications de Tee. J'ai testé 7 rédactions différentes (voir le code) et les 7 donnent l'erreur "ne trouve pas FrmT_Ass". L'événementiel et moi, ça fait deux ! Vous vous adressez à la petite classe, vous qui êtes des experts, n'ayez pas peur de revenir au b, a, ba.
Mes tests de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Forms!FrmT_Maitre.Controls("IDMaitre").SetFocus
Mavaleur = Forms!FrmT_Maitre.Controls("IDMaitre").Value
'modèle marot_r: forms![NomTonFormPrincipal]![NomTonControleSousForm].Form![NomTonControle]
                 Forms!FrmT_Eleve.Form!FrmT_Ass.Form!IDMaitre.Form.SetFocus
'      variante: Forms!FrmT_Eleve!FrmT_Ass.Form!IDMaitre.Form.SetFocus
'      variante: Forms!FrmT_Eleve!FrmT_Ass.Form!Controls("IDMaitre").Form.SetFocus
'      variante: Forms!FrmT_Eleve!FrmT_Ass.Form!IDMaitre.SetFocus
'      variante: Forms!FrmT_Eleve!FrmT_Ass.Form!Controls("IDMaitre").SetFocus
'       variante:Forms!FrmT_Ass.Form!IDMaitre.Form.SetFocus
Forms!FrmT_Eleve!IDMaitre.Form.Controls("IDMaitre").Value = Mavaleur
Mavaleur = ""
End Sub

Merci d'avance
Cordialement
Pierre

[touche_a_tout]

Bonsoir marot_r,
J'ai aussi essayé avec ta dernière proposition:

Code :

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

Me.IDMaitre = Forms!FrmT_Maitre.Controls("IDMaitre")

mais chaque fois j'ai eu "Usage illicite de l'expression me". En fait je ne sais pas comment l'intégrer à la procédure. De mon code (post de 15 h 29), qu'est-ce qui est remplacé par cette ligne citée ci-dessus ? Merci de m'éclairer.
Cordialement
Pierre

[touche_a_tout]

Bonsoir
Stop !
Pas de quoi être fier: c'était juste une saloperie d'underscore qui traînait dans mon code, bref une faute de frappe. Rgntudju ! Je suis profondément désolé de vous avoir fait phosphorer à propos d'une c... dont je suis seul responsable. Mille pardons !
Bonne fin de soirée tout de même !
Cordialement
Pierre