Discussion :

[aupositeur]

Bonsoir les gens,

j'essaye de copier/coller un champ dans un nouvel enregistrement. cependant vba me bloque sur : le copier... avez-vous une idée?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Me.F_Parutions.Form!Titres_abonnements.SetFocus
Me.F_Parutions.Form!Titres_abonnements.SelStart = 0
Me.F_Parutions.Form!Titres_abonnements.SelLength = Len(F_Parutions.Form!Titres_abonnements.Text)
 
DoCmd.RunCommand acCmdCopy 'ici ca bloque
 
Me.F_Parutions.Form.Recordset.AddNew
 
Me.F_Parutions.Form!Titres_abonnements.SetFocus
Me.F_Parutions.SetFocus
DoCmd.RunCommand acCmdPaste

merci bcp d'avance pour votre aide

a bientot

[tee_grandbois]

Bonsoir,
De quel contrôle s'agit-il,de celui-ci : Me.F_Parutions.Form!Titres_abonnements ?
le plus simple ne serait-il pas de copier sa valeur dans une variable ?

[aupositeur]

hello tee_grandbois,

effectivement c'est bien celui là.

il est pas bien mon code?

J'ai une erreur 2046.... comprend pas bien ce que cela signifie

merci au fait...

PS : précision, le sous-formulaire est en mode feuille de données

[aupositeur]

c pas tres pro, mais ca fonctionne :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Btn_Click()
Me.F_Parutions.Form.Recordset.AddNew
Me.F_Parutions.Form!Titres_abonnements.SetFocus
Me.F_Parutions.SetFocus
SendKeys "^"""
End Sub