Discussion :

[fabrice518]

Bonjour,

j'ai un formulaire qui contient 2 sous formulaires (superposés).

Mon but est de créer un menu dans un Formulaire et des "pages" qui correspondent a mes 2 sous formulaires. En gros ca ressemblera a des onglets.

Mon probleme:

j'ouvre mon formulaire et mon sform1, tout va bien.
je clic sur le bouton qui doit afficher mon sform2 (et cacher mon sform1)

j'ai ce message :

Erreur d'execution'2165'
Impossible de masquer le controle actif


Voici le code que j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function ouvrirSFORM2()
 
'Le sous formulaire sform2 devient visible
Forms!Formulaire1!sform2.Form.Visible = True
 
'Le sous formulaires sform1 devient caché
Forms!Formulaire1!sform1.Form.Visible = False
 
End Function

Il semblerait que le probleme vient quand je cache le sform1


Merci pour votre aide !

[medkarim]

vous ne pouvez pas attribuer le paramètre False (0) aux propriétés Visible et Enabled d'un contrôle si ce dernier est activé.
il faut passe le focus avant avec la méthode setfocus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function ouvrirSFORM2() 
 
'Le sous formulaire sform2 devient visible
 
Forms!Formulaire1!sform2.Form.Visible = True 
 
'active le sous formulaire sform2
Forms!Formulaire1!sform2.Form.setfocus
 
'Le sous formulaires sform1 devient caché 
Forms!Formulaire1!sform1.Form.Visible = False 
 
End Function

[fabrice518]

Merci pour ta réponse,

j'avais essayé deja, mais ca ne marche pas. J'avais aussi assayé avec le nom d'un controle, mais sans succès...

voila le nouveau message d'erreur avec ta proposition:

Erreur d'execution 2449
Methode non valide dans une expression


Merci

[Alexandre Sahli]

si tes boutons de changement sont dans le formulaire principal tu peux essayer 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
 
Public Function ouvrirSFORM2() 
 
'Le sous formulaire sform2 devient visible 
 
Me![sform2].Visible = True 
 
'active le sous formulaire sform2 
me![sform2].setfocus 
 
'Le sous formulaires sform1 devient caché 
me![sform1].Visible = False 
 
End Function

le problème vient peut être du code suivant:

Code :

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

1
2
 
Forms!Formulaire1!sform2.Form.setfocus

[fabrice518]

j'ai retiré le Me parce ca me posait des bugs.
Je viens de réessayé et voila :

Erreur de compilation
Utilisation incorrecte du mot clé Me


Sinon, je pensais faire des Onglets, puis modifier les propriétés pour qu'il n'y ai ni onglet ni bouton et créer controle (type zone de txt) qui lorsque je clic dessus ouvre la page où se trouve mon sform2.

Le pti souci c'est que je ne connais pas le code qui permet d'ouvrir une page...

Merci pour vos réponses ca fait chaud au coeur !!

[Alexandre Sahli]

S'il te mets utilisation incorrecte de Me il doit y avoir un problème en ce qui concerne ton bouton.

Je pense que ton bouton se situe dans ton sous formulaire. Ce qui va poser des problèmes pour mettre visible ou pas

Je te propose d'utiliser un bouton à bascule si tu as que 2 formulaires, seulement ce bouton doit être dans le formulaire principal.

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
22
23
 
Private Sub Bs_tonbouton_Click()
   If Bs_tonbouton Then
     Me![sform2].Visible = True 
 
     'active le sous formulaire sform2 
     me![sform2].setfocus 
 
    '     Le sous formulaires sform1 devient caché 
     me![sform1].Visible = False 
 
    Else
       Me![sform1].Visible = True 
 
          'active le sous formulaire sform2 
         me![sform1].setfocus 
 
           'Le sous formulaires sform1 devient caché 
         me![sform2].Visible = False 
 
     End If
 
End Sub

bonne chance

[fabrice518]

Merci,

pas de chance !! j'ai 6 voir + de formulaires...

Sinon ma zone de txt est bien dans mon Form et pas SsForm...

Bref...

connais tu le code qui me premettrai d'ouvrir un onglet sur un clic ??
Et mon probleme serait RESOLU !!!

Merci pour tes solutions !

[Alexandre Sahli]

ll y a quand même une chose qui m'intrigue tu parles maintenant de

"Zone de texte

or je pensais qu'il s'agissait d'un bouton, d'autre part si le me ne fonctionne pas c'est que ne t'adresse pas à un objet du formulaire donc tu n'as pas de sousformulaire en tant que tel

[fabrice518]

DSL
je me suis trompé, c'est une étiquette, En fait, jutilise l'etiquette parce que cest plus libre point de vue design... qu'un bouton

Mais si je clic desssus il faudra que ca m'ouvre un onglet...
du genre :

On_clic
Open.Onglet.Page1


tu vois le truc ? (meme si ce code ne veux rien dire)

[Alexandre Sahli]

c'est donc là qu'il y a problème avec le setfocus , c'est impossible de mettre un Setfocus sur une étiquette! Donc si tu veux mettre le setfocus il faut que ce soit une zone de texte ou un sous formulaire etc.. à ce moment ton problème sera règlé aussi en utilisant Me!

A+

[fabrice518]

oublions cette histoire de setfocus...

dis moi juste comment ouvrir une page d'un control onglet :

J'ai une etiquette, je lui mets dans son evenement Sur Clic :

"Ouvrir Page2 de mon Control Onglet."

Qu'est-ce que ca pourrait donner en VB ??

Merci pour tes réponses

[medkarim]

le set focus ne te lachera pas
2 methodes
1- monctltab.pages(1).setfocus (la collection commence a 0)

2- page2.setfocus

[fabrice518]

MERCI !!

ca fonctionne a merveille avec le

monctltab.pages(1).setfocus

que j'ai mis sur l'evenement Sur clic de mon etiquette.

Merci encore !