fermer une msgbox

2 réponses

gilou

07/04/2005 à 17:08

bonsoir =E0 tous

derriere ces lignes de code je voudrais fermer la msgbox=20
automatiquement pour =E9viter de cliquer sur ok.
<<<<<
If Me.validation =3D "ACCEPTE" Then
MsgBox "test conforme"
End If
<<<<<

Est ce possible d'enchainer par une ligne du style=20
docmd.close....... ou de temporiser l'affichage de la=20
msgbox .
Pouvez-vous m'aiguiller ?

Merci

2 réponses

Raymond [mvp]

07/04/2005 à 17:55

Bonjour.

une idée peut-être sur:
http://officesystem.access.free.fr/telecharger/info.zip
Permet d'afficher un formulaire d'information pendant une durée programmée
sans arrêter l'exécution du formulaire
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"gilou" a écrit dans le message de
news: 0c7a01c53b83$9c778400$
bonsoir à tous

derriere ces lignes de code je voudrais fermer la msgbox
automatiquement pour éviter de cliquer sur ok.
<<<<<
If Me.validation = "ACCEPTE" Then
MsgBox "test conforme"
End If
<<<<<

Est ce possible d'enchainer par une ligne du style
docmd.close....... ou de temporiser l'affichage de la
msgbox .
Pouvez-vous m'aiguiller ?

Merci

TOUTI

07/04/2005 à 19:24

Tu peux créer un petit formulaire(nommé par exemple "message") contenant une
étiquette avec le message que tu désires (il faudra quand même changer
quelques options de cette form pour cacher les boutons, barres....).
et compléter le code avec un timer (voir code ci-dessous) où tempo exprime
la durée en seconde.

If Me.validation = "ACCEPTE" Then
stDocName = "message"
DoCmd.OpenForm stDocName, , , stLinkCriteria
tempo = 5: t = Timer
While (t + tempo) > Timer: DoEvents: Wend
DoCmd.Close acForm, stDocName, acSaveNo
End If

--
TouTi

fermer une msgbox

2 réponses

Veuillez sélectionner un problème