OVH Cloud OVH Cloud

TestDDELink et mde

21 réponses
Avatar
Marie-Claire
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire

10 réponses

1 2 3
Avatar
Raymond [mvp]
Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire


Avatar
Marie-Claire
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire







Avatar
Raymond [mvp]
Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois cliquer sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire









Avatar
Marie-Claire
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois cliquer sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire














Avatar
Raymond [mvp]
quelle est ta version access ? car l'empaquetage n'est pas identique selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire
















Avatar
Marie-Claire
Bonjour,
Je travaille avec Access2002 et Microsoft Office XP développer.
On m'a offert Access2003 et Visual Studio Tools, mais je n'ai pas encore
essayé car je crains toujours d'installer 2 versions différentes.
Si tu voulais bien me donner la procédure pour XP et je reviendrai sur le
news pour 2003 lorsque je l'aurai installé, à moins que tu ne veuille me
donner les deux procédures.
Je crée toujours les empaquetages avec la base mde.
Merci beaucoup.
Marie-Claire
--
Marie-Claire



quelle est ta version access ? car l'empaquetage n'est pas identique selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le raccourci)

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même pc.
Mais après avoir créé un fichier mde ctte fonction ne marche plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire





















Avatar
Raymond [mvp]
lorsque tu fais ton empaquetage, tu dois arriver sur la fenêtre "éléments du
menu démarrer".
tu cliques sur le dernier élément (le nom de ta base) et sur propriétés.
tu remplaces la cible : "$(AppPath)tabase.mde"
par: "c:program filemicrosoft office 2002officemsaccess.exe
c:mondossiertabase.mde"
par exemple, à toi d'indiquer les bons chemins.
fais un test pour vérifier que tout va bien.
--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je travaille avec Access2002 et Microsoft Office XP développer.
On m'a offert Access2003 et Visual Studio Tools, mais je n'ai pas encore
essayé car je crains toujours d'installer 2 versions différentes.
Si tu voulais bien me donner la procédure pour XP et je reviendrai sur le
news pour 2003 lorsque je l'aurai installé, à moins que tu ne veuille me
donner les deux procédures.
Je crée toujours les empaquetages avec la base mde.
Merci beaucoup.
Marie-Claire
--
Marie-Claire



quelle est ta version access ? car l'empaquetage n'est pas identique
selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access
la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois
cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te
dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme
lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde
alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le
raccourci)

--
@+
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


"Marie-Claire" a écrit dans
le
message de news:

Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même
pc.
Mais après avoir créé un fichier mde ctte fonction ne marche
plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il
résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire























Avatar
Marie-Claire
Bonjour,
Je te remercie, je pense que cela s'applique à AccessXP.
Je n'ai pas encore pu essayer car j'ai une erreur à l'empaquetage, je te
donne le message:
Impossible d'ouvrir le fichier spécifié. Raisons possibles:
-Microsoft Access n'est pas installé sur votre ordinateur.
-La version installée de Microsoft Access est incompatible avec ce fichier.
-Le fichier spécifié n'est pas un fichier Microsoft Access valide.

J'ai déjà empaqueté de dizaines de fois, c'est bien la première fois que
j'ai ce problème.
J'ai créé une nouvelle base et tout importé, j'ai désinstallé Office et
réinstallé, désinstallé Office XP dév et réinstallé et toujours ce même
problème.

Je ne comprend rien, si tu penses à une solution....
Marie-Claire

--
Marie-Claire



lorsque tu fais ton empaquetage, tu dois arriver sur la fenêtre "éléments du
menu démarrer".
tu cliques sur le dernier élément (le nom de ta base) et sur propriétés.
tu remplaces la cible : "$(AppPath)tabase.mde"
par: "c:program filemicrosoft office 2002officemsaccess.exe
c:mondossiertabase.mde"
par exemple, à toi d'indiquer les bons chemins.
fais un test pour vérifier que tout va bien.
--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je travaille avec Access2002 et Microsoft Office XP développer.
On m'a offert Access2003 et Visual Studio Tools, mais je n'ai pas encore
essayé car je crains toujours d'installer 2 versions différentes.
Si tu voulais bien me donner la procédure pour XP et je reviendrai sur le
news pour 2003 lorsque je l'aurai installé, à moins que tu ne veuille me
donner les deux procédures.
Je crée toujours les empaquetages avec la base mde.
Merci beaucoup.
Marie-Claire
--
Marie-Claire



quelle est ta version access ? car l'empaquetage n'est pas identique
selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access
la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois
cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te
dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme
lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde
alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le
raccourci)

