Activation de sous formulaires à l'aide de bouton d'option

**JenTry** · 07/05/2007, 13h59

Bonjour à tous,

J’ai un formulaire (Frm_Texte) qui contient 2 sous formulaires (Frm_TC et Frm_TNC) .
Le formulaire contient un contrôle « groupe d’option » avec 2 options (nommées Opt_TC et Opt_TNC).

A l’affichage du formulaire, je souhaiterais que mes deux sous formulaires soient désactivés.
En sélectionnant l’option TC du formulaire, je souhaite activer le sous formulaire TC mais pas le sous formulaire TNC
En sélectionnant l’option TNC du formulaire, je souhaite activer le sous formulaire TNC mais pas le sous formulaire TC
Problèmes :
Je n’arrive pas à désactiver mes sous formulaires
Et je ne sais pas comment écrire ma macro

Est ce que quelqu’un peut m’aider ?
Merci d’avance

**lola06** · 07/05/2007, 14h09

Salut, alors moi je ne sais pas du tout faire avec des sous formulaires, mais j'ai fait ça pour des listbox, voici le code si tu veux partir de là :

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub q2_Click()
 
    If Me.q2 = True Then
        Me.q2Date.Visible = True
    Else
        Me.q2Date.Visible = False
    End If
 
End Sub

q2 étant ma case à cocher
q2Date étant ma listbox

j'espère que tu pourras avancer, je vais voir pour les sous formulaire et si je trouve je te tiens au courant.
Courage et à plus

**JenTry** · 07/05/2007, 14h22

merci,
je regarde si ça marche chez moi

**lola06** · 07/05/2007, 14h26

Voici le code dans VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub q1_Click()
    If Me.q1 Then
 
        Me.form2.Visible = True
 
    Else
 
        Me.form2.Visible = False
 
    End If
End Sub

form2 est mon sous-formulaire
q1 est ma case à cocher

il faut que avant de lancer le code tu fasse quelques réglages pour que ça soit mieux, dans les propriétées :
*q1 doit avoir comme valeur par defaut 'false'
*le sous formulaire ne doit pas être visible (visible --> non)

Chez moi ça marche, si il y a des problèmes n'hésite pas.

**lola06** · 07/05/2007, 14h28

Voici ma base de données où j'ai essayé, si tu as du mal regarde j'ai mis des données tests pour voir si ca marchait.
Pièce jointe 13120

**JenTry** · 07/05/2007, 14h39

Cela ne marche pas chez moi...

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Opt_TC_GotFocus()
    If Me.Opt_TC = True Then
        Me.Frm_TC.Visible = True
    Else
        Me.Frm_TC.Visible = False
    End If
End Sub

"Expression sans paramètre"

**lola06** · 07/05/2007, 14h43

A la place de GotFocus() met plutôt Click()

Private Sub Opt_TC_GotFocus()

Et est ce que ton sous formulaire frm_TC contient bien des données ?

**JenTry** · 07/05/2007, 14h52

mon sous formulaire Frm_TC contient bien des données

Private Sub Opt_TC_Click() ne marche pas (pas de message d'erreur mais aucune action)

**JenTry** · 07/05/2007, 14h58

Merci,
je regarde ta base et je te tiens au courant

**lola06** · 07/05/2007, 15h01

As tu comparer les proprietés entre les objets du formulaire de la base de données que je t'ai envoyé à la tienne.

Fais attention aussi il se peut que tu crois avoir sélectionner le sous formulaire mais qu'en fait tu ne l'es pas sélectionner avant de changer les options.

Voici les propriétés de q1 et form2 :

Pièce jointe 13124

Ce qui est bizarre c'est que pour moi ca marche... On va y arriver courage...

**lola06** · 07/05/2007, 15h03

Comment as-tu crée ton code VBA ? Où est-il situé ?
Car s'il est mis au mauvais endroit il peut ne pas avoir d'effet..

**Renardo** · 07/05/2007, 15h09

tu as un Groupe d'option ou des case a cochet ?
Sinon pour case a cochet

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub q1_Click()
    If Me.q1 = 0Then
 
        Me.form_tc.Visible = True
        Me.form_tnc.Visible = false
    Else
 
        Me.formTc.Visible = False
        Me.form_tnc.Visible = True
    End If

Et au demarage du form(Soit sur ouverture ou activaion a toi de voir)

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
 Me.form_tc.Visible = False
 Me.form_tnc.Visible = false
End Sub

en esperant t'aider un petit peu

**JenTry** · 07/05/2007, 15h51

Merci
Tout marche sauf que...
... Je suis obligé de créér deux cases à cocher et j'ai un nouveau problème:
Je peux cocher les deux cases en même temps alors que mon but était de faire une selection du type soit l'option 1 soit l'option 2...
Merci en tout cas pour ton aide

**lola06** · 07/05/2007, 15h56

Dans ce cas là il me semble que si tu positionne tes deux cases à cocher dans un 'groupe d'option du peut chosir soit l'un soit l'autre.
Pièce jointe 13130

N'oublie pas de mettre résolu quand ce sera fini...

**JenTry** · 07/05/2007, 15h57

A la base j'ai un groupe d'option et je souhaite partir sur une procédure événementielle "sur récéption focus" d'où le "Opt_TC_GotFocus()"
mais je n'y arrive pas...

Avec les cases à cocher ça marche mais c'est pas pratique car je peux cocher les deux cases en mémé temps, alors q'avec un groupe d'option c'est soit l'un soit l'autre...

**lola06** · 07/05/2007, 15h59

Si tu met comme j'ai fait dans un groupe d'option l'utilisateur ne peut cocher qu'une seule des cases même si ce sont des cases à cocher, mais ça je ne suis pas sûre, je te donne une piste essaye là et si ça marche tant mieux sinon il faut voir si d'autres te répondront, je veux bien voir mais ca ne sera pas tout de suite...

**Renardo** · 07/05/2007, 16h07

Pour un groupe de choix

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub GroupeDeChoix_AfterUpdate()
Select Case GroupeDeChoix
Case1
Me.form_tc.Visible = True
        Me.form_tnc.Visible = false
Case 2
Me.form_tc.Visible = false
        Me.form_tnc.Visible = true
End select
End sub

Case 1 ou 2 correspond au numero du bouton dans ton groupe de choix