Discussion :

[fdalyon]

Bonjour,

Dans un état, je souhaite que des étiquettes soient visibles ou non en fonction de la valeur d'une zone de texte, mais je me heurte toujours à des problèmes de code. Avec le code ci dessous, j'ai l'erreur "Expression sans paramètres"

Code :

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

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
 
If ResultatRDV.Value = 3 Then Refus.Visible = True Else Refus.Visible = False
If ResultatRDV = 2 Then Contrat.Visible = True Else Contrat.Visible = False
If ResultatRDV = 1 Then Attente.Visible = True Else Attente.Visible = False
 
End Sub

Pareil avec celui ci :

Code :

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

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
 
If ResultatRDV = 3 Then TxtRDV.Value = Refus
If ResultatRDV = 2 Then TxtRDV.Value = Contrat
If ResultatRDV = 1 Then TxtRDV.Value = Attente
 
End Sub

J'ai essayé de mettre le premier code sur report load. Dans ce cas je n'ai pas d'erreur mais c'est toujours la dernière condition (ResultatRDV = 1) qui apparait.

J'ai essayé de mettre le second sur report load dans ce cas j'ai valeur non valide pour ce champ (pour la 3eme condition)

Je ne sais pas si c'est important mais l'état est sous forme de listing. (plusieurs adresses sur la même page)

Si quelqu'un pouvait m'aider
Merci par avance

[marot_r]

Essaye sur l'événement OnFormat ou OnPrint du détail.

A+

[rjamin]

Bonsoir,

ResultatRDV est-ce une variable ou champ de l'état?
Si c'est un champ il faut écrire Me!ResultatRDV même remarque pour l'autre.

[fdalyon]

bonjour,
J'ai mis le code dans onformat
ResultatRDV est un champ
TxtRDV est une zone de texte indépendante.

J'ai écris le code un peu différemment et ca marche pour celui ci :

Code :

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

1
2
3
4
 
If Me.[TbAdresses.ResultatRDV] = 3 Then Me.Refus.Visible = True Else Me.Refus.Visible = False
If Me.[TbAdresses.ResultatRDV] = 2 Then Me.Contrat.Visible = True Else Me.Contrat.Visible = False
If Me.[TbAdresses.ResultatRDV] = 1 Then Me.Attente.Visible = True Else Me.Attente.Visible = False

Mais pas pour celui ci :

Code :

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

1
2
3
If Me.[TbAdresses.ResultatRDV] = 3 Then Me.[TxtRDV].Value = Refus
If Me.[TbAdresses.ResultatRDV] = 2 Then Me.[TxtRDV].Value = Contrat
If Me.[TbAdresses.ResultatRDV] = 1 Then Me.[TxtRDV].Value = Attente

Ce qui n'est pas grave.
Donc un grand merci à vous

[rjamin]

Re,

A mon avis les textes devraient être entre " " Refus => "Refus" etc...

RJ

[fdalyon]

Je vais essayer.
Je te remercie