verification d'une condition dans le code

bonjour à tous,
j'ai ce bout de code qui me pose probleme :

Code:

---

1 2 3

ElseIf Me.Pci.Value = "oui" And IsNull(Me.DureePci) Then MsgBox "Veuillez remplir le champ ""Durée de la perte de connaissance initiale""" Me.dureepci.SetFocus

---

il y a quelque chose qui m'echappe dans cette routine de controle (pas trop les yeux en face des trous aujourd'hui :oops: ...) le code ne fonctionne pas. les 2 champs sont des champs texte.
Quelqu'un y voit-il plus clair que moi ?
merci d'avance.

Bonjour "vieil ours".....;)

Heu....qu'est ce qui ne fonctionne pas dans ton code..:question:
De plus, je pense que le début de ton If nous serait utile....

Car si je teste vite fait ton code (en changeant uniquement ton ElseIf par un If) le code fait ce qu'il doit faire.....

==> si ton champ Pci contiens la valeur "oui" et que ton champ DureePci contient une valeur nulle, alors le Msgbox est activé, puis retour du curseur sur ton champ DureePci....

[EDIT] Eventuellement essaie d'utiliser la forme suivante:

Code:

---

1 2 3 4

If (IsNull(DureePci) Or (DureePci = vbNullString)) And Me.Pci.Value = "oui" Then MsgBox "Veuillez remplir le champ ""Durée de la perte de connaissance initiale""" Me.DureePci.SetFocus End If

---

salut Free,
alors je te joins un fichier "épuré" dirais-je, parce que là je deviens chèvre... quelque soit le code la condition n'est pas prise en compte ! 8O
Suis pas super blindé en code, mais là, c'est du basique et chez moi ça ne veut rien savoir ! pige pas...

bon, en fait je viens de tester quelque chose...
Si je remplace les valeurs "oui" ou "non" par "a" ou "b", ça fonctionne ! tu peux m'expliquer pourquoi ?

Citation:

---

Si je remplace les valeurs "oui" ou "non" par "a" ou "b", ça fonctionne ! tu peux m'expliquer pourquoi ?

---

Alors là pas du tout.......;)...;)

Par contre, voici comment je gérerais ton formulaire:
-1) Déja dans ta table, sur le champ dureepci "Chaine vide autorisée = oui"
-2) Sur ton formulaire, passe ton champ dureepci Visible= non

Puis le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Enregistrement_Click() If IsNull(pci) Then MsgBox "Une valeur du champ PCI doit être sélectionnée" Me.pci.SetFocus ElseIf Me.pci.Value = "Oui" And (IsNull(dureepci) Or (dureepci = vbNullString)) Then MsgBox "Le champ Durée PCI doit être renseigné" Me.dureepci.SetFocus ElseIf (Me.pci.Value = "Oui" And IsNull(dureepci) = False) Or Me.pci.Value = "Non" Then MsgBox "ENREGISTREMENT EFFECTUE" DoCmd.Close acForm, Me.Name End If End Sub   Private Sub pci_AfterUpdate() If Me.pci.Value = "Oui" Then Me.dureepci.Visible = True Else Me.dureepci.Value = "" Me.dureepci.Visible = False End If End Sub

---

.....a tester....et à améliorer....:)

C'est parce que dans ton If, tu as écrit oui et pas Oui.

Je viens de faire le test sur ton formulaire, si tu test sur Oui et Non c'est bon.

:oops: euh... sais pas quoi dire là... Effectivement ç'est bien de là que venait le probleme. En tout cas merci à tous les deux pour votre interet toujours aussi sympa !
:chin: