Private Sub TheTextYouWhantToCopy_DblClick(Cancel As Integer)
' the field you want to copy '
Me.[TheTextYouWhantToCopy].SetFocus
Me.[TheTextYouWhantToCopy].SelStart = 0
Me.[TheTextYouWhantToCopy].SelLength = Len(Me.[TheTextYouWhantToCopy])
DoCmd.RunCommand acCmdCopy...
