Discussion :

[Alpha31]

Bonsoir,

J'ai une table ou j'ai defini des champ avec,

Null interdit : oui
chaine vide autorisée: non

J'ai créer un formualaire d'ajout de donner,

Tant que je ne rempli pas donc c champ obligatoire, je ne peux passere au suivant.

Jusque la ca va :d

le pb c'est qu'il ne me dit par pourquoi, je voudrai que lorsque l'utilisateur ne rempli pas tous les champs que j'ai defini ainsi, lorsqu'il veulent remplir la fiche suivante qu'ils aient un message d'erreur spécifiant le nom du champ a comple
ter.

j'ai teser en mettant :
valide si : Est pas null
message si erreur : tatata

mais il ne me l'affiche pas, peut etre car j'ai plusieur champ de la sorte.

Il ya til un moyen
merci
Alpha

[polo(31)]

tu as juste une table?
ou un code en VB dérriére(ou autre chose d'ailleur)?

[javelot69]

Voici le code à mettre en procédure évènementielle dans la propriété "Après MAJ" du champ qui ne peut être nul ; bien sûr ce code peut être mis sur tous les champs qui doivent être remplis.

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
Private Sub TonChamp_AfterUpdate()
Dim bytChoice As Byte
Dim intOption As Integer
Dim Cancel As Byte
 
If IsNull(TonChamp) Then
bytChoice = MsgBox("Le champ TonChamp ne peut être vide", intOption)
intOption = vbOK
    If bytChoice = vbOK Then
    Cancel = True
    TonChamp.SetFocus
    End If
End If
 
End Sub

[Alpha31]

Oui, j'avais bien penser a mettre du vb de la sorte, mais je pensais kil y avait bien plus simple dans access, en gros quelque chose qui régisse déja cela, car je trouve bete d'emcher l'user sans pr autant le prevenir.

[Pierre Fauconnier]

Salut.

Voici le code à mettre en procédure évènementielle dans la propriété "Après MAJ"

Il me semble que Javelot69 veut parler de l'évènement BeforeUpdate, car AfterUpdate ne gère pas le paramètre Cancel.

Normalement, si tu gères l'évènement BeforeUpdate et que tu modifies

Code :

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

Cancel = True

tu n'as pas besoin de

Code :

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

tonchamp.setfocus

puisque tu ne perds pas le focus sur ce champ.

Ok?

[Alpha31]

Heu la c entre vous.

Donc je suis obligé de faire du Vb a ce que je vois encore pour ca. Ils auraient pu prévoir de bloquer en permettant la possibilité d'envoyé simplement un message a l'user sinon c un peut stupide non ?

[Pierre Fauconnier]

Bonjour

Tu n'auras pas de message d'erreur si TOUS tes champs sont "NULL INTERDIT= OUI" => As-tu besoin que tous les champs soient remplis? Si oui, tu peux contourner le problème en ajoutant un champ "Commentaires" avec "NULL INTERDIT = NON".
En cas de Null dans un autre champ, tu auras le message d'erreur d'Access avec le nom du premier champ NULL qu'il trouve.

Ok?

[javelot69]

Bonjour,

Je confirme avoir mis le code que je propose dans la propriété "Après MAJ" de plusieurs champs dans des formulaires sur plusieurs applicatifs que j'ai développé.

Cela fonctionne très bien. J'ai aussi ajouté à l'occasion une variable qui stocke le contenu du champ et remet ce contenu en cas d'effacement involontaire. J'ai également utilisé cette procédure sur des zones de liste déroulante.

Précision : je travaille avec Access 2003.

Bonne journée.

[Pierre Fauconnier]

Salut Javelot69...

En fait, comme tu spécifiais dans ta proc

Code :

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

Cancel = True

j'ai pensé que tu utilisais le "Cancel" de l'évènement BeforeUpdate, sans voir que tu avais défini une variable portant ce nom .

Question, si tu veux bien: Pourquoi n'utilises-tu pas l'évènement "BeforeUpdate"? Y-a-t'il une raison particulière à préférer, dans le cas d'une annulation, AfterUpdate?

Merci et bonne journée

[Alpha31]

Tu n'auras pas de message d'erreur si TOUS tes champs sont "NULL INTERDIT= OUI"

En fait je n'ai que 5 champs en "NULL INTERDIT=OUI" sur 150
il ne me met pas de message derreur pour autant.

A si simplement kan je ferme l'application, d'autant plus que mettre en message d'erreur qu'il manque table.nom je trouve pas ca top, mais bon.

[javelot69]

Salut Pierre Fauconnier ,

Pour répondre à ta question : la 1ère fois que j'ai mis ce code en place, c'était sur une zone de liste déroulante basée sur un champ "Civilité" (M.Mme, Monsieur, Madame, etc) ; je ne voulais pas que ce champ reste vide car c'est moche d'imprimer des étiquettes mailing sans civilité.

J''avais donc créé une zone de texte (cachée) qui stocke le contenu du champ et le remet en cas d'effacement involontaire qui est bien un évènement AfterUpdate. J'ai gardé l'habitude de mettre ma procédure de cette manière.

Bonne journée.

[Alpha31]

Bon, j'ai finalement adopter votre solution, néamoins lorsque qu'1 champ est obligatoire, que l'utilisateur ferme access directement, access envoie bien un message mais pas trés compréhensible pour l'utilisateur du genre "tatata table.champ", peut on personaliser le message quelque part pr kil y soit plus compréhenssible pour l'user.

[Alpha31]

Personne ?