Discussion :

[ver_for]

Bonjour,

J'ai une série de formulaires, composés d'une serie de boutons identiques et d'un sous formulaire qui change selon le formulaire.

Je souhaiterais créer un unique formulaire et changer le sous-formulaire dynamiquement. Est-ce possible

Merci pour vos réponses.

[Gabout]

Bonjour,

Je ne sais pas ; cela ne doit pas être évident.

Tu peux très bien modifier la source du sous-formulaire en fonction du formulaire... mais il faut penser aux liens et là, c'est plus coton

Qui plus est, tu seras très restreint dans tes possibilités d'évolutions. Je suivrai avec intérêt les réponses qui te seront envoyées.

Bon courage

[Invité]

Si tes sous formulaires ont les ont la même structure et sont basés sur des requêtes différentes , tu peux effectivement jouer sur le Record Source de ce dernier.
Si par contre , il sont complètement différents, ce sera plus compliqué dans la mesure ou les relations champs père et Champs fils risquent de changer également. Mais il faudrait plus de détail.

[ver_for]

En fait j'ai choisi de mettre les memes boutons sur différents forms.

[Gabout]

Bonjour,

Je pense que c'est une sage décision

A+

[francishop]

Bonjour,

La recherche est-elle du genre :
L'emplacemement du sous formulaire s'inscrit dans un cadre baptisé--> Cdr_Sfm qui contient par défaut le formulaire--> sFrm_Un
Le bouton de commande --> cmd_ChangeSfrm--> légende --> "Voir sfm_deux"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmd_ChangeSfrm_Click()
 If Me.cmd_ChangeSfrm.Caption = "Voir sfm_Deux" Then
    Me.Cdr_Sfm.SourceObject = "sFrm_Deux"
    Me.Cdr_Sfm.SetFocus
    Me.cmd_ChangeSfrm.Caption = "Voir sfrm_Un"
 Else
    Me.Cdr_Sfm.SourceObject = "sFrm_Un"
    Me.Cdr_Sfm.SetFocus
    Me.cmd_ChangeSfrm.Caption = "Voir sfrm_Deux"
 End If
End Sub

On peut aussi:

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
'Change le sous formulaire
Private Sub OrigineCdr_Sfm(Origine As String)
If Cdr_Sfm.SourceObject <> Origine Then
   Cdr_Sfm.SourceObject = Origine
End If
End Sub
 
Private Sub cmd_sfrm_Un_Click()
On Error Resume Next
 OrigineCdr_Sfm ("sFrm_Un")
End Sub
 
Private Sub cmd_sfrm_Deux_Click()
On Error Resume Next
 OrigineCdr_Sfm ("sFrm_Deux")
End Sub

Cordialement.

[francishop]

Bonsoir,

Tu peux très bien modifier la source du sous-formulaire en fonction du formulaire... mais il faut penser aux liens et là, c'est plus coton

Cette interrogation trouve-telle réponse par :

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 cmd_sfrm_UnLink_Click()
On Error Resume Next
 OrigineCdr_Sfm ("sFrm_Un")
 Me.Cdr_Sfm.LinkChildFields = "Id_Sortie"
 Me.Cdr_Sfm.LinkMasterFields = "Id_Sortie"
End Sub
 
Private Sub cmd_sfrm_DeuxLink_Click()
On Error Resume Next
 OrigineCdr_Sfm ("sFrm_Deux")
 Me.Cdr_Sfm.LinkChildFields = "Sortie"
 Me.Cdr_Sfm.LinkMasterFields = "Sortie"
End Sub

Cordialement.