Obliger les utilisateurs à saisir certains champs?

**drthodt** · 01/09/2005, 03h24

Voici mon problème:
j'ai un formulaire de saisie,avec deux boutons associées à des macros:
- un bouton "retour menu",qui ferme ce formulaire de saisie et rouvre un formulaire d'accueil
- un bouton "quitter" qui ferme le formulaire et quiite la base.
J'aimerais que lors de la saisie il soit obligatoire que l'utilisateur saisisse certains champs,et donc qu'un message le lui rappelle s'il clique sur un de ces 2 boutons sans les avoir remplis lors d'un enregistrement.
Au départ j'avais tout simplement mis un critère "not null" lors de la définition des champs,et cela me met bien un message d'erreur (=du style [nom du champ] doit être rempli) si le champ n'a pas été rempli,mais cela fait également planter la macro correspondant au bouton sur lequel l'utilisateur clique en m'affichant un message d'erreur sur la lecture de la macro.
Comment éviter cela?
Et est-il possible de personnaliser le message s'affichant si la saisie des champs obligatoires n'a pas été effectuée?

**fazerman** · 01/09/2005, 08h35

Le mieux c'est de passé par le code.
Dans la propriété : "Sur clic" de ton bouton tu met :

Code :

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

1
2
3
4
5
If Me![Nom_du_champ] <> "" Then
  'ici tu met le code qui était déja présent
Else
    MsgBox "Un champs n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
End If

Bon courage

**drthodt** · 01/09/2005, 10h50

Envoyé par fazerman

Le mieux c'est de passé par le code.
Dans la propriété : "Sur clic" de ton bouton tu met :

Code :

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

1
2
3
4
5
If Me![Nom_du_champ] <> "" Then
  'ici tu met le code qui était déja présent
Else
    MsgBox "Un champ n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
End If

Bon courage

Merci pour ta réponse mais j'ai plusieurs problèmes:
-j'ai essayé ta méthode avec le nom d'un seul champ,mais j'ai une erreur de compilation au niveau du [Nom_du_champ] (attendu: then ou goto)

-quand tu me dis "ici tu met le code qui était déja présent",je mets quoi?directement le nom de la macro qui me permet de fermer le formulaire (que j'ai appelé fermerFormulaireSaisie)? ça n'est pas une macro VB que j'avais créé et je ne sais pas trop comment faire (désolé je n'y connais quasiment rien).

-dernier problème: je me suis peut être mal exprimé,mais tous les champs de mon formulaire de saisie ne sont pas obligatoires à remplir,il y en a des facultatifs,comment faire pour vérifier que seulement les obligatoires sont remplis?

**fazerman** · 01/09/2005, 13h31

ta macro elle sert juste à fermer le formulaire, car si c'est le cas tu met le code suivant toujours dans la propiété "sur clic" de ton bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub boutonfermer_Click()
 
  If Me.texte1 <> "" And Me.texte2 <> "" and etc... Then
    DoCmd.Close
  Else
    MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
  End If
 
end sub

**drthodt** · 01/09/2005, 14h21

Envoyé par fazerman

ta macro elle sert juste à fermer le formulaire, car si c'est le cas tu met le code suivant toujours dans la propiété "sur clic" de ton bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub boutonfermer_Click()
 
  If Me.texte1 <> "" And Me.texte2 <> "" and etc... Then
    DoCmd.Close
  Else
    MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
  End If
 
end sub

Oui ma macro sert bien uniquement à fermer mon formulaire.
Par contre quand j'utilise ce code,j'ai un message erreur de compilation: utilisation incorrecte du mot-clé Me.Donc ça marche toujours pas

