none
CTRL C RRS feed

  • Question

  • bonjour,

    comment copier la valeur d'un champ dans un formulaire access pour la mettre dans le presse-papier à partir d'un bouton de ce formulaire pour remplacer CTRL C.

    Merci

    Windows10 et Office famille

    lundi 6 août 2018 09:19

Réponses

  • Bonjour,

    Il faut passser par VBA soit avec un DataObject un peu complexe à rédiger et exploiter sinon, il y a plus simple :

    Private Sub cmdCopy_Click()
        Me.txtCopy.SetFocus
        Me.txtCopy.SelLength = Len(Me.txtCopy)
        DoCmd.RunCommand acCmdCopy
    End Sub
    
    Private Sub cmdPaste_Click()
        Me.txtPaste.SetFocus
        DoCmd.RunCommand acCmdPaste
    End Sub
    
    Il faut bien entendu s'assurer de la non nullité du contenu.


    Argy

    lundi 6 août 2018 13:26
    Modérateur

Toutes les réponses

  • Bonjour,

    Il faut passser par VBA soit avec un DataObject un peu complexe à rédiger et exploiter sinon, il y a plus simple :

    Private Sub cmdCopy_Click()
        Me.txtCopy.SetFocus
        Me.txtCopy.SelLength = Len(Me.txtCopy)
        DoCmd.RunCommand acCmdCopy
    End Sub
    
    Private Sub cmdPaste_Click()
        Me.txtPaste.SetFocus
        DoCmd.RunCommand acCmdPaste
    End Sub
    
    Il faut bien entendu s'assurer de la non nullité du contenu.


    Argy

    lundi 6 août 2018 13:26
    Modérateur
  • bonjour,

    Merci pour ceux qui ont cherché. Finalement, j'ai trouvé une solution qui me conviens. Voir ci-dessous :

    Private Sub btn_identifiant_copie_Click()
     
          If IsNull(Form_f_boutique.identifiant) Then   'champ vide
                MsgBox "Le contenu de ce champs est vide!", vbInformation, "Message"
                Exit Sub
          Else
                Form_f_boutique.identifiant.SetFocus
                DoCmd.RunCommand acCmdCopy
          End If

    End Sub

    lundi 6 août 2018 15:51