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"
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.
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
Merci pour votre aide
Partager