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:
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 :
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:
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:
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
Partager