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"

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