Autre question:pour l'uiliser,dans "sur clic" au niveau de mon bouton de formulaire j'inscris juste le nom de la macro (boutonfermer_Click()?

**fazerman** · 01/09/2005, 14h39

Je le fait sans macro et ça fonctionne pour moi,
essaye de mettre le code que je t'es donné dans la propriété "sur clic "pour ça tu clic sur la fléche à coté du champs "sur clic" puis tu met [procédure évenementiel] puis tu clic sur "..." à coté de la flèche, ensuite t'a plus qu'a metre le code. bon courage.

**drthodt** · 01/09/2005, 15h40

Envoyé par fazerman

Je le fait sans macro et ça fonctionne pour moi,
essaye de mettre le code que je t'es donné dans la propriété "sur clic "pour ça tu clic sur la fléche à coté du champs "sur clic" puis tu met [procédure évenementiel] puis tu clic sur "..." à coté de la flèche, ensuite t'a plus qu'a metre le code. bon courage.

Je viens de faire comme cela,ça fonctionne impec!Merci beaucoup!.
Par contre cela fonctionne tellement bien que je me retrouve devant une difficulté supplémentaire:
-si l'utilisateur ouvre le formulaire de saisie et puis finalement ne saisit aucun champ ou bien supprime un enregistrement,puis clique sur le bouton,ta fenêtre de message d'erreur apparaît (logique puisque les champs de saisie obligatoires sont vides!). Mais dans ce cas là il faudrait qu'elle n'apparaisse pas et laisse l'utilisateur quitter.
Donc comment faire pour que cette fenêtre n'apparaisse pas si l'utilisateur clique sur le bouton et que la totalité des champs est vide??

**fazerman** · 01/09/2005, 15h50

si j'ai bien compris il faut que quand absolument aucun champs n'est rempli tu puisse quitté donc si c'est ça :

Code :

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

1
2
3
4
5
6
 
If (Me.texte1 <> "" And Me.texte2 <> "" and .......) OR (Me.texte1 = "" and me.texte2 = "" and me.texte3 = "" ..........)  Then 
    DoCmd.Close 
  Else 
    MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur" 
  End If

**drthodt** · 02/09/2005, 09h47

Envoyé par fazerman

si j'ai bien compris il faut que quand absolument aucun champs n'est rempli tu puisse quitté donc si c'est ça :

Code :

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

1
2
3
4
5
6
 
If (Me.texte1 <> "" And Me.texte2 <> "" and .......) [b]OR (Me.texte1 = "" and me.texte2 = "" and me.texte3 = "" ..........)[b]  Then 
    DoCmd.Close 
  Else 
    MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur" 
  End If

OK je me doutais qu'il fallait rajouter une condition de ce type,mais après essai ça ne marche pas! Si tous les champs sont vides je me retrouve toujours dans le Else et la boîte du message d'erreur s'affiche

**fazerman** · 02/09/2005, 11h29

essaye ça, ça doit marché :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Me.t1 <> "" Or Me.t2 <> "" Or Me.t3 <> "" Then 'ici tu met toutes tes zones de texte
        If Me.t1 <> "" And Me.t2 <> "" Then 'ici tu met celle qui sont obligatoire
            DoCmd.Close
        Else
            MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
        End If
Else
        DoCmd.Close
End If

**drthodt** · 02/09/2005, 11h59

Envoyé par fazerman

essaye ça, ça doit marché :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Me.t1 <> "" Or Me.t2 <> "" Or Me.t3 <> "" Then 'ici tu met toutes tes zones de texte
        If Me.t1 <> "" And Me.t2 <> "" Then 'ici tu met celle qui sont obligatoire
            DoCmd.Close
        Else
            MsgBox "Un champ obligatoire n'a pas été saisi", vbOKOnly & vbCritical, "Erreur"
        End If
Else
        DoCmd.Close
End If

ça fonctione pas avec les If imbriqués de cette façon,je vais essyaer de triturer un peu.

**fazerman** · 02/09/2005, 12h10

J'ai essayer exactement ce code et ça fonctionne pour moi, qu'est ce qui ne fonctionne pas pour toi.

**drthodt** · 02/09/2005, 14h15

Envoyé par fazerman

J'ai essayer exactement ce code et ça fonctionne pour moi, qu'est ce qui ne fonctionne pas pour toi.

ça me fait le Close si tous les champs sont vides

**fazerman** · 02/09/2005, 14h37

Si tous les champs sont vides je me retrouve toujours dans le Else et la boîte du message d'erreur s'affiche

c'est bien ce que tu souhaitait faire, non?

**drthodt** · 02/09/2005, 15h11

Envoyé par fazerman

Si tous les champs sont vides je me retrouve toujours dans le Else et la boîte du message d'erreur s'affiche

c'est bien ce que tu souhaitait faire, non?

En fait:
-si TOUS les champs sont vides je ne veux pas de msg d'erreur et le formulaire peut se fermer
-si au moins un des champs n'est pas vide,il faut que tous les champs obligatoires soient remplis pour quitter le formulaire (si ça n'est pas le cas
le msg d'erreur DOIT apparaître).

Je ne comprend pas pquoi ton dernier algo ne fonctionne pas,puisqu'apparemment :
-dans le premier if tu regarde les champs un par un pour voir si au moins un n'est pas vide;si ça n'est pas le cas (donc si tous les champs sont vides, tu entre dans le else du bas et ferme le formulaire, c'est bien ce que je voulais).
-si c'est le cas tu entre dans le deuxième if pour vérifier que tous les champs obligatoires sont remplis,si ça n'est pas le cas message d'erreur sinon tu ferme le formulaire.
Quand j'ai tous mes champs vides avec ce code j'ai pourtant le message d'erreur qui apparaît,je ne comprend pas pourquoi.
Voici le code que j'ai entré:

Private Sub Commande50_Click()

If (Me.[DateRDV] <> "" <> "" Or Me.[CodeVendeur] <> "" Or Me.[NumDevis] <> "" Or Me.[CodeClient] <> "" Or Me.[NomClient] <> "" Or Me.[Ville] <> "" Or Me.[Act] <> "" Or Me.[Ets] <> "" Or Me.[NatMouv] <> "" Or Me.[OrigineRDV] <> "" Or Me.[EtatDevis] <> "" Or Me.[CAHT] <> "" Or Me.[pqcmt] <> "" Or Me.[MotifAttente] <> "" Or Me.[AcompteAccepte] <> "" Or Me.[DateRelance] <> "") Then

If (Me.[Date Visite] <> "" And Me.[CodeVendeur] <> "" And Me.[NumDevis] <> "" And Me.[CodeClient] <> "" And Me.[NomClient] <> "" And Me.[Ville] <> "" And Me.[Act] <> "" And Me.[Ets] <> "" And Me.[NatMouv] <> "" And Me.[OrigineRDV] <> "" And Me.[EtatDevis] <> "") Then
DoCmd.Close
Else
MsgBox "Un champ obligatoire n'a pas été saisi,veuillez le remplir", vbOKOnly & vbCritical, "Attention!"
End If
Else
DoCmd.Close
End If
End Sub

En tout cas merci pour ton aide.

**fazerman** · 02/09/2005, 17h04

Effectivement c'est etrange que ça ne fonctionne pas, je viens juste de faire un test avec 4 champs dont 2 obligatoire, dès que je rentre du texte dans un des deux non-obligatoire il me met le message mais si je ne rempli rien le form se ferme. peut etre que c'est u début du 1er if tu à mis 2 fois <> "" <>""., mis je suis septique. tiens moi au courant, désormais je pourais t'aider que lundi, bon WE.

**drthodt** · 04/09/2005, 18h31

J'ai supprimé le premier <>"" au début du premier if mais pas de changement

Peut être que je teste un trop grand nombre de champs??

**fazerman** · 05/09/2005, 08h48

Salut, j'ai fait un test avec le meme nombre d'éléments que toi et ça fonctionne je ne vois vraiment pas pourquoi chez toi ça marche pas.
qqs question :
- certains de tes champs sont ils formatté (ex : Date)
- y a t-il des zones de liste modifiables

sinon tu peut essayer d'enlever quelques champs de ton code puis voir ce que ça donne et si ça fonctionne tu les rajoutes un par un

**drthodt** · 05/09/2005, 10h04

ça y est ça fonctionne!
L'erreur était idiote: un des champs avait en fait une valeur par défaut,et donc il n'était jamais nul! C'est pour cela que j'avais toujours la boîte de message d'erreur qui s'affichait,puisque j'avais toujours un champ non vide et que les obligatoires n'étaient pas remplis.

En tout cas fazerman je te remercie beaucoup!

A présent j'aimerais si possible améliorer la boîte de message d'erreur en affichant le nom du ou des champs obligatoires qui ne sont pas remplis,comment pourrais-je faire?

**fazerman** · 05/09/2005, 10h49

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

Obliger les utilisateurs à saisir certains champs?

Access

Discussions similaires

Partager

Partager