Discussion :

[clonezoë]

Bonjour à tous,

j'ai un petit souci avec un formulaire, j'aimerai qu'en fonction de case à cocher, access m'affiche dans un sous-formulaire l'une ou l'autre de mes requêtes.
plus clairement :

j'ai d'abord un formulaire
ensuite j'ai un contrôle onglet
dans un des onglets, j'ai 2 cases à cocher et un sous-formulaire
à chaque case à cocher doit correspondre une requête (déjà créée) : si l'on coche la 1ère case, c'est la requête 1 qui doit s'afficher dans le sous-formulaire, par contre si l'on coche l'autre case, c'est l'autre requête.

j'avais commencer un truc de ce genre là (je précise que je bidouille en programmation mais je ne suis pas pro...

If Cocher1.Value = True Then
Me.Refacturations_sous_traitance.Formulaire2.Refacturations_sous_traitance.sousform1.SourceObject = [R11_Nbre et coût 1]
End If
If cocherbarclays.Value = True Then
Me!Refacturations_sous_traitance!Formulaire2.Refacturations_sous_traitance.sousform1.SourceObject = "R12_Nbre et Coût 2"
End If

qu'en pensez-vous ?

merci d'avance

[bernardmichel]

Bonsoir,

J'ai créé deux tables, en lieu et place de tes requêtes (tblDemoA & tblDemoM)
J'ai créé un mini formulaire dans lequel j'ai inséré un mini sous-formulaire.
J'ai ensuite créé deux boutons, en lieu et place de tes Cases à cocher (btnAnna & btnMichel)

Puis j'ai écris les deux lignes de code ci-dessous pour afficher l'une ou l'autre table dans le sous-formulaire :

Code :

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

1
2
3
4
5
6
7
Private Sub btnAnna_Click()
    Me.frmDemo_sf.Form.RecordSource = "tblDemoA"
End Sub
 
Private Sub btnMichel_Click()
    Me.frmDemo_sf.Form.RecordSource = "tblDemoM"
End Sub

... à toi d'adapter

Bon dév...

Bernard.