Discussion :

[@rkane]

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

Code :

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

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 ...) le code ne fonctionne pas. les 2 champs sont des champs texte.
Quelqu'un y voit-il plus clair que moi ?
merci d'avance.

[FreeAccess]

Bonjour "vieil ours".....

Heu....qu'est ce qui ne fonctionne pas dans ton code..
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 :

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

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

[@rkane]

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 !
Suis pas super blindé en code, mais là, c'est du basique et chez moi ça ne veut rien savoir ! pige pas...

[@rkane]

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 ?

[FreeAccess]

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 :

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

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....

[Heureux-oli]

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.

[@rkane]

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 !