Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Access

reduction de formulaires

Le
Le meruvien
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form "liste" en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du form
"menu", ça réduit la base entière, C bien, mais si je clic sur le bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton dans
n'importe quel form ouvert ?


--

Roger
http://le-meruvien.skynetblogs.be/
Lire les 8 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6328251
Bonjour Le meruvien

C bien, mais si je clic sur le bouton reduction du form "liste", ça ne réduit que lui!
Ca paraît logique, non ?


Colle le code suivant dans un module quelconque:

' Déclarations
Const WM_SYSCOMMAND As Long = &H112

Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&

Private Declare Function PostMessage Lib "User32.dll" Alias "PostMessageA" ( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function FindWindow1 Lib "User32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Function AppMinimize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
AppMinimize = True
Else
AppMinimize = False ' Fenêtre pas trouvée
End If
End Function

Ensuite, dans l'évènement "Sur redimensionnement" de ton formulaire, tu mets juste:

AppMinimize Application.Name

Voilou !

Dans ton message
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form "liste" en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du form
"menu", ça réduit la base entière, C bien, mais si je clic sur le bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton dans
n'importe quel form ouvert ?


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Répondre en citant
Le meruvien
Le #6328221
Salut Thierry, ben ça marche pas,voila ce que j'ai fait:
1) j'ai remis dans mon form, les bouton mini,maxi et fermer,
2) a la propriétée 'sur redimensionnement' du formulaire j'ai mis
"AppMinimize application.[base commerciale 101007.mdb]"
3) dans ma procedure INIT de la base, j'ai mis tout le reste
Donc dans mon form, quant je clic sur reduire, ben y réduit le form comme
avant, il passe pas dans la function, et la fenetre de basse dedonnée reste
ouverte



"Thierry (ze Titi)" message de news:
Bonjour Le meruvien

C bien, mais si je clic sur le bouton reduction du form "liste", ça ne
réduit que lui!
Ca paraît logique, non ?


Colle le code suivant dans un module quelconque:

' Déclarations
Const WM_SYSCOMMAND As Long = &H112

Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&

Private Declare Function PostMessage Lib "User32.dll" Alias "PostMessageA"
( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long

Private Declare Function FindWindow1 Lib "User32.dll" Alias "FindWindowA"
( _
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Function AppMinimize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
AppMinimize = True
Else
AppMinimize = False ' Fenêtre pas trouvée
End If
End Function

Ensuite, dans l'évènement "Sur redimensionnement" de ton formulaire, tu
mets juste:

AppMinimize Application.Name

Voilou !

Dans ton message 16/10/2007 jour de Sainte Edwige, tu as pris l'initiative de nous narrer
les faits suivants:
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form "liste"
en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il
ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du form
"menu", ça réduit la base entière, C bien, mais si je clic sur le bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton dans
n'importe quel form ouvert ?


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





Répondre en citant
Thierry (ze Titi)
Le #6328211
AppMinimize Application.Name
est à marquer tel quel... Je fais appel à la fonction Name de l'objet
Application.

Message du mardi 16/10/2007

Salut Thierry, ben ça marche pas,voila ce que j'ai fait:
1) j'ai remis dans mon form, les bouton mini,maxi et fermer,
2) a la propriétée 'sur redimensionnement' du formulaire j'ai mis
"AppMinimize application.[base commerciale 101007.mdb]"
3) dans ma procedure INIT de la base, j'ai mis tout le reste
Donc dans mon form, quant je clic sur reduire, ben y réduit le form comme
avant, il passe pas dans la function, et la fenetre de basse dedonnée reste
ouverte



"Thierry (ze Titi)" de news:
Bonjour Le meruvien

C bien, mais si je clic sur le bouton reduction du form "liste", ça ne
réduit que lui!
Ca paraît logique, non ?


Colle le code suivant dans un module quelconque:

' Déclarations
Const WM_SYSCOMMAND As Long = &H112

Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&

Private Declare Function PostMessage Lib "User32.dll" Alias "PostMessageA"
( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long

Private Declare Function FindWindow1 Lib "User32.dll" Alias "FindWindowA" (
_
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Function AppMinimize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
AppMinimize = True
Else
AppMinimize = False ' Fenêtre pas trouvée
End If
End Function

Ensuite, dans l'évènement "Sur redimensionnement" de ton formulaire, tu
mets juste:

AppMinimize Application.Name

Voilou !

Dans ton message 16/10/2007 jour de Sainte Edwige, tu as pris l'initiative de nous narrer
les faits suivants:
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form "liste"
en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du form
"menu", ça réduit la base entière, C bien, mais si je clic sur le bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton dans
n'importe quel form ouvert ?


-- Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info



Répondre en citant
Le meruvien
Le #6328151
ben non ça marche pas, il me dis qu'il trouve pas la macro "AppMinimize
Application.Name" alors que je l'ai mise comme tu ma dis avec le code dans
ma procedure init




"Thierry (ze Titi)" message de news:
AppMinimize Application.Name
est à marquer tel quel... Je fais appel à la fonction Name de l'objet
Application.

Message du mardi 16/10/2007

Salut Thierry, ben ça marche pas,voila ce que j'ai fait:
1) j'ai remis dans mon form, les bouton mini,maxi et fermer,
2) a la propriétée 'sur redimensionnement' du formulaire j'ai mis
"AppMinimize application.[base commerciale 101007.mdb]"
3) dans ma procedure INIT de la base, j'ai mis tout le reste
Donc dans mon form, quant je clic sur reduire, ben y réduit le form comme
avant, il passe pas dans la function, et la fenetre de basse dedonnée
reste ouverte



