Discussion :

[s.jean]

Bonjour,
J'ai un sous-formulaire présent dans 2 formulaires.
Par défaut mon sous-formulaire est en continu.

Dans un des formulaires je souhaiterai que mon sous-formulaire soit en
mode simple, comment puis je faire ? J'ouvre ce formulaire à partir
d'une zone de liste.


J'ai essayé le code suivant mais ça ne marche pas.

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer) 
     Me.[monsousformulaire].DefaultView = 0 
End Sub

J'ai également essayé celui là mais mon formulaire est en mode formulaire continu et pas spécifiquement simple :

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer) 
     Me![monsousformulaire].SetFocus 
     DoCmd.RunCommand acCmdFormView 
End Sub

Avez vous une suggestion de code qui pourrait marcher ?

Merci !

[ClaudeLELOUP]

Bonsoir

Code :

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

Me.[monsousformulaire].form.DefaultView = 0

Cela ira sans doute mieux

[s.jean]

Bonsoir,

Avec ce code j'ai le message :
erreur d'exécution 2136, pour définir cette propriété ouvrez le formulaire ou l'état en mode création

Pourtant j'ai bien modifié le code vba en étant en mode création.

Ca ne va donc pas .... que puis je faire ?

Merci
Sandrine

[ClaudeLELOUP]

Ok mais Access te dit qu'il ne peut pas faire ce que tu lui demandes, lorsque le formulaire est déjà ouvert.
Je dois tester, je n'ai pas de réponse toute faite.
Pour te dépanner, tu peux toujours copier le formulaire original sous un autre nom. Ce n'est pas élégant mais ...

Je lirai ta réponse à mon réveil.
Bonsoir

[s.jean]

Bonjour,

Je sais que je peux copier le formulaire ... mais le but est de ne pas le faire justement, pour simplifier les modifications futures.

Merci
Sandrine

[Invité]

Bonjour

Bonsoir,

Avec ce code j'ai le message :
erreur d'exécution 2136, pour définir cette propriété ouvrez le formulaire ou l'état en mode création

Pourtant j'ai bien modifié le code vba en étant en mode création.

Ca ne va donc pas .... que puis je faire ?

Merci
Sandrine

Comme il est stipulé, tu ne peux modifier le type d'affichage du formulaire qu'en mode création, c'est à dire lorsque tu es en mode création manuelle ou que tu ouvres ton formulaire par le code en mode création, tu changes l'affichage, tu le fermes et tu l'ouvres en mode normal.

Cela n'est possible qu'à partir d'un autre formulaire, donc le me ne fonctionnera pas.

Si tu n'as pas d'impératif en cours de fonctionnement, fais le manuellemen sans code.

Starec

[s.jean]

Bonjour,

J'ai essayé le code suivant ... mais je n'y connais pas grand chose en vba donc peut on l'arranger pour que ça marche ?

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdDesignView
Me![monsousformulaire].SetFocus
Me.[monsousformulaire].Form.DefaultView = 0
DoCmd.RunCommand acCmdFormView
End Sub

J'ai un message en quoi l'expression fait référence à un objet fermé ou supprimé sur

Code :

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

1
2
 
Me![monsousformulaire].SetFocus

Merci
Sandrine

[Invité]

Cela n'est possible qu'à partir d'un autre formulaire, donc le me ne fonctionnera pas.

Si tu n'as pas d'impératif en cours de fonctionnement, fais le manuellemen sans code.

Starec

[s.jean]

Bonjour,

J'ouvre mon formulaire à partir d'une zone de liste sur un formulaire, j'ai donc un code openform, est-il possible de lui dire d'ouvrir le formulaire x où le sous-formulaire [monsousformulaire] a tel format ?

Merci
Sandrine

[ClaudeLELOUP]

Bonsoir Sandrine,

Si tu te trouves dans le FormulaireY et qu'un double-click sur LaZoneDeListeDuFormulaireY doit provoquer l'ouverture de FormulaireX avec LeSousFormulaire en mode simple voici le code :

Code :

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

1
2
3
4
5
6
Private Sub LaZoneDeListeDuForlulaireY_DblClick(Cancel As Integer)
DoCmd.OpenForm "MonSousFormulaire", acDesign
Forms!MonSousFormulaire.DefaultView = 0  '0 simple; 1 continu ; 2 feuille
DoCmd.Close acForm, "MonSousFormulaire", acSaveYes
DoCmd.OpenForm "FormulaireX"
End Sub

Bonne continuation

[s.jean]

Bonjour,

Ca marche merci !

Je vais devoir l'adapter car à partir de mon formulaire je peux ouvrir un autre formulaire qui contient le même sous-formulaire et qui doit être ouvert lui en continu, je vais voir comment je peux l'adapter !

Merci !
Sandrine

[ClaudeLELOUP]

Bonjour Sandrine,

Tu ne pourras pas les ouvrir simultanément.
Car si ton sous-formulaire est inclus dans un formulaire ouvert, tu n'y a plus accès.
Je reste convaincu que la meilleure manière de faire dans ton cas, consiste à avoir 2 versions de sousformulaire.

[s.jean]

Bonjour,

Je préfère rester avec le mode continu et un seul sous-formulaire.

Y aurait-il dans ce cas un moyen de ne pas afficher la barre de défilement verticale dans mon sous-formulaire (dans un seul formulaire) ?

Merci
Sandrine

[ClaudeLELOUP]

voici un exemple :

Code :

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

1
2
3
4
5
6
7
Private Sub LaZoneDeListeDuForlulaireY_DblClick(Cancel As Integer)
DoCmd.OpenForm "MonSousFormulaire", acDesign
Forms!MonSousFormulaire.DefaultView = 0  '0 simple; 1 continu ; 2 feuille
Forms!MonSousFormulaire.ScrollBars = 0  '0 aucune; 1 Hor ; 2 Ver; 3 HorVer
DoCmd.Close acForm, "MonSousFormulaire", acSaveYes
DoCmd.OpenForm "FormulaireX"
End Sub

NB pour connaître le nom (anglais) de la propriété et ses valeurs, tu vas dans un formulaire ouvert en mode construction, tu affiches ses propriétés, tu places ton curseur sur une propriété et tu enfonces F1
Ex Barre défilement ---> ScrollBars et les valeurs.

Ceci dit, au plaisir Sandrine.