bonjour,
j'ai du code vba qui ouvre un état en mode aperçu et je voudrais interrompre
le code jusqu'à ce que l'utilisateur ait fermé l'état.
Comment puis-je faire ?
Merci.
Paul
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michel
Bonjour Si tu as access Xp tu peut utilise l'argument supplémentaire dans openReport : mode fenetre et choisir acDialog HTH Michel "Paul" a écrit dans le message de news:
bonjour, j'ai du code vba qui ouvre un état en mode aperçu et je voudrais interrompre
le code jusqu'à ce que l'utilisateur ait fermé l'état. Comment puis-je faire ? Merci. Paul
Bonjour
Si tu as access Xp tu peut utilise l'argument supplémentaire dans openReport
: mode fenetre et choisir acDialog
HTH
Michel
"Paul" <antispam@antispam.fr> a écrit dans le message de news:
OEoyc6EpDHA.1672@TK2MSFTNGP09.phx.gbl...
bonjour,
j'ai du code vba qui ouvre un état en mode aperçu et je voudrais
interrompre
le code jusqu'à ce que l'utilisateur ait fermé l'état.
Comment puis-je faire ?
Merci.
Paul
Bonjour Si tu as access Xp tu peut utilise l'argument supplémentaire dans openReport : mode fenetre et choisir acDialog HTH Michel "Paul" a écrit dans le message de news:
bonjour, j'ai du code vba qui ouvre un état en mode aperçu et je voudrais interrompre
le code jusqu'à ce que l'utilisateur ait fermé l'état. Comment puis-je faire ? Merci. Paul
Paul
Merci, mais j'avais oublié de préciser que c'était pour access97.
Paul
Merci, mais j'avais oublié de préciser que c'était pour access97.
Merci, mais j'avais oublié de préciser que c'était pour access97.
Paul
michel
Re Bonjour Essaie ceci Sub toto() DoCmd.OpenReport "rptpret", acViewPreview Do While estouvertR("rptpret") DoEvents 'important pour finir ouverture etat Loop MsgBox "fermé" End Sub
Function estouvertR(NomEtat) Dim rpt As Report estouvertR = False For Each rpt In Reports If rpt.Name = NomEtat Then estouvertR = True Exit Function End If Next End Function @plus Michel "Paul" a écrit dans le message de news: #
Merci, mais j'avais oublié de préciser que c'était pour access97.
Paul
Re Bonjour
Essaie ceci
Sub toto()
DoCmd.OpenReport "rptpret", acViewPreview
Do While estouvertR("rptpret")
DoEvents 'important pour finir ouverture etat
Loop
MsgBox "fermé"
End Sub
Function estouvertR(NomEtat)
Dim rpt As Report
estouvertR = False
For Each rpt In Reports
If rpt.Name = NomEtat Then
estouvertR = True
Exit Function
End If
Next
End Function
@plus
Michel
"Paul" <antispam@antispam.fr> a écrit dans le message de news:
#upBdLFpDHA.648@TK2MSFTNGP11.phx.gbl...
Merci, mais j'avais oublié de préciser que c'était pour access97.
Re Bonjour Essaie ceci Sub toto() DoCmd.OpenReport "rptpret", acViewPreview Do While estouvertR("rptpret") DoEvents 'important pour finir ouverture etat Loop MsgBox "fermé" End Sub
Function estouvertR(NomEtat) Dim rpt As Report estouvertR = False For Each rpt In Reports If rpt.Name = NomEtat Then estouvertR = True Exit Function End If Next End Function @plus Michel "Paul" a écrit dans le message de news: #
Merci, mais j'avais oublié de préciser que c'était pour access97.
Paul
Paul
Re merci, j'essaie tout de suite. DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre. Paul
Re merci,
j'essaie tout de suite.
DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre.
Paul
Re merci, j'essaie tout de suite. DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre. Paul
3stone
Salut,
"Paul" DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre.
DoEvents, est à placer dans toute structure de boucle qui pourrait "essoufler" un process.
C'est également à introduire après un appel à une fonction qui modifie l'affichage, mais ne laisse pas le temps à Access de raffraichir les données affichées.
DoEvents ne fait rien d'autre que de "rendre la main" aux autres Process pour leurs permettrent de rattraper les jobs qui sont dans la pile.
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
"Paul"
DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre.
DoEvents, est à placer dans toute structure de boucle qui pourrait "essoufler" un process.
C'est également à introduire après un appel à une fonction qui modifie l'affichage,
mais ne laisse pas le temps à Access de raffraichir les données affichées.
DoEvents ne fait rien d'autre que de "rendre la main" aux autres Process
pour leurs permettrent de rattraper les jobs qui sont dans la pile.
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
"Paul" DoEvents : j'ai déjà utilisé ça, mais sans vraiment bien comprendre.
DoEvents, est à placer dans toute structure de boucle qui pourrait "essoufler" un process.
C'est également à introduire après un appel à une fonction qui modifie l'affichage, mais ne laisse pas le temps à Access de raffraichir les données affichées.
DoEvents ne fait rien d'autre que de "rendre la main" aux autres Process pour leurs permettrent de rattraper les jobs qui sont dans la pile.
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
