Comment passer un sous formulaire d’un mode feuille de donnée à un mode formulaire et inversement ?

Avec le runtime Access 2003 (vérifier dans les autres versions), il n’est pas possible de changer le mode affichage d’un sous formulaire.
Or il est souvent plus facile de rentrée des données dans un formulaire et d'avoir une vu globale des données dans une feuille de donnée.

Pour pouvoir changer à la volé le mode affichage, il suffit de mettre dans un bouton 2 état ce code :


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
 
Public Sub Bascule_Click()
  Dim source As String
 
    source = Me.SousFormulaire.SourceObject
    Me. SousFormulaire.SourceObject = ""
 
    DoCmd.OpenForm source ,acDesign
    If (Me.Bascule.Value = True) Then
        Forms!Nom_Du_Sous_Formulaire.DefaultView = 0
    Else
        Forms!Nom_Du_Sous_Formulaire.DefaultView = 2
    End If
    DoCmd.Close acForm, source , acSaveYes
 
    Me. SousFormulaire.SourceObject = source    
 
    DoCmd.OpenForm "FormulairePere", acNormal
End Sub
Le code fonctionne avec le runtime et Access 2003 2007 et 2010.