fermer forms actif et agrandir celui qui est réduit ?
9 réponses
Cinémas Décavision
Bonjour Amis Acces 2k,
Encore moi... Question facile pour vous...Comment faire (par macro cela ne
fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir
celui qui est réduit en bas ???
Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le
forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit...
Avec du VBA, un bout de code SVP genre sur Clik :
Bonjour Amis Acces 2k, Encore moi... Question facile pour vous...Comment faire (par macro cela ne fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir celui qui est réduit en bas ??? Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit... Avec du VBA, un bout de code SVP genre sur Clik :
Bonjour Amis Acces 2k,
Encore moi... Question facile pour vous...Comment faire (par macro cela ne
fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir
celui qui est réduit en bas ???
Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le
forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit...
Avec du VBA, un bout de code SVP genre sur Clik :
Bonjour Amis Acces 2k, Encore moi... Question facile pour vous...Comment faire (par macro cela ne fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir celui qui est réduit en bas ??? Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit... Avec du VBA, un bout de code SVP genre sur Clik :
Tout pour réussir avec Access : http://www.mpfa.info
Cinémas Décavision
Bonjour Thierryr,
Cela ne FONCTIONNE pas !!! Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui est en bas en réduction...
Une piste SVP en VBA ou une Macro.... Merci à tous.
Bernard -- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Bonjour Thierryr,
Cela ne FONCTIONNE pas !!!
Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif
nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui est en bas
en réduction...
Une piste SVP en VBA ou une Macro....
Merci à tous.
Bernard
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
Cela ne FONCTIONNE pas !!! Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui est en bas en réduction...
Une piste SVP en VBA ou une Macro.... Merci à tous.
Bernard -- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Thierry (ze Titi)
Cela ne FONCTIONNE pas !!! Ne CRIE pas ! ;-)
Et surtout, explique ce qui ne fonctionne pas ! La fermeture, le focus sur le second formulaire ?
Tout pour réussir avec Access : http://www.mpfa.info
Michel_D
Bonjour,
Tu as essayé de maximiser le Formulaire réduit, puis ensuite de fermer le Formulaire actif.
"Cinémas Décavision" a écrit dans le message de news:4721adc8$0$25918$
Bonjour Amis Acces 2k, Encore moi... Question facile pour vous...Comment faire (par macro cela ne fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir celui qui est réduit en bas ??? Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit... Avec du VBA, un bout de code SVP genre sur Clik :
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Bonjour,
Tu as essayé de maximiser le Formulaire réduit, puis ensuite de fermer
le Formulaire actif.
"Cinémas Décavision" <pdg@decavision.fr> a écrit dans le message de news:4721adc8$0$25918$ba4acef3@news.orange.fr...
Bonjour Amis Acces 2k,
Encore moi... Question facile pour vous...Comment faire (par macro cela ne
fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir
celui qui est réduit en bas ???
Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le
forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit...
Avec du VBA, un bout de code SVP genre sur Clik :
Tu as essayé de maximiser le Formulaire réduit, puis ensuite de fermer le Formulaire actif.
"Cinémas Décavision" a écrit dans le message de news:4721adc8$0$25918$
Bonjour Amis Acces 2k, Encore moi... Question facile pour vous...Comment faire (par macro cela ne fonctionne pas), du moins avec moi...Pour fermer le forms actif et ouvrir celui qui est réduit en bas ??? Avec Macro cela aurait du etre Fermer-Restaurer-Redessiner mais RIEN le forms en cours se ferme (normal) et l'autre s'agrandi puis se re-réduit... Avec du VBA, un bout de code SVP genre sur Clik :
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
jerome crevecoeur
Salutations Bernard
En VBA
Dim monform as string
monform="FormBas"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
Cordialement
Bonjour Thierryr,
Cela ne FONCTIONNE pas !!! Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui e st en bas en réduction...
Une piste SVP en VBA ou une Macro.... Merci à tous.
Bernard
Salutations Bernard
En VBA
Dim monform as string
monform="FormBas"
'Reduction du formulaire courant
DoCmd.SelectObject acForm, Me.name
DoCmd.Minimize
'Restauration du formulaire réduit
If Currentproject.Allforms(monform).isloaded Then
Docmd.selectObject acform,monform
Docmd.restore 'reaffiche le formulaire a la taille originale
End if
Cordialement
Bonjour Thierryr,
Cela ne FONCTIONNE pas !!!
Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif
nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui e st en bas
en réduction...
Une piste SVP en VBA ou une Macro....
Merci à tous.
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
Cordialement
Bonjour Thierryr,
Cela ne FONCTIONNE pas !!! Car je suis dans un bouton d'un forms actif et je veux fermer ce forms actif nommé "FormsView" pour ré-ouvrir ou plutot ré-AGRANDR celui qui e st en bas en réduction...
Une piste SVP en VBA ou une Macro.... Merci à tous.
Bernard
Cinémas Décavision
Bonjour à tous et merci pour votre aide. Excusez-moi pour : Un seul mot en majuscule, ce ne sont point des cris, mais un mot à mettre en évisence... Je ne le ferai plus.
Pour revenir à la partie technique, je vais essayez vos méthodes et je vous (Mot en majuscule dans ma tete) remercie beaucoup de votre précieux temps que vous m'accordez. Bernard
Bonjour à tous et merci pour votre aide.
Excusez-moi pour : Un seul mot en majuscule, ce ne sont point des cris, mais
un mot à mettre en évisence... Je ne le ferai plus.
Pour revenir à la partie technique, je vais essayez vos méthodes et je vous
(Mot en majuscule dans ma tete) remercie beaucoup de votre précieux temps
que vous m'accordez.
Bernard
Bonjour à tous et merci pour votre aide. Excusez-moi pour : Un seul mot en majuscule, ce ne sont point des cris, mais un mot à mettre en évisence... Je ne le ferai plus.
Pour revenir à la partie technique, je vais essayez vos méthodes et je vous (Mot en majuscule dans ma tete) remercie beaucoup de votre précieux temps que vous m'accordez. Bernard
Cinémas Décavision
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme pas, donc il me bloque l'utilisation du form répertoire et je ne poeux quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le
formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme
pas, donc il me bloque l'utilisation du form répertoire et je ne poeux
quitter quand faisant CTRL+ALT+SUPPR Bizarrerie.
Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui
était réduit s'agrandit.
Merci à tous ceux qui m'aident ou me lise.
Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant
DoCmd.SelectObject acForm, Me.name
DoCmd.Minimize
'Restauration du formulaire réduit
If Currentproject.Allforms(monform).isloaded Then
Docmd.selectObject acform,monform
Docmd.restore 'reaffiche le formulaire a la taille originale
End if
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme pas, donc il me bloque l'utilisation du form répertoire et je ne poeux quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
Eric
Bonjour,
Et avec ceci ?
Private Sub Commande1_Click() If CurrentProject.AllForms("Répertoire").IsLoaded Then DoCmd.SelectObject acForm, "Répertoire" DoCmd.Restore End If DoCmd.Close acForm, Me.Name End Sub
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme pas, donc il me bloque l'utilisation du form répertoire et je ne poeux quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Et avec ceci ?
Private Sub Commande1_Click()
If CurrentProject.AllForms("Répertoire").IsLoaded Then
DoCmd.SelectObject acForm, "Répertoire"
DoCmd.Restore
End If
DoCmd.Close acForm, Me.Name
End Sub
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le
formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme
pas, donc il me bloque l'utilisation du form répertoire et je ne poeux
quitter quand faisant CTRL+ALT+SUPPR Bizarrerie.
Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui
était réduit s'agrandit.
Merci à tous ceux qui m'aident ou me lise.
Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant
DoCmd.SelectObject acForm, Me.name
DoCmd.Minimize
'Restauration du formulaire réduit
If Currentproject.Allforms(monform).isloaded Then
Docmd.selectObject acform,monform
Docmd.restore 'reaffiche le formulaire a la taille originale
End if
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Private Sub Commande1_Click() If CurrentProject.AllForms("Répertoire").IsLoaded Then DoCmd.SelectObject acForm, "Répertoire" DoCmd.Restore End If DoCmd.Close acForm, Me.Name End Sub
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf que le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se ferme pas, donc il me bloque l'utilisation du form répertoire et je ne poeux quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoire" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
jerome crevecoeur
Salutations Bernard
Je pense que tu as mis tes formulaires en mode modal. Il vaudrait mieux les laisser en indépendant et désactiver le mode mo dal.
Sinon quelle est la gêne d'utiliser docmd.close?
Dim monform as string
monform="Répertoire"
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
'Reduction du formulaire courant DoCmd.Close acForm, Me.Name
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf q ue le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se fe rme pas, donc il me bloque l'utilisation du form répertoire et je ne poeu x quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoir e" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
Salutations Bernard
Je pense que tu as mis tes formulaires en mode modal.
Il vaudrait mieux les laisser en indépendant et désactiver le mode mo dal.
Sinon quelle est la gêne d'utiliser docmd.close?
Dim monform as string
monform="Répertoire"
'Restauration du formulaire réduit
If Currentproject.Allforms(monform).isloaded Then
Docmd.selectObject acform,monform
Docmd.restore 'reaffiche le formulaire a la taille originale
End if
'Reduction du formulaire courant
DoCmd.Close acForm, Me.Name
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf q ue le
formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se fe rme
pas, donc il me bloque l'utilisation du form répertoire et je ne poeu x
quitter quand faisant CTRL+ALT+SUPPR Bizarrerie.
Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoir e" qui
était réduit s'agrandit.
Merci à tous ceux qui m'aident ou me lise.
Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant
DoCmd.SelectObject acForm, Me.name
DoCmd.Minimize
'Restauration du formulaire réduit
If Currentproject.Allforms(monform).isloaded Then
Docmd.selectObject acform,monform
Docmd.restore 'reaffiche le formulaire a la taille originale
End if
Je pense que tu as mis tes formulaires en mode modal. Il vaudrait mieux les laisser en indépendant et désactiver le mode mo dal.
Sinon quelle est la gêne d'utiliser docmd.close?
Dim monform as string
monform="Répertoire"
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if
'Reduction du formulaire courant DoCmd.Close acForm, Me.Name
Re-Bonjour à tous,
J'ai utilisé la méthode de Jérome, cela irait trés bien, sauf q ue le formulaire "FormsView"sur lequel j'ai le bouton se réduit et ne se fe rme pas, donc il me bloque l'utilisation du form répertoire et je ne poeu x quitter quand faisant CTRL+ALT+SUPPR Bizarrerie. Et ou mettre DoCmd.close pour fermer le formulaire "FormsView"
En clair je clic sur un bouton et "FormsView" se ferme, et "Répertoir e" qui était réduit s'agrandit. Merci à tous ceux qui m'aident ou me lise. Bernard qui est Null
Voici le code :
Dim monform as string
monform="Répertoire"
'Reduction du formulaire courant DoCmd.SelectObject acForm, Me.name DoCmd.Minimize
'Restauration du formulaire réduit If Currentproject.Allforms(monform).isloaded Then Docmd.selectObject acform,monform Docmd.restore 'reaffiche le formulaire a la taille originale End if