Discussion :

[Mat08]

Bonjour, je voudrais savoir s'il est possible de créer un bouton qui permet de changer le mode d'affichage du formulaire dans lequel on se trouve. Par exemple je suis dans un formulaire en mode d'affichage "formulaire uniquement" et je voudrais que quand je clique sur le bouton le formulaire s'affiche en mode "formulaire double affichage".

Merci d'avance.

[Tofalu]

Il ne semble pas y avoir de possibilité de passer d'un mode à l'autre. Cependant, il est possible de diminuer au maximum la hauteur de la zone de double affichage :

Code :

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

Me.SplitFormSize = Me.WindowHeight - 100

[Mat08]

C'est parfait merci. Sauriez-vous aussi comment faire pour que quand je clique de nouveau sur ce bouton il se produise l'effet inverse ( la hauteur de la zone de double affichage revienne à sa taille précédente ou à n'importe quelle taille qui la rende visible ?

[Tofalu]

Il faudrait définir une variable de portée formulaire. En spécifiant SpliFormSize à 0 la tailler redevient celle par défaut.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim bolShowDataSheet
Private Sub Commande0_Click()
If bolShowDataSheet Then
Me.SplitFormSize = Me.WindowHeight - 100
bolShowDataSheet = False
Else
Me.SplitFormSize = 0
bolShowDataSheet = True
 
End If
End Sub

On peut remplacer 0 par une autre taille de ton choix

[Mat08]

Ok alors j'ai ajouter le code et vérifié directement après dans le formulaire pour voir si ça marche et ça marchait. J'ai quitté le formulaire et je l ai réouvert et là ça ne fonctionnait plus... Une idée ?

J'ai copié exactement le code en remplaçant le nom de la sub par le bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim bolShowDataSheet
 
Private Sub AfficherReduireTableau_Click()
 
If bolShowDataSheet Then
Me.SplitFormSize = Me.WindowHeight - 100
bolShowDataSheet = False
Else
Me.SplitFormSize = 0
bolShowDataSheet = True
End If
 
End Sub

[Tofalu]

Dans un premier temps, pour que ça marche au démarrage, il faudrait qu'on inverse le teste de la variable :

Code :

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

1
2
3
4
5
6
7
8
If Not bolShowDataSheet Then
Me.SplitFormSize = Me.WindowHeight - 100
bolShowDataSheet = True
Else
Me.SplitFormSize = 0
bolShowDataSheet = False
 
End If

Ensuite, vérifie dans ton formulaire que la propriété Enregistrer positionnement de la barre de fractionnement est à Non.