Discussion :

[69.zebulon]

Bonsoir,

Voici mon problème du jour :

J'ai créé un groupe d'options, case d'option, Chèque, Prélèvement, Virement : goTypePaiement. Un champ N° chèque : NumCheqRem.
Je souhaite que NumCheqRemise ne s'affiche que lorsque optCheq est coché.
Dans les propriétés j'ai réglé NumCheqRem sur non visible.

Pour cela j'ai regardé les tutoriels sur les cases à cocher et les événements figurant sur le site. Je ne comprends pas comment appliquer ceci http://starec.developpez.com/tuto/gr...ons/#LII-A-2-b

J'ai essayé de mettre cette procédure événementielle :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub optCheque_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.goTypePaiement.optCheque.Value = True Then
    Me.NumCheqRem.Visible = True
Else
    Me.NumCheqRem.Visible = False
End If
End Sub

J'obtiens une erreur de compilation : Membre de méthode ou de données introuvable.

J'ai aussi essayé cela :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub optCheque_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.optCheque.Value = True Then
    Me.NumCheqRem.Visible = True
Else
    Me.NumCheqRem.Visible = False
End If
End Sub

Cette fois j'ai une erreur d'exécution 2427 : Expression sans paramètre.

Ces deux erreurs me font pensées que je n'arrive pas à atteindre la valeur de optCheq. Pourriez-vous m'indiquer comment procéder ?

Merci.

[marot_r]

Oui la syntaxe est un peu tordue :

Code :

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

1
2
3
4
5
if Me.goTypePaiement=Me.optCheque.optionvalue then
    Me.NumCheqRem.Visible = True
  else
    Me.NumCheqRem.Visible = False
End If

A+

[69.zebulon]

Merci.

Cela fonctionne mais il subsiste une anomalie, probablement sur la nature de l'événement.
La valeur par défaut de goTypePaiement est optPrelevement.
J'ai inscrit le code sur souris relâchée.
Pour que le champ NumCheqRem devienne visible, il me faut cliquer 2 fois sur optCheq...

Une idée où positionner le code?

[69.zebulon]

J'ai essayé une autre méthode : par l'assistant Mise en forme conditionnelle sur NumCheqRem. J'ai choisi l'option expression et inscrit le code :

Code :

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

1
2
 
Me.goTypePaiement=Me.optCheque.optionvalue = Vrai

Le résultat n'est pas mieux...

[marot_r]

Bonjour.

Personnellement je mettrai cela dans l'événement après MAJ du groupe d'option.

Sinon sur "Sur activation" peut-être.

A+

[69.zebulon]

Bonjour,

J'ai découvert ce matin que l'on pouvait placé l'événement sur le groupe d'options. Je l'ai placé sur Après MAJ et cela fonctionne effectivement. J'attendais avant de poster de nouveau comment rendre NumCheqRem de nouveau invisible une fois l'enregistrement effectué. Soit en cliquant sur suivant ou lors du rechargement du formulaire vide.
J'ai aussi le problème suivant à résoudre: Lorsque je remonte aux enregistrements précédenst, comme je n'agis pas sur le groupe d'options, même si optCheq est coché le champ NumCheqRem n'apparaît pas...
Je potasse le tutoriel sur les événements...

Je posterai le résultat final une fois le pb résolu.

Merci pour votre participation.

@+

[marot_r]

Bonjour.

Pour ton problème ce devrait être l'événement sur Activation du formulaire.

A+

[69.zebulon]

YES !

J'ai réussi !

Donc pour obtenir un résultat probant il faut placer le code sur le groupe d'option goTypePaiement Après MAJ et sur le formulaire Sur Activation cf : ici.

Code :

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

1
2
3
4
5
6
 
If Me.goTypePaiement = Me.optCheque.OptionValue Then
    Me.NumCheqRem.Visible = True
  Else
    Me.NumCheqRem.Visible = False
End If

Merci pour votre aide.
@+