Test Instance d'un programme

Raymond [mvp]

11/02/2004 à 20:13

Bonsoir.
Pour interdire de lancer 2 fois la même application access il faut procéder
ainsi:
dans la macro autoexec, 1ere ligne indiquer:
action : exécutercode, fonction : TestDDELink ()
dans un module standard, placer la fonction suivante:
Option Compare Database
Option Explicit

Public Function TestDDELink() As Boolean
Dim varDDEChannel
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varDDEChannel = DDEInitiate("MSAccess", CurrentDb.Name)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varDDEChannel
DDETerminateAll
MsgBox "Application déjà ouverte. Cette instance va être
supprimée.", vbCritical
Quit
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit dans le message de
news:eae301c3f0ce$229d4fd0$
Bonsoir,

Access permet-il de tester si une instance d'un programme
a été lancée ou pas (ceci permet de ne pas relancer une
2ème fois le meme programme déjà en éxécution)? et comment
le transcrit-il en VBA ?
Merci de votre aide

lou

11/02/2004 à 21:03

re bonjour

désole de te décevoir j'ai fait un test
j'ouvre une fois la base que je mets en reduction puis je la relance une
2eme fois et toujours pas de msgbox ????
LOU

"Raymond [mvp]" a écrit dans le message de
news:%

Bonsoir.
Pour interdire de lancer 2 fois la même application access il faut
procéder

ainsi:
dans la macro autoexec, 1ere ligne indiquer:
action : exécutercode, fonction : TestDDELink ()
dans un module standard, placer la fonction suivante:
Option Compare Database
Option Explicit

Public Function TestDDELink() As Boolean
Dim varDDEChannel
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varDDEChannel = DDEInitiate("MSAccess", CurrentDb.Name)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varDDEChannel
DDETerminateAll
MsgBox "Application déjà ouverte. Cette instance va être
supprimée.", vbCritical
Quit
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit dans le message
de

news:eae301c3f0ce$229d4fd0$
Bonsoir,

Access permet-il de tester si une instance d'un programme
a été lancée ou pas (ceci permet de ne pas relancer une
2ème fois le meme programme déjà en éxécution)? et comment
le transcrit-il en VBA ?
Merci de votre aide

Raymond [mvp]

11/02/2004 à 21:30

as-tu lancé l'application par access ou directement la base mdb. il faut que
le raccourci soit sur access et non sur la base mdb.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"lou" a écrit dans le message de
news:402a8a85$0$13247$

re bonjour

désole de te décevoir j'ai fait un test
j'ouvre une fois la base que je mets en reduction puis je la relance une
2eme fois et toujours pas de msgbox ????
LOU

lou

11/02/2004 à 21:52

re re bonjour voila evidament de cette façon c'est impecable ça fonctionne
je reçois bien le msg

mais voila ce n'est pas ce que j'attendais de cette fonction
je travaille en runtime et mes raccourcis sont fabriqués par mon setup
d'install et ils pointent vers ma base qui est en mde dasn un repertoire
bien spécifique et il n'y a pas access sur les pc donc ça ne sert pas a
grand chose a moins de peut etre changer le chemin sur cette ligne ou il
pointe MSaccess ?????
varDDEChannel = DDEInitiate("MSAccess", CurrentDb.Name)
MECRCI
et mes exuses pour le dérangement
lou

"Raymond [mvp]" a écrit dans le message de
news:

as-tu lancé l'application par access ou directement la base mdb. il faut
que

le raccourci soit sur access et non sur la base mdb.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"lou" a écrit dans le message de
news:402a8a85$0$13247$
re bonjour

désole de te décevoir j'ai fait un test
j'ouvre une fois la base que je mets en reduction puis je la relance
une

2eme fois et toujours pas de msgbox ????
LOU

Raymond [mvp]

11/02/2004 à 22:24

Les bases mdb par exemple, si elles sont lancées directement, lancent une
instance msaccess ce qui fait qu'on ne retrouve que msaccess dans les
processus.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"lou" a écrit dans le message de
news:402a95fe$0$309$

re re bonjour voila evidament de cette façon c'est impecable ça fonctionne
je reçois bien le msg

mais voila ce n'est pas ce que j'attendais de cette fonction
je travaille en runtime et mes raccourcis sont fabriqués par mon setup
d'install et ils pointent vers ma base qui est en mde dasn un repertoire
bien spécifique et il n'y a pas access sur les pc donc ça ne sert pas a
grand chose a moins de peut etre changer le chemin sur cette ligne ou il
pointe MSaccess ?????
varDDEChannel = DDEInitiate("MSAccess", CurrentDb.Name)
MECRCI
et mes exuses pour le dérangement
lou

