Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 1008403 visiteurs

 10 visiteurs en ligne

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 6774 fois