Discussion :

[Jonkill]

J'ai un formulaire (frmpr1) composé de deux sous formulaires (frm1 et frm2)
Dans ces sous formulaires il n'y qu'un seul champ t1 et t2 respectivement pour frm1 et frm2

Dans le formulaire frmpr1 je voudrais qu'au clic sur un bouton, la valeur du champ t2 soit copié dans le champ t1. J'ai donc fait le code "boiteux" ci-dessous qui ne fonctionne qu'une fois sur 10, en fonction d'ou est le focus au moment du clic. Lorsque ça ne marche pas j'obtiens l'erreur 2046, la commande ou l'action "Copier" n'est pas disponible pour l'instant"

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande2_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 (sauvegarde l'enregistrement de t2)
Me.frm2.SetFocus 
DoCmd.RunCommand acCmdCopy
Me.frm1.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 (sauvegarde l'enregistrement de t1)
End Sub

Je n'ai pas de base en VBA, je ne peux que reprendre ce que je trouve à droite et à gauche et faire des adaptations mineurs.

Merci pour votre aide

[Jack78960]

Bonjour,
Tout simplement :

Code :

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

1
2
3
Private Sub Commande2_Click()
Me.frm1.form.T1 = Me.frm2.form.T2  
End Sub

[Jonkill]

Excellent Merci

J'ai ajouté ceci sous ton code pour enregistrer le changement

Code :

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

1
2
Me.frm1.SetFocus
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Merci