Guillaume

12/02/2004 à 22:23

Raymond,

Je lance "CALC.EXE" via Access pour la 1ere fois
puis je lance "CALC.EXE" toujours via Access, une seconde
fois, 2 instance de "CALC.EXE" ont été lancées. Comment
expliques-tu ce phénomène ?

Guillaume

-----Message d'origine-----
Bonsoir,

Access permet-il de tester si une instance d'un programme
a été lancée ou pas (ceci permet de ne pas relancer une
2ème fois le meme programme déjà en éxécution)? et
comment

le transcrit-il en VBA ?
Merci de votre aide
.

Raymond [mvp]

12/02/2004 à 22:42

Il n'y a rien à expliquer ; l'application calculatrice accepte le
multi-instances et puis c'est tout. lorsque access lance une application
externe, il lance toujours une nouvelle instance. A toi de tester si
calc.exe est déjà en instance et si tu dois relancer une 2e instance ou non.
au programme appelé de savoir s'il peut exécuter deux instances simultanées
et à lui de gérer l'état.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit dans le message de
news:ed5d01c3f1ae$7b756300$
Raymond,

Je lance "CALC.EXE" via Access pour la 1ere fois
puis je lance "CALC.EXE" toujours via Access, une seconde
fois, 2 instance de "CALC.EXE" ont été lancées. Comment
expliques-tu ce phénomène ?

Guillaume

Guillaume

13/02/2004 à 07:39

Oui, je suis d'accord mais, je voulais dire que, malgré
l'application de tes instructions, je n'arrive pas à
interdire l'execution des autres instances de Calc.exe

voici tes instructions :
dans la macro autoexec, 1ere ligne indiquer:
action : exécutercode, fonction : TestDDELink ()
dans un module standard, placer la fonction suivante:
Option Compare Database
Option Explicit
...

-----Message d'origine-----
Il n'y a rien à expliquer ; l'application calculatrice
accepte le

multi-instances et puis c'est tout. lorsque access lance
une application

externe, il lance toujours une nouvelle instance. A toi
de tester si

calc.exe est déjà en instance et si tu dois relancer une
2e instance ou non.

au programme appelé de savoir s'il peut exécuter deux
instances simultanées

et à lui de gérer l'état.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit
dans le message de

news:ed5d01c3f1ae$7b756300$
Raymond,

Je lance "CALC.EXE" via Access pour la 1ere fois
puis je lance "CALC.EXE" toujours via Access, une seconde
fois, 2 instance de "CALC.EXE" ont été lancées. Comment
expliques-tu ce phénomène ?

Guillaume

.

Raymond [mvp]

13/02/2004 à 08:59

Bonjour.

Tu es en train de détourner la finalité de la fonction. La procédure est
incluse dans access pour interdire l'instance access dans laquelle se trouve
la fonction. Cette fonction n'a jamais été prévue pour interdire le
lancement d'instances d'un autre logiciel.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit dans le message de
news:f7dc01c3f1fc$187b6b20$
Oui, je suis d'accord mais, je voulais dire que, malgré
l'application de tes instructions, je n'arrive pas à
interdire l'execution des autres instances de Calc.exe

voici tes instructions :
dans la macro autoexec, 1ere ligne indiquer:
action : exécutercode, fonction : TestDDELink ()
dans un module standard, placer la fonction suivante:
Option Compare Database
Option Explicit

Guillaume

13/02/2004 à 09:37

Raymond, je voulais dire que malgré les instructions que
tu m'as fournies, j'ai appliqué dans mon programme, cela
n'a pas interdit la relance d'autres instances du meme
programme (Calc.exe)
Merci de votre aide.

-----Message d'origine-----
Il n'y a rien à expliquer ; l'application calculatrice
accepte le

multi-instances et puis c'est tout. lorsque access lance
une application

externe, il lance toujours une nouvelle instance. A toi
de tester si

calc.exe est déjà en instance et si tu dois relancer une
2e instance ou non.

au programme appelé de savoir s'il peut exécuter deux
instances simultanées

et à lui de gérer l'état.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"Guillaume" a écrit
dans le message de

news:ed5d01c3f1ae$7b756300$
Raymond,

Je lance "CALC.EXE" via Access pour la 1ere fois
puis je lance "CALC.EXE" toujours via Access, une seconde
fois, 2 instance de "CALC.EXE" ont été lancées. Comment
expliques-tu ce phénomène ?

Guillaume

.

Test Instance d'un programme

10 réponses

Veuillez sélectionner un problème