Private Sub Text0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
If IsNull(Text0.Value) Then
.SetText ""
.PutInClipboard
Else
.SetText Text0.Value
.PutInClipboard
End If
End With
End If
End Sub
Private Sub Text0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
If IsNull(Text0.Value) Then
.SetText ""
.PutInClipboard
Else
.SetText Text0.Value
.PutInClipboard
End If
End With
DoCmd.CancelEvent
End If
End Sub
' Copy selected text or object.
DoCmd.RunCommand acCmdCopy
' Paste a copied text or object.
DoCmd.RunCommand acCmdPaste
Private Sub txtDescription_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
If IsNull(txtDescription.Value) Then
.SetText ""
.PutInClipboard
Else
.SetText txtDescription.Value
.PutInClipboard
End If
End With
DoCmd.CancelEvent
End If
End Sub
Private Sub Text0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
If Not IsNull(Text0.Value) Then
DoCmd.RunCommand acCmdCopy
End If
DoCmd.CancelEvent
End If
End Sub
If Button = 2 Then
If Not IsNull(txtDescription.Value) Then
DoCmd.RunCommand acCmdCopy
End If
DoCmd.CancelEvent
End If
Ctrl+C will copy it
Ctlr + V will paste it
If you want to use code you could, but you aren't going to really save any keystrokes or mouseclicks.