Transformer un formulaire en formulaire "Modal Dialog" [Résolu]

[Tifriis]

Bonjour à tous,

j'ai créé quelques formulaires. Cependant, j'ai découvert récemment les formulaires "Modal dialog", qui correspondent plus à ce que je dois faire (affichage plein écran facile ,...).

Je voulais savoir s'il y avait un moyen de transformer mes formulaires "normaux" en "Modal dialog".

Merci d'avance,

Tifriis

[Tifriis]

J'ai enfin trouvé ce que je cherchais (il faut aller dans les options du formulaire
->Autres->Pop-up = Oui).

Cependant, je fais maintenant face à un autre problème.
J'ai appliqué la propriété "pop-up" à tout mes formulaires. Cependant, quand je navigue entre chaque formulaire (en cliquant par exemple sur un bouton qui m'ouvre un nouveau formulaire), on semble percevoir une ouverture en deux étapes :

• ouverture du formulaire
• mise en plein écran de ce formulaire

du coup, on voit toujours les formulaires se redimensionner, ce qui est vraiment fatiguant pour l'oeil. J'ai essayé de "figer" l'écran à l'ouverture d'un de mes formulaires, mais rien ne change.

Savez vous comment faire pour définir la taille "plein écran par défaut" ?

Merci d'avance,

Tifriis.

[Arkham46]

bjr,

Envoyé par Tifriis

Cependant, quand je navigue entre chaque formulaire (en cliquant par exemple sur un bouton qui m'ouvre un nouveau formulaire), on semble percevoir une ouverture en deux étapes :

• ouverture du formulaire
• mise en plein écran de ce formulaire

il y a un docmd.maximize pour mettre le formulaire en plein écran?

à tester en remplacement :
- ouvrir le formulaire en mode acHidden
- l'agrandir non pas avec docmd.maximize, mais avec l'API ShowWindow

sous access 2003, ça a l'air d'être mieux, je ne vois plus le formulaire apparaître en 2 temps

Code A mettre dans un module standard :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
 
Private Declare Function ShowWindow Lib "user32" _
    (ByVal lHwnd As Long, _
    ByVal lCmdShow As Long) As Boolean
 
Private Const SW_MAXIMIZE As Long = 3
 
Public Sub OpenFormMaximize(pFormName As String)
    DoCmd.OpenForm pFormName, , , , , acHidden
    ShowWindow Forms(pFormName).Hwnd, SW_MAXIMIZE
End Sub

Code Code d'ouverture :

1
2
 
OpenFormMaximize "NomDeMonFormulaire"

[Tifriis]

Bonjour,

merci beaucoup pour cette réponse, c'est tout à fait ce que je recherchais !

Encore merci,

Tifriis