[kapetang]

Καλησπέρα

Διονύση δοκίμασε το εξής.

Τοποθέτησε στη φόρμα:

1) Ένα βοηθητικό TextBox (πχ txtUser)

2) Δύο κουμπιά (πχ cmdCopyName και cmdCopyPassWord)

Επίσης στη φόρμα χρησιμοποίησε τον ακόλουθο κώδικα.

Option Compare Database
Option Explicit

Private Sub cmdCopyName_Click()
    CopyToClip 1
End Sub

Private Sub cmdCopyPassWord_Click()
    CopyToClip 2
End Sub

Public Sub CopyToClip(i As Long)
    If Me.cboUesr.ListIndex >= 0 Then
        Me.txtUser = Me.cboUesr.Column(i)
        Me.txtUser.SetFocus
        DoCmd.RunCommand acCmdCopy
    Else
        MsgBox "Δεν έγινε επιλογή στο ComboBox"
    End If

End Sub

Όταν κάνουμε κλικ στο κουμπί cmdCopyName o κώδικας δίνει τιμή στο txtUser το UserName και στη συνέχεια (από το txtUser) το αντιγράφει στο Clipboard.

Όταν κάνουμε κλικ στο κουμπί cmdCopyPassWord o κώδικας δίνει τιμή στο txtUser το UserPassWord και στη συνέχεια (από το txtUser) το αντιγράφει στο Clipboard.

Η επικόλληση στο TaxisNet, για κάθε περίπτωση, μπορεί να γίνει με Ctrl+v.

Σημειώνω ότι ως όνομα για το ComboBox χρησιμοποιείται το cboUser.

Φιλικά/Γιώργος