Discussion :

[pascal913]

Je dispose d'Access 97. J'ai une table avec une 15aine de champs. J'ai aussi un formulaire basé sur cette table. Pour la plupart de mes champs, j'ai raccroché une macro dans les propriétés de chaqun d'entre eux, dans la propriété OnExit. Il y a une macro pour chaque champs. A l'intérieur de chaque macro, j'ai :
Condition|Action
"" |MsgBox

Message --> Vous devez entrer le nom d'un demandeur
Beep --> Yes
Type --> Warning!
Title --> Erreur d'oubli

La seule chose qui différencie chque macro est la contenu du message d'erreur.
Mais là où le problème ce pose, c'est qu'avec cette condition (""), je pensais alors que le message d'erreur ne s'afficherait seulement si on sort du champ sans avoir rien écrit. Eh bien non! ça s'affiche meme si j'écris quelque chose!
C'est pour cela que j'envoie ce message, quelle condition écrire pour que le message d'erreur ne s'affiche uniquement si l'on part d'un champs qui est vide.

Merci d'avance.

[Lou Pitchoun]

Salut,

Ta condition doit tester le fait que le champ soit vide. Or ce n'est pas écrit...
Là ta condition est vide : y en a pas... (ou alors c'est pas compris..)

Exemple de test

Code :

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

1
2
3
If isNull(Me.NomChamp) then
    MsgBox "Vous devez saisir un nom"
End if

[GAGNON]

Salut

Beaucoup de gens te conseilleront d'éviter les macros ...

Tu peux alors pour chaque champs, utiliser par exemple l'évènement surChangement
ce qui résoudra ton prb

[pascal913]

Merci kikof et GAGNON de m'avoir répondu.

Je le teste tout desuite et je reviens pour vous dire ce qu'il en est.

[pascal913]

Re.

Mais où faut-il que j'écrive ton code kikof? peux tu préciser stp?

Merci

[Lou Pitchoun]

Tu as écrit

dans la propriété OnExit

Peut être dans la procédure évènementielle Sur Sortie du champ.

Par contre ne serait-il pas plus simple de mettre la propriété "Null interdit" du champ de la table à oui ??? Access gérerait tout seul les champs obligatoires.. et tu auras un message qui te dira que e champ doit être renseigné...

[GAGNON]

kikof

un message qui te dira que e champ doit être renseigné...

en effet, mais ce msg sera préformaté et sans doute "inconfortable" pour l'utilisateur

moi j'utiliserai un msgbox dans l'évènement surChangement qui tient compte justement du test égalité de la valeur sur la sortie du ctrl

[Lou Pitchoun]

Sur changement, ça ne marche pas vraiment...

[pascal913]

bonjour à tous!!!

Désolé de ne pas avoir répondu plus tot car je ne le pouvais pas. J'ai pu tester ce que vous m'avais dis, c'est-à-dire qu'il faut écrire le code suivant :

If isNull(Me.NomChamp) then
MsgBox "Vous devez saisir un nom"
End if

Code qui fonctionne (presque) parfaitement car même s'il m'affiche correctement le message voulu quand le champ est vide, cela n'empeche pas le formulaire de passer à un nouvel enregistrement. C'est pour cela que j'envoie ce message, est-ce possible de faire en sorte qu'il se produise la même chose mais que le formulaire garde l'enregistrement courant afin de ne pas oublier de rentrer une valeur dans le champs. Voilà. Si je me suis mal expliqué, ou que vous n'avez pas compris, n'hésitez pas à me demander des précisions.

Merci d'avance.

[Tofalu]

Il faut utiliser ce code sur l'évenement BeforeUpdate (avant mise à jour) du formulaire et le modifier de telle sorte que l'on ne mette pas à jour les données si le champ n'est pas renseigné

If Nz(Me.NomChamp)="" then
MsgBox "Vous devez saisir un nom"
'Empeche la mise à jour
Cancel=False
End if

[pascal913]

re bonjour a vous tous !!!

Vos codes respectifs fonctionnent parfaitement, je vous en remercie.

Mais le problème que je retrouve dans chacun d'entre vous, c'est que malgré le message d'avertissment qui s'affiche au moment souhaité, le formulaire passe à l'enregistrement suivant, et c'est la que ma question arrive : est-il possible de faire afficher le message d'avertissement de la même façon mais que l'on reste sur l'enregistrement courant, pour éviter des éventuels oublis, et pourquoi pas, de ne pas pouvoir passer à l'enregistrement suivant tant que le champs n'est pas rempli ?

Merci d'avance pour vos réponses.

[Lou Pitchoun]

Salut,
Mets True au lieu de False

[pascal913]

Merci beaucoup Kikof !!!!

Grâce à toi et les autres, vous avez résolus mon problème !!!

Encore merci à tous!!!