Discussion :

[pascal5]

Bjr la communautée et joyeuses Paques à vous.

Voila sur ce forum j'ai trouvé une solution en vba qui me plaisait bien concernant les messages d'erreurs en cas de non remplissage d'une ou plusieurs zones de texte d'un formulaire.
Le seul hic c'est que le formulaire ce réactualise en cas d'erreur et donc du coup faut tout retaper.
Y'a t'il un moyen pour dire au form de ne pas ce réactualiser en cas d'erreur.
Merci à vous.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim pb As Boolean
pb = False
If Nz(Me.NomPatient, "") = "" Then MsgBox "Le nom du patient est obligatoire": pb = True
If Nz(Me.PrenomPatient, "") = "" Then MsgBox "Le prénom du patient est obligatoire": pb = True
If Nz(Me.TelephoneFix, "") = "" Then MsgBox "Un numéro de télephone fix est obligatoire": pb = True
If Nz(Me.datenaissance, "") = "" Then MsgBox "Une date de naissance est obligatoire": pb = True
If Nz(Me.NumeroRue, "") = "" Then MsgBox "Un numero de rue est obligatoire": pb = True
If Nz(Me.Rue, "") = "" Then MsgBox "Une rue est obligatoire": pb = True
If Nz(Me.Communes, "") = "" Then MsgBox "La commune est obligatoire": pb = True
If Nz(Me.codepostal, "") = "" Then MsgBox "Un code postal est obligatoire": pb = True
If Nz(Me.Soins, "") = "" Then MsgBox "Le soin est obligatoire": pb = True
If Nz(Me.JoursDeSoins, "") = "" Then MsgBox "Le Jour des soins est obligatoire": pb = True
If Nz(Me.DebutSoins, "") = "" Then MsgBox "La date de début des soins est obligatoire": pb = True
If Nz(Me.FinSoins, "") = "" Then MsgBox "La date de fin des soins est obligatoire": pb = True
If Nz(Me.HorraireMatin, "") = "" Then MsgBox "L'heure des soins est obligatoire": pb = True
If pb Then Me.Undo
End Sub

[jimbolion]

pascal5 bonjour,

Tout à fait normal et c'est même toi qui oblige à réinitialiser complètement les données de ton formulaire.

En regardant de plus près ton code, à chaque erreur tu initialises ta variable pb en true et en fin de procédure (ligne17) la condition pb=true réinitialise ton formulaire.

Commande la ligne 17 de cette façon et refais un test :

Code :

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

' If pb Then Me.Undo

JimboLion

[pascal5]

aussi simple que ça.
Merci Jimbolion

[jimbolion]

pascal5

N'oublie pas le tag résolu et bonnes fêtes Pascales (trop fort JimBoLion)

JimBoLion

[pascal5]

Merci