Discussion :

[weyb06]

bonjour,

n'ayant pas trouvé de sujet correspondant sur le forum, je me permets de poster ma question ici.

j'ai un champ dont l'affichage est conditionné par la valeur du champ précédent - pas de souci.

Mais je voudrais que "Si le champ est affiché, il est obligatoire"
j'imagine que si je mets "Null interdit = oui" dans la table, il sera tout le temps obligatoire et pas uniquement s'il est affiché
--> comment puis-je faire svp ?

cordt

[Ric500]

Bonjour,

Sur l'événement BeforeUpdate de ton formulaire, tu testes ton champ:

1 si Texte:

Code :

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

1
2
3
4
5
6
 
If Nz(monChampObligatoire,"")="" then
   MsgBox("Le champ est obligatoire")
   Cancel=True
   Exit Sub
End if

2 si Numérique:

Code :

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

1
2
3
4
5
If Nz(monChampObligatoire,0)=0 then
   MsgBox("Le champ est obligatoire")
   Cancel=True
   Exit Sub
End if

[weyb06]

bonjour,

je ne comprends pas bien la syntaxe proposée...
--> comme mon champ est numérique, j'aurais pensé à :

Code :

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

If Me.ID_Prestation_Fait_générateur.Value = "0" Then...

???

cordt

[Ric500]

En fait il s'agit d'intercepter la saisie incomplète avant l'enregistrement du formulaire:

Tu peux rajouter avant le "Cancel=True"

Code :

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

Me!monChampObligatoire.SetFocus

...pour orienter l'utilisateur au bon endroit.

EDIT: Et remplacer "monChampObligatoire" par ID_Prestation_Fait_générateur

[Ric500]

comme mon champ est numérique, j'aurais pensé à :

Code :

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

If Me.ID_Prestation_Fait_générateur.Value = "0" Then...

Ici tu me dis que ton champ est numérique et tu le codes en String ???

Je pense que tu devrais choisir la deuxième option proposée.

[marot_r]

Bonjour.

Tu peux utiliser cela qui ne dépend pas du type :

Code :

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

1
2
3
4
5
if me.TonChamp.visible and (isnull(me.tonchamp) or isempty(me.tonchamp)) then
   MsgBox("Le champ est obligatoire")
   Cancel=True
   Exit Sub
end if

Toute autre valeur, y compris 0 est accepté comme une valeur valide.

A+

[weyb06]

bonjour à tous,

@Ric500 :
oui j'ai bien mis

Code :

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

1
2
3
4
5
    If Nz(ID_Prestation_Fait_générateur, 0) = 0 Then
       MsgBox ("Le champ est obligatoire")
       Cancel = True
       Exit Sub
    End If

et cela a l'air de fonctionner - même si je ne comprends tjs pas la syntaxe...

et ma proposition

Code :

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

If Me.ID_Prestation_Fait_générateur.Value = "0" Then...

n'était qu'une suggestion - non implémentée !
et oui "= 0" est plus correct dans mon cas !

@marot_r :
là, je comprends la syntaxe ! Merci !
du coup, je pensais qu'avec "isnull" dans cette commande, la valeur 0 serait refusée :
--> "si c'est visible et que c'est (nul ou vide), alors..."

non ?

cordt

[Ric500]

Bonjour,

La Fonction Nz renvoie une valeur alternative si la valeur Null est rencontrée. Bien pratique lorsque Null fait planter le code: je l'emploie quasi systématiquement.

[weyb06]

Merci !
j'aurai appris qqchose today !

cordt

[marot_r]

Bonjour.

@marot_r :
là, je comprends la syntaxe ! Merci !
du coup, je pensais qu'avec "isnull" dans cette commande, la valeur 0 serait refusée :
--> "si c'est visible et que c'est (nul ou vide), alors..."

Non en VBA (et généralement en informatique) un Null est différent d'un 0.
Un null signifie que la valeur est indéterminée, ce n'est "rien" que le système connait.
C'est pour cela que tu as des fonctions dédié à leur traitement comme Nz et IsNull.

Ceci dit Access n'est pas très cohérent car en principe n'importe quoi et Null donne null or si tu fais la somme de Null avec DSum() tu obtiens 0.
Si tu concatène une chaine à null c'est comme si tu ajoutais une chaîne vide ("").
Et en passant on ne peut pas faire if Null=Null, ça donne Null !.
Si tu as un cas comme cela il faut soit substituer le null soit faire if isnull(Null) and isNull(Null) then.
Bref quand on a des Nulls dans ses données, il est prudent de les traiter soi-même pour être sur de la valeur qui leur sera assignés.

A+