Discussion :

[Guy FALESSE]

Bonjour à tous,

Dans un formulaire indépendant =no, je n'arrive pas à garder la largeur du formulaire, défini en mode création, par exemple 15 cm de large.
En effet, lorsque j'ouvre ce formulaire en mode formulaire, celui-ci occupe tout le plan de travail, pas joli.
Il me semble que j'ai bien suivi les instructions de Microsoft, à savoir enregistrer le formulaire en mode création.
Normalement, le formulaire devrait s'afficher au centre et avoir cette dimension de 15 cm.
Peut-etre avec une commande en VBA, à l'ouverture mais là, je ne sais pas.
Si quelqu'un avait une idée, ça m'aiderait beaucoup, énormément.
D'avance merci.
@+
Guy FALESSE

[vodiem]

Salut Guy FALESSE,

si tu n'es pas en formulaire indépendant effectivement c'est ce qui se passe.
dans ce cas le dimensionnement doit se faire au niveau de l'appli (codage plus compliqué) sans compter que cela se répercutera sur les autres fenêtres...

[Guy FALESSE]

Salut Vodiem,

Merci pour ta réponse.
J'ai tenté de faire

Code :

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

DoCmd.MoveSize 2000, 1000, 7500, 7000

à l'ouverture du formulaire, sans résultat.
La fenêtre occupe toujours la totalité de l'espace travail.
Je ne suis pas contre le codage
Si tu avais une piste.
Merci
@+

Guy FALESSE

[vodiem]

c'est ton "plan de travaille" qu'il faut dimensionner: l'application access.
il n'y a pas à ma connaissance de code natif pour cela.

donc:

Code :

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

1
2
3
4
5
6
7
8
Const SWP_NOMOVE = &H2
Const SWP_SHOWWINDOW = &H40
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Sub ResizeApp()
l = 600: h = 400
SetWindowPos Application.hWndAccessApp, 0, 0, 0, l, h, SWP_NOMOVE Or SWP_SHOWWINDOW
End Sub

tu peux en faire une fonction pour redimensionner au besoin mais autant utiliser les formulaires indépendants...

[Guy FALESSE]

salut,

Merci pour ta réponse
Malheureusement, je ne sais pas quoi en faire.
Alors, j'ai copié ton code et l'ai placé dans un module et je n'ai rien compris.
Désolé
Si tu pouvais me fournir plus de détails, ça m'arrangerait bien.
D'avance merci.
@+

Guy FALESSE

[Guy FALESSE]

salut Vodiem,

Je viens de re-vérifier, en fait, on recule dans ms-access 10.
La base sur laquelle je travaille actuellement a été créée en Access xp.
Je l'ouvre sous Access 10 et le formulaire que je ne sais pas dimensionner dans ce dernier, s'ouvre parfaitement, le formulaire(fenêtre indépendante=non) reste bien aux dimensions requises)
Je vais garder le formulaire en mode indépendant et tester les rubans.
Encore merci pour ton aide.

@+

Guy FALESSE