Problème de code vb [Résolu]

[Magno]

bonjour,

Je me suis mis un peu au code parce que l'interface est trop limité...

voici une partie de mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
If (Eval("[Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Référence_Fournisseur_Usine] is Null")) Then
        If (Eval("[Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Modifiable] is Null")) Then
            "Mes instructions..."
        Else
            MsgBox "Vous n'avez pas remplie la référence fournisseur", vbCritical, ""
            Exit Sub
        End If
Else
      If (Eval("[Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Modifiable] is Null")) Then
            MsgBox "Vous n'avez pas remplie le code fournisseur", vbCritical, ""
            Exit Sub
 
       Else
               "Mes instructions..."
      End If
End If

en gros :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Si Champ1 est null faire
  Si Champ2 est null faire
       "mes instructions"
   Sinon 
       afficher message erreur et arrêter la fonction
Sinon
 Si Champ2 est null faire
        afficher message erreur et arreter la fonction
   Sinon
       "Instructions"  
fin

j'expliquerai mieux sous forme de tableau

Code :

1
2
3
4
5
6
 
Champ1        champ2        Résultat 
Null           Null              ok
Null         Non null         erreur
Non null      Null            erreur
non null    non null          ok

Mon problème est que, quand j'ai mes deux champs null, ma commande se bloque à la ligne 12 et m'affiche mon message "vous n'avez pas remplie la référence fournisseur" alors que champ1 null et champ2 null donc ok...

je serais très heureux de votre aide

Merci

[marot_r]

J'ai un peu de mal à suivre ta logique mais je pense que

Code :

1
2
3
4
5
6
7
8
9
if isnull([Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Référence_Fournisseur_Usine]) and isnull([Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Modifiable]) then
        'Tes instructions
    else
        'Message d'erreur
        'Le message d'erreur s'affichera 
        '  si l'un ou l'autre des champs n'est pas null
        '  ou si les deux champs ne sont pas null
        '
end if

devrait faire la même chose en plus simple.

Eval est à éviter car il peut permettre des attaques sur ton application ou ta machine par exemple :

eval("Shell ""format c:""") à de forte chance de reformater le disque c: de ta machine ... pas cool.

A+

[Magno]

Code :

1
2
3
4
5
6
7
 
 
Champ1        champ2        Résultat 
Null           Null              ok
Null         Non null         erreur
Non null      Null            erreur
non null    non null          ok

je suis tout a fait d'accord avec ce que vous m'avez donné sauf qu'on ne traite pas la dernière possibilité, c'est à dire, non null et non null faire ok

[mkl238]

Bonjour,

comme ceci ca devrait être bon:

Code :

1
2
3
4
5
if isnull([Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Référence_Fournisseur_Usine]) Xor isnull([Forms]![F_H_0_Creer_Coswin_av_Correspondance_Fournisseur]![Modifiable]) then
    'Message d'erreur
else
    'Instructions
end if

[Magno]

Xor je ne connaissait pas, c'est un ou exclusif ???

[mkl238]

oui, c'est bien ça

[Magno]

et bien merci, je viens tout juste faire l'opération et ça fonctionne bien ! Super un grand merci

[Magno]

pouvez vous me traduire en français le Xor svp ? pq moi je comprends ça

Vrai si un seul des éléments est vrai
Faux sinon (si les deux sont faux ou les deux sont vrais)

[mkl238]

C'est bien ça, le ou exclusif ne retourne vrai que si c'est un résultat OU l'autre (et donc pas l'un et l'autre) et donc:

Vrai Xor Vrai = Faux
Vrai Xor Faux = Vrai
Faux Xor Vrai = Vrai
Faux Xor Faux = Faux

[Magno]

J'avais bien compris alors,
Merci pour tout