Discussion :

[Bubut]

Bonjour le Forum,

je vous demande encore un peu d'aide, donc j'ai un formulaire avec plusieurs listes déroulantes et un sous formulaire.

Je souhaiterai que lorsque j'ouvre mon formulaire, d'entré que mon sous formulaire soit invisible. Puis lorsque je choisirai une valeur spécifique d'une liste déroulante, le sous formulaire deviendra visible.

Merci

Bubut

[The_Super_Steph]

Bonjour,

Peut-être un truc de ce genre, pour le rendre invisible à l'ouverture :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.TonSousFormulaire.IsVisible = False
End Sub

Voilà, dans un premier temps, un code qui rendra ton SF invisible à l'ouverture.

donne-moi en des nouvelles, et après on fait le reste !

cordialement,

Stéphanie

[The_Super_Steph]

bon, apparemment, le code que je t'ai fourni ne marche pas. Alors tu peux peut-être davantage jouer sur la mise en forme (par exemple, si ton fond de formulaire est blan, à l'ouverture, tu mets tous les objets de ton sous-form en blanc, puis tu les remets en couleur normale lorsque tu sélectionnes qch avec ta liste de choix

Cordialement,

Stéphanie

[javelot69]

Bonjour,

Dans la FAQ tu as la réponse

http://access.developpez.com/faq/?pa...MaskSsFormVide

Bonne journée.

[Tofalu]

Bonjour,

Peut-être un truc de ce genre, pour le rendre invisible à l'ouverture :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.TonSousFormulaire.IsVisible = False
End Sub

Voilà, dans un premier temps, un code qui rendra ton SF invisible à l'ouverture.

donne-moi en des nouvelles, et après on fait le reste !

cordialement,

Stéphanie

La propriété IsVisible n'existe pas, c'est Visible tout court

[The_Super_Steph]

La propriété IsVisible n'existe pas, c'est Visible tout court

Ah bon ?

Parce que c'est ce que m'a donné le point après avoir tapé Me.LeNomDuFormulaire... c'était un copier-coller d'une formule que j'ai tapée, puis quand je l'ai lancée, elle n'a pas marché...

[The_Super_Steph]

@ Tofalu,

Tu as raison, maintenant, ça marche (pourtant je jure que c'est le point qui m'a donné IsVisible ! j'avoue que je ne comprends pas)

[The_Super_Steph]

@ Tofalu :

ça y est, j'ai compris... il y a Visible et IsVisible...

Je m'en vais me renseigner sur la différence entre les 2

[mohcultiv]

d'après mes vieilles connaissances Isvisible serait un booléen qui indiquerait si la propriété visible d'un contrôle est à true ou à false. (si l'opbjet est visible ou pas)

[Bubut]

Merci tout le monde de m'avoir aidé aussi rapidemant

Donc voila ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
    Me.R_SF_Module.Visible = False
End Sub
 
Private Sub Sous_Ensemble_Change()
    If Sous_Ensemble.Text = "430-1" Then
        Me.R_SF_Module.Visible = True
        Else
        Me.R_SF_Module.Visible = False
    End If
End Sub

Donc c'est super ça fonctionne comme je le souhaite mais j'en voudrai un peu plus...

Par exemple je choisie la valeur "430-1" de ma liste déroulante (qui rend le sous-formulaire visible), mais en fin de compte je me dis que je veux pas "430-1" mais "420" à ce moment la le sous-formulaire devient invisible mais toujours avec les enregistrements ke j'avais fait lorsque j'avais choisi la valeur "430-1".

Donc maintenant je souhaiterai trouver le code me permettant d'effacer toutes les valeurs du sous-formulaire lorsqu'il est invisible.

Cordialement
Bubut

[Janny]

salut

tu as beaucoup d'enregistrements dans ton sous-formulaire?

[Bubut]

Salut Janny,

ben j'ai 6 champ, t'as une solution à me proposer ???

[Janny]

je pense que le plus simple est de faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
    Me.R_SF_Module.Visible = False
End Sub
 
Private Sub Sous_Ensemble_Change()
    If Sous_Ensemble.Text = "430-1" Then
        Me.R_SF_Module.Visible = True
    Else
        Me.R_SF_Module.Visible = False
        champ1.value = ""
        champ2.value = ""
        'etc....
    End If
End Sub

[Bubut]

excuse moi Janny de te poser une question aussi bête mais moi et VB ça fait 2. A l

[Bubut]

excuse moi Janny de te poser une question aussi bête mais moi et VB ça fait 2. A la place de champ1, champ2,... je mes le nom des champs où je souhaite que les lignes soient supprimés. Et entre "" je mes quoi ???

Excuse encor une fois de mes questions bêtes.

Merci Janny

[Janny]

excuse moi Janny de te poser une question aussi bête mais moi et VB ça fait 2. A la place de champ1, champ2,... je mes le nom des champs où je souhaite que les lignes soient supprimés. Et entre "" je mes quoi ???

Excuse encor une fois de mes questions bêtes.

C'est rien c'est normal si tu connais pas la programmation.
champ1, champ2, etc correspondent aux noms des champs
tu ne mets rien entre "", cela signifie que tes champs sont vides

[Bubut]

merci,

ouai donc ça fonctionne pas il me trouve une erreur :

Objet requis (erreur 424)

Déja il a pas l'aire de reconnaitre mes champs, pourtant ils sont bien écrit.

[Tofalu]

Au passage :

Code :

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

1
2
3
Private Sub Sous_Ensemble_Change()
        Me.R_SF_Module.Visible = Sous_Ensemble.Text = "430-1"
End Sub

C'est plus simple