--
@+
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


"Marie-Claire" a écrit dans
le
message de news:

Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même
pc.
Mais après avoir créé un fichier mde ctte fonction ne marche
plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il
résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire




























Avatar
Marie-Claire
Bon ça y est, le problème venait de Windows, maintenant je peux empaqueter.
Le problème se pose autrement, car s'il s'agit bien de la procédure pour
AccessXP, le seul endroit où je trouve $(AppPath), c'est à la page 'Modifier
les emplacements d'installation' avec 4 colonnes:

Nom Source Emplacement d'nstallation
Mode Partagé
MaTable C: $(AppPath)
Faux

J'ai supposé qu'il s'agit de la colonne Emplacement d'installation, mais je
n'arrive pas à modifier $(AppPath), car il faut choisir un élément de la
liste.

Si tu peux m'éclairer?
Marie-Claire
--
Marie-Claire



Bonjour,
Je te remercie, je pense que cela s'applique à AccessXP.
Je n'ai pas encore pu essayer car j'ai une erreur à l'empaquetage, je te
donne le message:
Impossible d'ouvrir le fichier spécifié. Raisons possibles:
-Microsoft Access n'est pas installé sur votre ordinateur.
-La version installée de Microsoft Access est incompatible avec ce fichier.
-Le fichier spécifié n'est pas un fichier Microsoft Access valide.

J'ai déjà empaqueté de dizaines de fois, c'est bien la première fois que
j'ai ce problème.
J'ai créé une nouvelle base et tout importé, j'ai désinstallé Office et
réinstallé, désinstallé Office XP dév et réinstallé et toujours ce même
problème.

Je ne comprend rien, si tu penses à une solution....
Marie-Claire

--
Marie-Claire



lorsque tu fais ton empaquetage, tu dois arriver sur la fenêtre "éléments du
menu démarrer".
tu cliques sur le dernier élément (le nom de ta base) et sur propriétés.
tu remplaces la cible : "$(AppPath)tabase.mde"
par: "c:program filemicrosoft office 2002officemsaccess.exe
c:mondossiertabase.mde"
par exemple, à toi d'indiquer les bons chemins.
fais un test pour vérifier que tout va bien.
--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je travaille avec Access2002 et Microsoft Office XP développer.
On m'a offert Access2003 et Visual Studio Tools, mais je n'ai pas encore
essayé car je crains toujours d'installer 2 versions différentes.
Si tu voulais bien me donner la procédure pour XP et je reviendrai sur le
news pour 2003 lorsque je l'aurai installé, à moins que tu ne veuille me
donner les deux procédures.
Je crée toujours les empaquetages avec la base mde.
Merci beaucoup.
Marie-Claire
--
Marie-Claire



quelle est ta version access ? car l'empaquetage n'est pas identique
selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis Access
la
base, après fermeture de la base, j'ai créé un raccourci sur le bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois
cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui te
dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme
lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base mde
alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le
raccourci)

--
@+
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


"Marie-Claire" a écrit dans
le
message de news:

Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le même
pc.
Mais après avoir créé un fichier mde ctte fonction ne marche
plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il
résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire






























Avatar
Raymond [mvp]
Bonjour.

c'est une des dernières fenêtres qui s'appelle "éléments du menu démarrer",
dont les éléments vont créer le raccourci sur les programmes.

là on peut modifier les éléments.
--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bon ça y est, le problème venait de Windows, maintenant je peux
empaqueter.
Le problème se pose autrement, car s'il s'agit bien de la procédure pour
AccessXP, le seul endroit où je trouve $(AppPath), c'est à la page
'Modifier
les emplacements d'installation' avec 4 colonnes:

Nom Source Emplacement d'nstallation
Mode Partagé
MaTable C: $(AppPath)
Faux

J'ai supposé qu'il s'agit de la colonne Emplacement d'installation, mais
je
n'arrive pas à modifier $(AppPath), car il faut choisir un élément de la
liste.

Si tu peux m'éclairer?
Marie-Claire
--
Marie-Claire



Bonjour,
Je te remercie, je pense que cela s'applique à AccessXP.
Je n'ai pas encore pu essayer car j'ai une erreur à l'empaquetage, je te
donne le message:
Impossible d'ouvrir le fichier spécifié. Raisons possibles:
-Microsoft Access n'est pas installé sur votre ordinateur.
-La version installée de Microsoft Access est incompatible avec ce
fichier.
-Le fichier spécifié n'est pas un fichier Microsoft Access valide.

