Discussion :

[dvnodens]

Bonjour à tous,

J'ai le souci suivant. En ouvrant un form (modal=oui, indépendante=oui, bordures et boutons sur aucun) dans une application avec la commande

Code :

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

DoCmd.OpenForm CFChoix, acNormal, , , acFormEdit, acDialog

la barre de titre (bleue) du form s'affiche.
Comment la faire disparaître pour avoir un form sans aucune bordure ni barre de titre.
J'ai constaté par ailleurs, qu'en ouvrant ce formulaire avec le paramètre acWindowNormal, cette barre de titre ne s'affiche pas, tout comme les bordures, mais dans ce cas l'exécution du code continue, ce qui ne m'arrange pas du tout.
Quelle solution serait applicable.
Merci par avance pour l'aide que vous m'apporterez.

[Invité]

Bonjour

Dans le propriétés de ton formulaire tu as Style de bordures, tu sélectionnes Aucun.

Philippe

[dvnodens]

Merci d'avoir pris le temps de me répondre.
Hélas ça ne fonctionne pas dans ce cas. Lorsque je fais ce réglage, le formulaire s'affiche sans barre de titre si on l'ouvre avec l'option acWindowNormal, mais le code continue dans le formulaire appelant, ce qui me pose problème. Par contre, et c'est le cas que j'utilise, si on l'ouvre avec l'option acDialog, la barre de titre s'affiche ainsi que les bordures.
Peut-être faut-il ouvrir avec l'option acWindowNormal et bloquer le code appelant jusqu'à la fermeture du dialogue... Mais je ne sais pas faire. Si quelqu'un peut m'expliquer, je suis preneur

[Thierry'']

Essaye en passant les propriètés suivantes de ton form à oui:
fen indépendante
fen modale

[dvnodens]

Merci pour vos réponse. J'ai résolu le problème par une solution élégante que je cite après qui consiste à ouvrir le formulaire en acwindonormal, ce qui permet de bénéficier des réglages de présentation, et a bloquer le code appelant pour attendre qu'il soit refermé.

Voici un bout de code tout simple qui fait cela :

Code :

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

1
2
3
4
5
6
7
8
Public Function AttendreForm(prmNomForm As String)
    'Boucle d'attente d'un formulaire ouvert
    'Parfois le mode dialogue ne fonctionne pas et il faut le simuler.
 
    Do While CurrentProject.AllForms(prmNomForm).IsLoaded
        DoEvents
    Loop
End Function

À appeler après l'ouverture du form prmNomForm.

A+