[Tasos]

Καλημέρα σε όλους!

Αντώνη, πέρασε τον παρακάτω κώδικα στο συμβάν "Με το διπλό κλικ" του πεδίου "ΟΝΟΜΑ"

Private Sub ΟΝΟΜΑ_DblClick(Cancel As Integer)
    Me.ΟΝΟΜΑ.SetFocus
    If Trim(Nz(Me.ΟΝΟΜΑ.Text, vbNullString)) <> vbNullString Then
        Me.ΟΝΟΜΑ.SelStart = 0
        Me.ΟΝΟΜΑ.SelLength = Len(Me.ΟΝΟΜΑ.Text)
        DoCmd.RunCommand acCmdCopy
    End If
End Sub

Καλή συνέχεια!

Τάσος