Créer son propre ClipBoard (Copier,Coller) pour des champs déterminé
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];"
