Discussion :

[CHARLI BONGO]

Salut à tous ,
S'il vous plait, comment peut changer l'affichage par défaut ( Formulaire unique, Formulaires continus, Feuille de données ....) d'un formulaire ou d'un sous formulaire en vba .

D'avance merci

[tee_grandbois]

Bonjour,
c'est la propriété DefaultView. Cependant, tu pourras la modifier uniquement en mode création.

[CHARLI BONGO]

Merci pour votre réponse , mais s'il vous plait comment procède t-on ?

Merci

[tee_grandbois]

Voici:

Code :

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

1
2
3
DoCmd.OpenForm ("TonFormulaire"), acDesign, , , , acHidden
Forms("TonFormulaire").DefaultView = 1
DoCmd.Close acForm, "TonFormulaire"

Les valeurs possibles
Mode simple 0
Mode continu 1
Feuille de données 2
Tableau croisé dynamique 3
Graphique croisé dynamique 4

[CHARLI BONGO]

Merci c'est vraiment génial , mais le problème c'est que quand exécute le code ci-dessus le formulaire se ferme.
En faite, j'ai un formulaire principal et un sous formulaire et j'aimerais sur click d'un bouton placé sur le formulaire principal changer le mode d'affichage du sous formulaire.
Est-il possible ?

[tee_grandbois]

Bonjour,
Si c'est à partir d'un bouton, la modification est plus facile :
le controle du sous-formulaire (nom dans le formulaire principal) est : ctlTonSousForm
le nom formulaire du sous-formulaire est : TonSousForm

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
Private Sub Commande0_Click()
' Exemple de passage de mode continu en mode Feuille de données
Me.ctlTonSousForm.SourceObject = ""	
 ' ouverture en mode création et caché du sous-formulaire
DoCmd.OpenForm ("TonSousForm"), acDesign, , , , acHidden
If Forms("TonSousForm").DefaultView = 2 Then
    Forms("TonSousForm").DefaultView = 1
Else
    Forms("TonSousForm").DefaultView = 2
End If
' sauvegarde, puis réaffectation du contrôle du sous-formulaire
DoCmd.Close acForm, "TonSousForm", acSaveYes
Me.ctlTonSousForm.SourceObject = "TonSousForm"
 
End

[CHARLI BONGO]

Ok ça marche .

Merci beaucoup pour votre disponibilité .

Bye

[jamital]

Bonjour , et le mode modal quel est son numéro ?
Cordialement.

[hyperion13]

Salut
C'est une valeur booléenne Oui/Non
Sinon WindowMode de cette méthode.