J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le
répertoire de la base courante affin de lancer l'app2 qui doit être dans le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend
répertoires réseau ( problème d'accès pour différend user) mais toujours les
2 dans le même. Dans l'exemple ci dessous c'est ok
Exemple :
U:\access\test tools\prio.mde = app1
U:\access\test tools\test.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui
comporte un trait d'union, le code me retourne des erreurs que "access
comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base
"U:\access\test.mdb", s'il n'y a pas de trait d'union ou s'il y a des
espaces c'est ok. Il n'est pas possible de modifier les répertoires (disque
réseau)
Exemple
U:\access\test-tools\prio.mde = app1
U:\access\test-tools\test.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String
'Retourne le nom du repertoire de la base de donnée en cours
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
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
Maxence HUBICHE
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" a écrit dans le message de news:
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le répertoire de la base courante affin de lancer l'app2 qui doit être dans le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend répertoires réseau ( problème d'accès pour différend user) mais toujours les
2 dans le même. Dans l'exemple ci dessous c'est ok Exemple : U:accesstest toolsprio.mde = app1 U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui comporte un trait d'union, le code me retourne des erreurs que "access comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base "U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des espaces c'est ok. Il n'est pas possible de modifier les répertoires (disque
réseau) Exemple U:accesstest-toolsprio.mde = app1 U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String 'Retourne le nom du repertoire de la base de donnée en cours Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile)) End Function
Merci pour vos réponses
Marcel
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" <marcel-k@bluewin.ch> a écrit dans le message de news:
OIFkA4F9DHA.1948@TK2MSFTNGP12.phx.gbl...
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer
une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le
répertoire de la base courante affin de lancer l'app2 qui doit être dans
le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend
répertoires réseau ( problème d'accès pour différend user) mais toujours
les
2 dans le même. Dans l'exemple ci dessous c'est ok
Exemple :
U:accesstest toolsprio.mde = app1
U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui
comporte un trait d'union, le code me retourne des erreurs que "access
comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base
"U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des
espaces c'est ok. Il n'est pas possible de modifier les répertoires
(disque
réseau)
Exemple
U:accesstest-toolsprio.mde = app1
U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String
'Retourne le nom du repertoire de la base de donnée en cours
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" a écrit dans le message de news:
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le répertoire de la base courante affin de lancer l'app2 qui doit être dans le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend répertoires réseau ( problème d'accès pour différend user) mais toujours les
2 dans le même. Dans l'exemple ci dessous c'est ok Exemple : U:accesstest toolsprio.mde = app1 U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui comporte un trait d'union, le code me retourne des erreurs que "access comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base "U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des espaces c'est ok. Il n'est pas possible de modifier les répertoires (disque
réseau) Exemple U:accesstest-toolsprio.mde = app1 U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String 'Retourne le nom du repertoire de la base de donnée en cours Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile)) End Function
Merci pour vos réponses
Marcel
Marcel
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits y compris sur le bouton qui reprend la fonction mais sans succès. Marcel
"Maxence HUBICHE" a écrit dans le message de news:
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" a écrit dans le message de news:
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le répertoire de la base courante affin de lancer l'app2 qui doit être dans le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend répertoires réseau ( problème d'accès pour différend user) mais toujours les
2 dans le même. Dans l'exemple ci dessous c'est ok Exemple : U:accesstest toolsprio.mde = app1 U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui comporte un trait d'union, le code me retourne des erreurs que "access comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base
"U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des espaces c'est ok. Il n'est pas possible de modifier les répertoires (disque
réseau) Exemple U:accesstest-toolsprio.mde = app1 U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String 'Retourne le nom du repertoire de la base de donnée en cours Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile)) End Function
Merci pour vos réponses
Marcel
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits y
compris sur le bouton qui reprend la fonction mais sans succès.
Marcel
"Maxence HUBICHE" <mh.webmaster@club-internet.fr> a écrit dans le message de
news: uqYdaHG9DHA.2392@TK2MSFTNGP11.phx.gbl...
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" <marcel-k@bluewin.ch> a écrit dans le message de news:
OIFkA4F9DHA.1948@TK2MSFTNGP12.phx.gbl...
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer
une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le
répertoire de la base courante affin de lancer l'app2 qui doit être dans
le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend
répertoires réseau ( problème d'accès pour différend user) mais toujours
les
2 dans le même. Dans l'exemple ci dessous c'est ok
Exemple :
U:accesstest toolsprio.mde = app1
U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui
comporte un trait d'union, le code me retourne des erreurs que "access
comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la
base
"U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des
espaces c'est ok. Il n'est pas possible de modifier les répertoires
(disque
réseau)
Exemple
U:accesstest-toolsprio.mde = app1
U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String
'Retourne le nom du repertoire de la base de donnée en cours
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits y compris sur le bouton qui reprend la fonction mais sans succès. Marcel
"Maxence HUBICHE" a écrit dans le message de news:
ajoute des " de part et d'autre de ton CurrentDBDir.
"Marcel" a écrit dans le message de news:
Bonjour
Je suis sur A97
J'ai une app1 access et sur celle-ci j'ai rajouter un bouton pour lancer une
autre app2 access. Dans l'app1 j'ai un bout de code pour trouver le répertoire de la base courante affin de lancer l'app2 qui doit être dans le
même répertoire que l'app1. Ces 2 app sont enregistrées sur différend répertoires réseau ( problème d'accès pour différend user) mais toujours les
2 dans le même. Dans l'exemple ci dessous c'est ok Exemple : U:accesstest toolsprio.mde = app1 U:accesstest toolstest.mde = app2
le problème est lorsque le lancement se fait depuis un répertoire qui comporte un trait d'union, le code me retourne des erreurs que "access comporte une option qu'il ne reconnaît pas" et qu'il ne trouve pas la base
"U:accesstest.mdb", s'il n'y a pas de trait d'union ou s'il y a des espaces c'est ok. Il n'est pas possible de modifier les répertoires (disque
réseau) Exemple U:accesstest-toolsprio.mde = app1 U:accesstest-toolstest.mde = app2
Voila la fonction qui me retourne le répertoire courant
Function CurrentDBDir() As String 'Retourne le nom du repertoire de la base de donnée en cours Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile)) End Function
Merci pour vos réponses
Marcel
Raymond [mvp]
Bonjour.
Quelle est la fonction qui lance la base ? tout dépend si c'est par shell ou automation ou une api . si c'est par shell, il faut indiquer des guillemets
shell """" & CurrentDBDir & "mabase2.mdb" & """"
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcel" a écrit dans le message de news:
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits y
compris sur le bouton qui reprend la fonction mais sans succès. Marcel
Bonjour.
Quelle est la fonction qui lance la base ? tout dépend si c'est par shell ou
automation ou une api .
si c'est par shell, il faut indiquer des guillemets
shell """" & CurrentDBDir & "mabase2.mdb" & """"
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcel" <marcel-k@bluewin.ch> a écrit dans le message de
news:u29VIlG9DHA.4060@tk2msftngp13.phx.gbl...
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits
y
compris sur le bouton qui reprend la fonction mais sans succès.
Marcel
Quelle est la fonction qui lance la base ? tout dépend si c'est par shell ou automation ou une api . si c'est par shell, il faut indiquer des guillemets
shell """" & CurrentDBDir & "mabase2.mdb" & """"
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcel" a écrit dans le message de news:
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits y
compris sur le bouton qui reprend la fonction mais sans succès. Marcel
Marcel
Bonjour Raymond
Merci pour ton aide. En plein dans le mile, j'utilise la fonction shell et maintenant ça marche.
Encore Merci
Marcel
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.
Quelle est la fonction qui lance la base ? tout dépend si c'est par shell ou
automation ou une api . si c'est par shell, il faut indiquer des guillemets
shell """" & CurrentDBDir & "mabase2.mdb" & """"
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcel" a écrit dans le message de news:
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs endroits
y
compris sur le bouton qui reprend la fonction mais sans succès. Marcel
Bonjour Raymond
Merci pour ton aide. En plein dans le mile, j'utilise la fonction shell et
maintenant ça marche.
Encore Merci
Marcel
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news: uJ6XQuH9DHA.2760@TK2MSFTNGP09.phx.gbl...
Bonjour.
Quelle est la fonction qui lance la base ? tout dépend si c'est par shell
ou
automation ou une api .
si c'est par shell, il faut indiquer des guillemets
shell """" & CurrentDBDir & "mabase2.mdb" & """"
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marcel" <marcel-k@bluewin.ch> a écrit dans le message de
news:u29VIlG9DHA.4060@tk2msftngp13.phx.gbl...
Merci mais je ne sais pas ou les mettre. J'ai essayé à plusieurs
endroits
y
compris sur le bouton qui reprend la fonction mais sans succès.
Marcel
