Mémoriser une valeur

Mémoriser une valeur même après fermeture d'un formulaire

Inscrire comme valeur par défaut d'un contrôle :

=fMemory()

Puis comme événement "sur après mise à jour" de ce même contrôle :

=fMemory([LeControle].[Value])

Dans un nouveau module standard, donc en dehors du formulaire, cette fonction servira à stocker la dernière valeur saisie :

Public Function fMemory(Optional NouvelleValeur As Variant) As String
    Static strSauvegarde As String
    fMemory = strSauvegarde

    If Not IsMissing(NouvelleValeur) Then
        strSauvegarde = Nz(NouvelleValeur, "")
    End If

End Function


Dernière modification : 08/02/2010 01:40
Catégorie : Les mémos - Formulaires
Page lue 9378 fois