Discussion :

[fazerman]

autant pour moi ça ne changera rien si tu enleve les parenthèses, mais verifie quand meme le nom de tes champs.

[drthodt]

Petite suggestion : le nom de ton champ "Date Visite" comporte un espace, c'est peut etre a cause de ça. Sinon tu peut aussi enlever tout les crochets autour de tes noms de champs, comme ça si il y en a un qui est mal orthographié tu aura un message d'erreur

J'ai certainement du te doner l'habitude que cela ne fonctionnait pas: mais je viens de dire dans le post du dessus que finalement ça marche (le problème venait tout simplement du fait qu'un champ avait une valeur par défaut,donc il n'y avait jamais de champs non vide et c'est pour cela que la boîte de message d'erreur s'affichait toujours).
J'ai juste enlevé la valeur par défaut pour ce champ et ça fonctionne nickel.

A présent pour améliorer le tout j'aimerais bien (mais ça c'est du bonus), pour améliorer l'interface, afficher le nom du ou des champs obligatoires qui ne sont pas saisis et les afficher dans la boite du message d'erreur.
Comment est-ce possible?

[fazerman]

Excuse je n'avais pas vu ton dernier post.
Pour l'amélioration que tu souahaite faire voici une possibilité un peu lourde mais qui devrai marcher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim msg as string 
msg = "Un ou des champ(s) obligatoire(s) n'ont pas été saisi,veuillez le(s) remplir :" & vbnewline
...
Else
if isnull(me.[DateVisite]) then 
   msg = msg & "Date de la visite" & vbnewline
end if
...
...
MsgBox msg, vbOKOnly & vbCritical, "Attention!" 
End If

[drthodt]

Excuse je n'avais pas vu ton dernier post.
Pour l'amélioration que tu souahaite faire voici une possibilité un peu lourde mais qui devrai marcher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim msg as string 
msg = "Un ou des champ(s) obligatoire(s) n'ont pas été saisi,veuillez le(s) remplir :" & vbnewline
...
Else
if isnull(me.[DateVisite]) then 
   msg = msg & "Date de la visite" & vbnewline
end if
...
...
MsgBox msg, vbOKOnly & vbCritical, "Attention!" 
End If

Effectivement c'est un peu lourd comme code vu que j'ai pas mal de champs obligatoires,mais ça fonctionne parfaitement!
Je passe donc le topic en résolu et je te dis un grand merci fazerman! :-)