Discussion :

[eddy37fr]

bonjour a tous

j'ai un TabCtl sur un formulaire client qui contient 2 pages : une page Bureau central et une page Bureau regional (invisible par defaut).

j'ai egalement une combo box (oui/non) qui permet de repondre a la question suivante: "Travaillez-vous avec un de leurs bureau regionaux?" Si la reponse est oui j'aimerai que la page Bureau regional devienne visible.

Voici le code que j'ai ecrit mais rien ne se passe quelque soit l'endroit ou je le place

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Reg As String
Reg = Me.CliRegOffice 'c'est la combo box en question
 
If Reg = "Yes" Then
Me.TabCtl4.Pages(1).Visible = True
End If
 
If Reg = "No" Then
Me.TabCtl4.Pages(1).Visible = False
End If

si quelqu'un peu m'aider

merci

[mikeGo20]

Chaque page de l'onglet doit avoir un nom ... c'est ce nom que tu dois utiliser pour appliquer le code.

Code :

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

1
2
 
page2.visible=false

Pour un fonctionnement efficace, sur l'événement Form_Current()

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Current()
if not isnull(Me.CliRegOffice) then 
     me.page2.visible=iif(Me.CliRegOffice="Oui",-1,0)
else
     me.page2.visible=0
endif
End Sub

puis lors de la mise à jour du combo box CliRegOffice

Code :

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

1
2
3
4
 
Private Sub CliRegOffice_AfterUpdate()
     me.page2.visible=iif(Me.CliRegOffice="Oui",-1,0)
End Sub

bonne chance