"Thierry (ze Titi)" message de news:
Bonjour Le meruvien

C bien, mais si je clic sur le bouton reduction du form "liste", ça ne
réduit que lui!
Ca paraît logique, non ?


Colle le code suivant dans un module quelconque:

' Déclarations
Const WM_SYSCOMMAND As Long = &H112

Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&

Private Declare Function PostMessage Lib "User32.dll" Alias
"PostMessageA" ( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal
lParam As Long) As Long

Private Declare Function FindWindow1 Lib "User32.dll" Alias
"FindWindowA" ( _
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Function AppMinimize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
AppMinimize = True
Else
AppMinimize = False ' Fenêtre pas trouvée
End If
End Function

Ensuite, dans l'évènement "Sur redimensionnement" de ton formulaire, tu
mets juste:

AppMinimize Application.Name

Voilou !

Dans ton message 16/10/2007 jour de Sainte Edwige, tu as pris l'initiative de nous narrer
les faits suivants:
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form
"liste" en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il
ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du
form
"menu", ça réduit la base entière, C bien, mais si je clic sur le
bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton
dans
n'importe quel form ouvert ?


-- Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info








Répondre en citant
Thierry (ze Titi)
Le #6328141
ben non ça marche pas, il me dis qu'il trouve pas la macro "AppMinimize
Application.Name" alors que je l'ai mise comme tu ma dis avec le code dans ma
procedure init


Tu as lu ça où ? J'ai dit "dans un module quelconque"... En gros, tu
crées un nouveau module dans lequel tu colles la fonction est ses
déclarations, tu enregistres le module avec n'importe quel nom (mais
surtout pas AppMinimize) et le tour est joué !

Dans ton message 16/10/2007 jour de Sainte Edwige, tu as pris l'initiative de nous
narrer les faits suivants:
ben non ça marche pas, il me dis qu'il trouve pas la macro "AppMinimize
Application.Name" alors que je l'ai mise comme tu ma dis avec le code dans ma
procedure init




"Thierry (ze Titi)" de news:
AppMinimize Application.Name
est à marquer tel quel... Je fais appel à la fonction Name de l'objet
Application.

Message du mardi 16/10/2007

Salut Thierry, ben ça marche pas,voila ce que j'ai fait:
1) j'ai remis dans mon form, les bouton mini,maxi et fermer,
2) a la propriétée 'sur redimensionnement' du formulaire j'ai mis
"AppMinimize application.[base commerciale 101007.mdb]"
3) dans ma procedure INIT de la base, j'ai mis tout le reste
Donc dans mon form, quant je clic sur reduire, ben y réduit le form comme
avant, il passe pas dans la function, et la fenetre de basse dedonnée
reste ouverte



"Thierry (ze Titi)" message de news:
Bonjour Le meruvien

C bien, mais si je clic sur le bouton reduction du form "liste", ça ne
réduit que lui!
Ca paraît logique, non ?


Colle le code suivant dans un module quelconque:

' Déclarations
Const WM_SYSCOMMAND As Long = &H112

Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_RESTORE As Long = &HF120&

Private Declare Function PostMessage Lib "User32.dll" Alias
"PostMessageA" ( _
ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long

Private Declare Function FindWindow1 Lib "User32.dll" Alias "FindWindowA"
( _
ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

Function AppMinimize(AppTitle As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow1(0, AppTitle & vbNullChar)
If hwnd <> 0 Then
PostMessage hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0
AppMinimize = True
Else
AppMinimize = False ' Fenêtre pas trouvée
End If
End Function

Ensuite, dans l'évènement "Sur redimensionnement" de ton formulaire, tu
mets juste:

AppMinimize Application.Name

Voilou !

Dans ton message 16/10/2007 jour de Sainte Edwige, tu as pris l'initiative de nous narrer
les faits suivants:
Bonjour a tous, j' ouvre ma base sur un formulaire "menu" (form unique)
Dans ce formulaire menu je clic sur un bouton pour ouvrir un form
"liste" en
continu!
Voila ma question: si mon form liste est ouvert en modale=non, et qu'il
ne
prend pas tout l'ecran, je peut cliquer sur la case de reduction du form
"menu", ça réduit la base entière, C bien, mais si je clic sur le bouton
reduction du form "liste", ça ne réduit que lui!
Comment faire pour reduire la base entière en cliquant sur un bouton
dans
n'importe quel form ouvert ?


-- Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





-- Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info






--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme