[AC-2003] Formulaire - Vider le presse papier [Résolu]

[jeanpierre78]

Bonjour,

Pour copier un champ d'un enregistrement sur l'autre, j'utilise le code, trouvé sur un forum :
Déclaration des fonctions :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CopyClipboard(ctrSource As Control)
    'Origine : http://www.3stone.be/access/articles.php?lng=fr&pg=46
    'Pour copier le contenu de la zone de texte txtCopy
    'Call CopyClipboard(Me.txtCopy)
 
    On Error Resume Next
    ctrSource.SetFocus
    ctrSource.SelStart = 0
    ctrSource.SelLength = Len(ctrSource.Value)
    DoCmd.RunCommand acCmdCopy
 
End Sub
 
Sub PasteClipboard(ctrCible As Control)
    'Origine : http://www.3stone.be/access/articles.php?lng=fr&pg=46
    'Pour coller le contenu du presse papier dans txtPaste
    'Call PasteClipboard(Me.txtPaste)
 
    On Error Resume Next
    ctrCible.SetFocus
    DoCmd.RunCommand acCmdPaste
 
End Sub

Pour coller la valeur dans l'enregistrement suivant.

Code :

1
2
3
4
5
Private Sub Bordereau_Nr_AfterUpdate()
 
    Call CopyClipboard(Me.Bordereau_Nr)
 
End Sub

pour copier le champ, puis :

Code :

1
2
3
4
5
Private Sub Bordereau_Nr_GotFocus()
 
    Call PasteClipboard(Me.Bordereau_Nr)
 
End Sub

J'ai trouvé sur le forum :
http://vb.developpez.com/faqvba/?page=2#emptyclipboard
qui résoud mon problème.

Merci, ce forum est d'une rechesse incrotable..

Jean-Pierre