OVH Cloud OVH Cloud

fermer msgbox??

4 réponses
Avatar
Ital
je voudrais savoir si c'est possible et comment faire pour
fermer un msgbox avec une macro, code ou autre sans
l'action d'un usager n'y de temps.. merci..

4 réponses

Avatar
3stone
Salut,

Ital
je voudrais savoir si c'est possible et comment faire pour
fermer un msgbox avec une macro, code ou autre sans
l'action d'un usager n'y de temps.. merci..



Pas de facon très "propre"...
Il faudrait créer un petit formulaire dont tu commande
l'ouverture et la fermeture à loisir...


Mais, cela fonctionne aussi avec ceci.


Me.TimerInterval = 5000
MsgBox "Je ferme automatiquement dans 5 secondes..."


Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub



(j'ai honte, j'ai honte... ;-)))

--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
Raymond
(j'ai honte, j'ai honte... ;-)))


Ho oui, ho oui ! heureusement l'heure matinale du post va nous faire
oublier.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"3stone" a écrit dans le message de
news:
Salut,

Ital
je voudrais savoir si c'est possible et comment faire pour
fermer un msgbox avec une macro, code ou autre sans
l'action d'un usager n'y de temps.. merci..



Pas de facon très "propre"...
Il faudrait créer un petit formulaire dont tu commande
l'ouverture et la fermeture à loisir...


Mais, cela fonctionne aussi avec ceci.


Me.TimerInterval = 5000
MsgBox "Je ferme automatiquement dans 5 secondes..."


Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub



(j'ai honte, j'ai honte... ;-)))

--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------






Avatar
moilneu
"3stone" a écrit dans le message de news: ...
Salut,

Me.TimerInterval = 5000
MsgBox "Je ferme automatiquement dans 5 secondes..."

Private Sub Form_Timer()
SendKeys "{Enter}"
Me.TimerInterval = 0
End Sub


Bouuuu, quelle horreur ! la honte !!!

--
Laurent

Avatar
Hubert Canevet
J'imagine que tu voulais dire "sans action de
l'utilisateur et sans tenir compte du temps écoulé".

Car il ne t'a pas échappé que l'action de l'utilisateur
est le moyen le plus simple de fermer un message, et que
pour le fermer au bout d'un temps donné on a un topo bien
ficelé là :
http://www.mvps.org/accessfr/forms/frm0046.htm

Alors si c'est après l'exécution d'un certain code que
doit se fermer le message, il y a un moyen assez simple
c'est de créer un formulaire modal avec le message dessus.
Tu mets un bouton ou pas dessus selon que tu souhaites que
l'utilisateur puisse le fermer (gérer les boutons système
en conséquence), et le moment venu, hop,
DoCmd.Close acForm, "frmMagique", acSaveNo
(si on considère que le message est sur un formulaire
magique ...)

Et ça devrait faire l'affaire, il me semble ?

Il y a aussi la possibilité de créer un état, à la place,
pour juste afficher un message, mais avec un état il faut
tenir compte des marges, c'est donc plus compliqué qu'avec
un formulaire pour faire quelque chose de propre.

Je disais un formulaire modal pour qu'il puisse sortir de
la fenêtre de l'application et que la sélection d'un autre
formulaire ne le cache pas, mais ce n'est pas une
obligation, il faut tester pour voir.

-----Message d'origine-----
je voudrais savoir si c'est possible et comment faire
pour

fermer un msgbox avec une macro, code ou autre sans
l'action d'un usager n'y de temps.. merci..
.