Discussion :

[sebing]

Bonjour,

Ma question va paraître idiote, mais j'ai un gros trou, je n'arrive pas à récupérer une valeur d'une variable.
Je souhaite lors de l'entrée dans un champs d'un formulaire enregistrer le nom se trouvant dans ce champs, puis lors de ma sortie de celui-ci faire des verifications et si érroné, mettre l'ancien nom, mais je n'y arrive pas.
A l'entrée j'enregistre bien mon nom :

Code :

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

1
2
3
4
5
Public Sub nom_Enter()
' enregistre le nom
Dim nom_old As String
nom_old = Me.nom
End Sub

Et à la sortie la variable est vide

Code :

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

1
2
3
4
Private Sub nom_Exit(Cancel As Integer)
'si modificatin on verifie
MsgBox (nom_old)
End Sub

Pouvez vous éclairer mes lanternes car la je me sens un peu bête voir beaucoup

Bonne journée

Sebing

[mc.schmer]

Hello,

C'est simplement une question de portée de ta variable nom_old...
Tel qu'elle est déclarée actuellement, elle ne porte qu'au niveau de ta sub enter

Déclare la au niveau formulaire afin de conserver sa valeur durant toute la vie de ce dernier:

Code VBA :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private nom_old as String
 
'....

Sinon, tu as la possibilité d'ajouter un champ masqué sur ton form et de lui affecter la valeur à ta guise.

Dernière solution:
Effectue tes vérification sur l'évenement BeforeUpdate de ton champ et si la valeur est erronée, affecte à ton champ sa valeur "OldValue"

Code VBA :

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

Me.nom.Value = Me.nom.OldValue

Cette solution ne nécessite aucune variable ou champ intermédiaire.

[sebing]

Merci mc.schmer, j'ai déclaré ma variable au niveau du formulaire mais ça ne marche pas.
J'ai pris la deuxième solution à savoir ajouter un champs qui se renseigne à l'ouverture du formulaire.
Il va falloir que je me perfectionne dans les variables.

Merci encore

sebing