[AC-2007] Créer son propre ClipBoard (Copier,Coller) pour des champs déterminé

[robyseb]

Bonjour Voici un petit code facile pour créer votre propre ClipBoard il vous suffit de créer une table (Que j'ai nommée tbl_Copie) avec les champs nécéssaire. Donc si vous avez 2 champs à copier (Comme mon exemple) vous créer 2 colones soit (ChampPremiereValeur) et (ChampDeuxiemeValeur). Ensuite voici le code VBA que vous pouvez mettre sous des boutons "Copier","Coller","Effacer le ClipBoard"


Bouton copier:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Copier_Click()
Dim champPlein As String
champPlein = Nz(DLookup("ChampPremiereValeur", "tbl_copie"), "")
If IsNull(champPlein) Or champPlein = "" Then
copie:
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("tbl_copie")
            MaTable.AddNew
                    MaTable("ChampPremiereValeur") = Me.champ1
                    MaTable("ChampDeuxiemeValeur") = Me.champ2
            MaTable.Update
MaTable.Close
Else
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
GoTo copie
End If
End Sub

Bouton Coller :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub coller_Click()
Dim champvide As String
champvide = Nz(DLookup("ChampPremiereValeur", "tbl_copie"), "")
If IsNull(champvide) Or champvide = "" Then
MsgBox "Le Clipboard est vide", vbinformation
Exit Sub
Else
Me.champ1 = DLookup("ChampPremiereValeur", "tbl_copie")
Me.champ2 = DLookup("ChampdeuxiemeValeur", "tbl_copie")
End If
End Sub

Bouton Effacer le ClipBoard:

Code :

1
2
3
Private Sub deleteClipboard_Click()
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
End Sub

et sur le bouton de sortie de votre base rajouté le code ci-dessous:

Code :

CurrentDb.Execute "DELETE * FROM [tbl_copie];"