Discussion :

[Nordal]

Bonjour,

Mon besoin est de pouvoir afficher plusieurs tables au même emplacement dans un formulaire.

Donc j’ai par exemple 4 tables et 4 boutons. Si j’appuie sur le bouton 1 et il charge la table 1 et ainsi de suite.
J’ai réalisé la manipulation avec la propriété visible et un ensemble de sous-formulaire chacun attaché à une table.

Cela fonctionne plutôt bien. Mais le souci, c’est que dans ce cas-là il charge l’ensemble des sous-formulaires dès l’ouverture du formulaire père.
Or les tables sont importantes (et cela prend du temps). Je préférai pouvoir charger la table seulement au moment où j’appuie sur le bouton. Ainsi, si je ne l’utilise pas il ne la charge pas.
J’espère avoir été clair…

[nico84]

Bonjour,

Si les tables peuvent entrer sur la même trame (nombre de colonnes et contenu de même nature) il suffit de changer le recordsource de la fenêtre
S'il y a des petites différences il faut en plus modifier les champs correspondants de la fenêtre (visible ou non, format adapté...)

Tout ça peut se faire en VBA. Petit exemple d'une fenêtre qui permet de choisir dans une liste dont le contenu dépend d'un paramètre à son ouverture :

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
24
'18.3a fenêtre capacitaire appelée en pop-up pour choix dans une liste
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
If Not Mode_debug Then On Error GoTo err
100 Select Case OpenArgs
    Case "TEF1" 'choix d'un appareil
110   Me.RecordSource = "SELECT l.lot as ch1, l.code as ch2, t.immatriculation as ch3, t.cd_suivi as ch4 FROM tsuivi t inner join bl_lg l on l.cd_bl_lg=t.cd_suivi order by 1"
111   et1.Caption = "N° série"
112   et2.Caption = "P/N"
113   et3.Caption = "Immatriculation"
    Case "TEF4" 'choix d'une TEF
120   Me.RecordSource = "SELECT cd_tef as ch1, e_tef as ch2, tef_desc as ch3, null as ch4 FROM TEF order by 1"
121   et1.Caption = "TEF"
122   et2.Caption = "Etat"
123   et3.Caption = "Description"
    Case Else
130   MsgBox "Cas non prévu à l'ouverture de 'choix_liste' : " & OpenArgs, vbInformation, "": DoCmd.Close acForm, "choix_liste"
    End Select
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans choix_liste.open(" & OpenArgs & ") : " & err.description)
199 DoCmd.Close acForm, "choix_liste"
End Sub

[Nordal]

Ah merci beaucoup, effectivement, je vais me débrouiller pour selectionner le même nombre de champs et du coup passer par recordsource.
J'y avais pas pensé.
+1