Discussion :

[dodo28]

Bonjour,
pouvez vous m'aider pour ce probléme :

J' ai un etat (ET_FichePrelevementGIC), en l'ouvrant le texbox (Te_Espece) grace au generateur d'expression va se remplir.
Selon le contenu de ce textbox, je voudrai rendre visible ou invisble et modifier le contenu d'autres textbox.
Voici le code que j'ai effectué :

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
Private Sub Report_Open(Cancel As Integer)
 
'A l'ouverture de l'etat va masquer les textbox selon le contenu de te_espece
 
 
If Me.Controls("Te_Espece") = "Faisan Commun" Then
 
    Me.Controls("Te_PrlevtPoule").Visible = True
    Me.Controls("Te_PrlevtPoule").Caption = "Faisan poule"
    Me.Controls("te_prlvtCoqLievre").Visible = True
    Me.Controls("te_prlvtCoqLievre").Caption = "Faisan coq"
 
 
End If
 
End Sub

L'erreur est "expression sans parametre" sur la premiere ligne.

Pouvez vous m'aider?
Et es ce que mon code est au bon endroit (Private Sub Report_Open(Cancel As Integer))?
Merci beaucoup

[marot_r]

Quand on veut faire ce genre de chose avec un rapport il faut le faire sur OnFormat ou OnPrint.

Aussi si tu fais disparaître un contrôle pense à aussi le faire réapparaître sinon il va devenir invisible la 1ère fois et ne redeviendra jamais plus visible.

Ton code devrait ressembler à :

Code :

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

1
2
3
4
5
if TaCondition then
   me.TonControle.visible=false
 else
   me.TonControle.visible=true
end if

Enfin c'est généralement une mauvaise idée de tester le texte d'une valeur dans du code. Je te recommande de créer une champ "EstInvsible" (type Booléen ou Oui/Non) dans ta source de données et de faire le test sur cela.

Ton code ressemble alors à

Code :

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

1
2
3
4
5
if Me.EstInisible then
   me.TonControle.visible=false
 else
   me.TonControle.visible=true
end if

L'avantage est qui si tu veux que ce soit autre chose qu'un faisan qui devienne invisible, il te suffit de cocher le EstInvisible et il va disparaître sans avoir à changer le code ton rapport.

A+

[dodo28]

Merci beaucoup pour les renseignements,
Mais je ne trouve pas la procedure evenementielle Onformat dans l'evenement.
et avec ce code j ai toujours la meme erreur :

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
 
Private Sub Report_Open(Cancel As Integer)
 
'A l'ouverture de l'etat va masquer les textbox selon l'espece
 
 
 If Me.Te_espece = "Faisan Commun" Then
 
    Me.Controls("Te_PrlevtPoule").Visible = True
   Me.Controls("Te_PrlevtPoule").Caption = "Faisan poule"
    Me.Controls("te_prlvtCoqLievre").Visible = True
   Me.Controls("te_prlvtCoqLievre").Caption = "Faisan coq"
 
 
End If
 
 
End Sub

Merci

[marot_r]

"Sur formatage" en français.

A+

[dodo28]

Merci beaucoup pour tous ces conseils, ca marche