Discussion :

[LeSkwal]

Bonjour

Je lutte depuis plusieurs jours sur ce problème.

Résumé :

J'ai un formulaire général avec des champ à remplir et une case à cocher.

Quand la case est cochée, un sous form apparait avec des champs.
Quand un champ spécifique est rempli un sous/sous formulaire s'ouvre.
Bon jusqu'à là pas de problème.

Mon problème :

Après avoir fait plusieurs enregistrements et que je souhaite les consulter :
je lance une procédure de test.

Si la coche dans le formulaire est = -1 alors le sous formulaire est visible

Si le champ spécifique est rempli dans le sous formulaire alors le sous/sous formulaire est visible.

Sans doute que je ne renseigne pas les bons chemins (en VB) car Access me dit qu'il ne trouve pas les sous formulaires.

Une petite aide SVP

Cordialement

Pascal

Une pièce jointe pour l'exemple

[Lou Pitchoun]

Salut,

Peux tu poster le code STP ?
Sur quel évènement as tu placé ton code ?

Merci.

[LeSkwal]

Bonjour

Afin de répondre au mieux à la demande,

Peux tu poster le code STP ?
Sur quel évènement as tu placé ton code ?

j'ai créé un petit exemple (Le code très simple, est intégré dedans) qui illustre parfaitement ma demande.
Les étapes et les questions y sont stipulées.

Un grand merci d'avance à toutes celles et à tous ceux qui voudront bien me prêter main forte.

Cordialement

Pascal

[Renardo]

Bonjour
Teste se code sur activation du form Principal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
If IsNull(Me.Nom) Then
Me.CocheSousform.Enabled = False
Me.CocheSousform = 0
Me.Sousformulaire.Visible = False
Me.Nom.Enabled = True
Else
Me.CocheSousform.Enabled = True
Me.CocheSousform = -1
Me.Sousformulaire.Visible = True
Me.Nom.Enabled = False
End If
End Sub

et celui ci sur l'activation du sous form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
If IsNull(Me.Prenom) Then
Me.CocheSousformSousForm.Enabled = False
Me.CocheSousformSousForm = 0
Me.SousSousformulaireSF.Visible = False
Me.Prenom.Enabled = True
Else
Me.CocheSousformSousForm.Enabled = True
Me.CocheSousformSousForm = -1
Me.SousSousformulaireSF.Visible = True
Me.Prenom.Enabled = False
End If
End Sub

[LeSkwal]

Pas homo pour 2 sous mais là, je me lâche....

Renardo : Je t'aime....

Ça marche au poil.

Mon erreur : le code inséré dans mon appli était bon, mais mal placé...

Vraiment merci

Pascal