En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1026497 visiteurs

 3 visiteurs en ligne

Recopier dernière valeur

Recopier la dernière valeur saisie de certains contrôles

Dans un formulaire en mode "continu", inscrire par exemple 'ADupliquer' dans la propriété Remarque (Tag) des contrôles à recopier lors de la création d'un nouvel enregistrement, puis dans l'événement "sur après mise à jour" du formulaire :

Private Sub Form_AfterUpdate()
    Dim Ctl As Control
    For Each Ctl In Screen.ActiveForm.Controls
        If Ctl.Tag = "ADupliquer" Then
            Ctl.DefaultValue = """" & Ctl.Value & """"
        End If
    Next
End Sub

Une autre méthode qui peut être déclenchée à la demande (un bouton par exemple)

Private Sub btnCopie_Click()
    Dim Ctl As String
    Ctl = Screen.PreviousControl.Name
    Select Case Me.Controls(Ctl).ControlType
    Case acTextBox, acCheckBox, acComboBox, acListBox
        Me.Controls(Ctl).DefaultValue = """" & Me.Controls(Ctl).Value & """"
    End Select
End Sub

Ainsi que la méthode "manuelle" smile

Dans la zone de texte, appuyez sur : Control + '  (apostrophe)


Catégorie : Les mémos - Formulaires
Page lue 6852 fois

Vous êtes ici :   Accueil » Recopier dernière valeur