Discussion :

[sim911]

Bonjour,

Pour optimiser le temps qu'il faut pour remplir un formulaire, j'aimerais pouvoir transporter d'un enregistrement aux enregistrements qui suivent, la valeur (la valeur récemment utilisé) d'une ou plusieurs zones de texte ou d'une zones de liste.

Par exemple, la zone de texte date d'un formulaire (Text_Date) qui en allant au nouvel enregistrement soit retenu dans la zone de text Text_Date du formulaire...

J'ignore si je suis clair dans mes explications?

Merci beaucoup!

[francishop]

Bonsoir,

Pour charger la dernière valeur composée d'un champ dans la valeur par défaut de ce même champ. Lors de l'affichage du prochain enregistrement à saisir, cette valeur sera reportée dans le champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub LeChamp_AfterUpdate()
    Me.LeChamp.DefaultValue = """" & Me.LeChamp & """"  'pour alpha
End Sub

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub LeChamp_AfterUpdate()
    Me.LeChamp.DefaultValue = Me.LeChamp   'pour numérique
End Sub

Cordialement.

[sim911]

J'avais oublié cette discussion... Ça fonctionne... Merci Beaucoup Francishop.