J'ai déjà empaqueté de dizaines de fois, c'est bien la première fois que
j'ai ce problème.
J'ai créé une nouvelle base et tout importé, j'ai désinstallé Office et
réinstallé, désinstallé Office XP dév et réinstallé et toujours ce même
problème.

Je ne comprend rien, si tu penses à une solution....
Marie-Claire

--
Marie-Claire



lorsque tu fais ton empaquetage, tu dois arriver sur la fenêtre
"éléments du
menu démarrer".
tu cliques sur le dernier élément (le nom de ta base) et sur
propriétés.
tu remplaces la cible : "$(AppPath)tabase.mde"
par: "c:program filemicrosoft office 2002officemsaccess.exe
c:mondossiertabase.mde"
par exemple, à toi d'indiquer les bons chemins.
fais un test pour vérifier que tout va bien.
--
@+
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


"Marie-Claire" a écrit dans le
message de news:
Bonjour,
Je travaille avec Access2002 et Microsoft Office XP développer.
On m'a offert Access2003 et Visual Studio Tools, mais je n'ai pas
encore
essayé car je crains toujours d'installer 2 versions différentes.
Si tu voulais bien me donner la procédure pour XP et je reviendrai
sur le
news pour 2003 lorsque je l'aurai installé, à moins que tu ne veuille
me
donner les deux procédures.
Je crée toujours les empaquetages avec la base mde.
Merci beaucoup.
Marie-Claire
--
Marie-Claire



quelle est ta version access ? car l'empaquetage n'est pas identique
selon
les versions, notamment 2003.

--
@+
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


"Marie-Claire" a écrit dans
le
message de news:

Bonjour,
Pour l'instant la base est sur le bureau puisque je la teste.
J'ai donc placé la base dans C: et j'ai ouvert Access et depuis
Access
la
base, après fermeture de la base, j'ai créé un raccourci sur le
bureau.
J'ai ouvert les propriétés du raccourci, mais là je ne vois pas
comment
résoudre le problème.
D'autre part cette base sera empaquettée avec le runtime pour être
installée
dans un pc qui n'a pas d'access.
Alors comment créer ou modifier le raccourci pour que lorsqu'elle
sera
empaquetée l'ouverture se fasse par MSACCESS et que MSACCESS ouvre
la
base?
Merci pour l'éclaircissement, car je suis dans un brouillard
épais.
Marie-Claire


--
Marie-Claire



Bonjour.

si tu cliques sur la base mde directement, c'est exactement dans
ce
cas-là
que ta fonction ne s'exécute pas normalement. il faut lancer
access et
dans
access ouvrir ta base et dans ce cas-là ta fonction marchera.
par ailleurs, quand tu cliques directement sur ta base, tu dois
cliquer
sur
une icône placée sur le bureau ? si oui, c'est un raccourci qui
te
dirige
directement vers ta base.

--
@+
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


"Marie-Claire" a écrit
dans le
message de news:

Bonjour,
Je ne comprend rien à ces histoires de raccourci.
Peux-tu m'expliquer, s'il te plaît?
J'ouvre la base mde directement en cliquant dessus, tout comme
lorsque
j'ouvre la base mdb.

Où se trouve ce raccourci pour que je puisse le modifier?
Merci pour cet éclaircissement.
Marie-Claire
--
Marie-Claire



Bonjour.

ça peut provenir du fait qu'au lancement tu exécutes ta base
mde
alors
qu'il
faut exécuter msaccess suivi du nom de ta base mde (dans le
raccourci)

--
@+
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


"Marie-Claire" a écrit
dans
le
message de news:

Bonjour,
J'ai trouvé ce-ci, je ne me rappelle plus où et qui est très
pratique
pour
éviter d'avoir deux fois la base de données ouverte sur le
même
pc.
Mais après avoir créé un fichier mde ctte fonction ne marche
plus.

Function EstExécutée() As Integer
ExécuterCode.
Dim Bdd As Database
Set Bdd = CurrentDb()
If TestDDELink(Bdd.Name) Then
EstExécutée = -1
Else
EstExécutée = 0
End If
End Function

Function TestDDELink(ByVal strNomApplication$) As Integer
Dim varCanalDDE As Long ' Pour stocker le numéro du canal de
communication
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varCanalDDE = DDEInitiate("MSAccess", strNomApplication)
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varCanalDDE
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function

Est-ce que quelcun a déjà eu se problème et comment l'a-t-il
résolu?
J'ai mis dans exécuter Code EstExécutée().

Merci pour votre aide.
Marie-Claire
--
Marie-Claire
































1 2 3