Discussion :

[Zeltron59]

Bonjour à tous,

Pourriez vous svp, me dire comment empêcher un formulaire de s'ouvrir en plein écran.
Je souhaite que mes formulaires s'ouvrent à la même taille que lorsque je j'ai mise en mode création.
Soit donc, dans un format ou taille prédéfini.
Ce qui me permet de travailler ou basculer sur deux formulaires visibles
Merci d'avance pour votre aide.

[EricDgn]

Bonjour,

1) dans Options / Base de données active cocher l'option "Fenêtres superposées"
2) utiliser l'instruction DoCmd.MoveSize(Right, Down, Width, Height) pour positionner et dimensionner la fenêtre à son ouverture. Pour info 1 cm = 567 twips (voir dans l'Aide).

Bonne continuation.

[Zeltron59]

Bonjour EricDgn

Merci pour ta réponse. Peux tu m'expliquer avec plus de détail la formule DoCmd.MoveSize(Right, Down, Width, Height) de plus, je ne sais pas ou la mettre.
Cordialement

[hyperion13]

Salut
Avec "Gogole est mon ennemi" ou l'outil de recherche sur DEV
Ici ou là.

[Zeltron59]

Bonsoir hyperion13
Je suis depuis 3/4 d'heure sur le cite que tu me propose dans (ici)
mais c'est la galère, je ne comprend rien de rien et tous les essais que je fais dans l'autre cite (là) ne fonctionne pas

[EricDgn]

Un exemple tout simple, macro qui s'exécute sur l'événement "Sur ouverture" du formulaire:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
    '--- place le formulaire à 2 cm du bord gauche et 1 cm du haut
    '--- avec 17 cm de large et 12,5 cm de hauteur
    DoCmd.MoveSize 2 * 567, 1 * 567, 17 * 567, 12.5 * 567
End Sub

Cordialement

[Zeltron59]

Bonjour EricDgn,

Merci beaucoup ton exemple m'a permi de comprendre le fonctionnement.
Le souci est que lorsque j'ouvre mon formulaire seul dans la base de donnée l'ouverture se fait au bon endroit.
Par contre lorsque je l'ouvre via un bouton dans un autre formulaire il s'ouvre en plein écran et réduit le formulaire avec le bouton.
En clair, j'ai une base de donnée sur tous les matchs de rugby du tournoi des 6 nations depuis 1883 1er tournoi.
Le bouton plcé dans le formulaire "Rencontre" (date, heure, équipes, score etc...)
Je souhaite afficher en haut à gauche ce fameux formulaire comprenant la feuille de match correspondant à la rencontre.
Cordialement

[EricDgn]

Bonjour,

Il traine peut-être dans vos codes des instructions DoCmd.Minimize et DoCmd.Maximize ?!

Cordialement.

[Zeltron59]

Voici le code du bouton ouvrant le formulaire que je voudrais placer en haut à gauche

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
Private Sub Btn_Choix_Jou_Nat_Click()
On Error GoTo Err_Btn_Choix_Jou_Nat_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm Choix Joueurs Nations"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Btn_Choix_Jou_Nat_Click:
    Exit Sub
 
Err_Btn_Choix_Jou_Nat_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Choix_Jou_Nat_Click
 
End Sub

Dans le formulaire choix joueurs nations j'ai mis dans à l'ouverture :

Code :

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

    DoCmd.MoveSize 15 * 567, 6 * 567, 17 * 567, 12.5 * 567

[EricDgn]

Le code me parait correct. Pas possible pour moi de vous en dire plus sans pouvoir consulter l'application.
Cordialement.

[hyperion13]

Salut

Par contre lorsque je l'ouvre via un bouton dans un autre formulaire il s'ouvre en plein écran et réduit le formulaire avec le bouton.

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
Private Sub Btn_Choix_Jou_Nat_Click()
On Error GoTo Err_Btn_Choix_Jou_Nat_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm Choix Joueurs Nations"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.MoveSize 15 * 567, 6 * 567, 17 * 567, 12.5 * 567
 
Exit_Btn_Choix_Jou_Nat_Click:
    Exit Sub
 
Err_Btn_Choix_Jou_Nat_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Choix_Jou_Nat_Click
 
End Sub

[Zeltron59]

Le fichier fait 12.2 Mo je ne peux pas le mettre en ligne
Le changement qui a été effectué sur le code me donne comme résultat l'ouverture en plein écran du formulaire.

[Jeannot45]

As-tu pensé à positionner la propriété Fenêtre contextuelle (Onglet : Autres) sur OUI
Lors de son ouverture, le formulaire s'affiche aux dimensions de ton formulaire dans un fenêtre indépendante.

[Zeltron59]

Merci jeannot45 pour ce judicieux conseil auquel je n'avais pas pensé.
Ca fonctionne correctement.

Bonne journée et merci à tous ceux qui me sont venu en aide.