Bonjour les caïds,
j'ai une base, faite sous access 2002, mais utilisée sous access 2000, et
malgrés la vonversion 2002 vers 2000, elle n'aprécie pas cette procédure qui
doit m'ouvrir une image, (et qui marche trés bien sous 2002)
Private Sub voir_IMAGE_Click()
Dim IMAGE As String, stappname As String
On Error GoTo erreur
If Me![IMAGE] = False Then GoTo erreur
IMAGE = "D:\MICROHEBDO\" & Me![N°] & ".jpg" 'Chemin d'acces a la photo
stappname = "d:\microhebdo\ACDSee.exe " & IMAGE ' chemin d'acces et nom
du programme ouvrant la photo
Call Shell(stappname, 1)
sortie:
Exit Sub
erreur:
MsgBox " PAS D'IMAGE !"
Resume sortie
End Sub
Quelqu'un peut -il ce qu'il faut modifier ??
Dès la 1er ligne, j'ai le message que la connection est perdue.
merci
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
Raymond [mvp]
Bonjour.
je ne vois pas pourquoi tu n'utilises pas une base 2000 de partout ? aussi bien en 2000 que 2002 que 2003, et tout se passe bien .
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"le méruvien" a écrit dans le message de news:413f0415$0$29074$
Bonjour les caïds, j'ai une base, faite sous access 2002, mais utilisée sous access 2000, et malgrés la vonversion 2002 vers 2000, elle n'aprécie pas cette procédure qui
doit m'ouvrir une image, (et qui marche trés bien sous 2002)
Private Sub voir_IMAGE_Click() Dim IMAGE As String, stappname As String On Error GoTo erreur If Me![IMAGE] = False Then GoTo erreur IMAGE = "D:MICROHEBDO" & Me![N°] & ".jpg" 'Chemin d'acces a la photo stappname = "d:microhebdoACDSee.exe " & IMAGE ' chemin d'acces et nom
du programme ouvrant la photo Call Shell(stappname, 1) sortie: Exit Sub erreur: MsgBox " PAS D'IMAGE !" Resume sortie End Sub Quelqu'un peut -il ce qu'il faut modifier ?? Dès la 1er ligne, j'ai le message que la connection est perdue. merci
Bonjour.
je ne vois pas pourquoi tu n'utilises pas une base 2000 de partout ? aussi
bien en 2000 que 2002 que 2003, et tout se passe bien .
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"le méruvien" <Rvdb.roger@free.fr> a écrit dans le message de
news:413f0415$0$29074$626a14ce@news.free.fr...
Bonjour les caïds,
j'ai une base, faite sous access 2002, mais utilisée sous access 2000, et
malgrés la vonversion 2002 vers 2000, elle n'aprécie pas cette procédure
qui
doit m'ouvrir une image, (et qui marche trés bien sous 2002)
Private Sub voir_IMAGE_Click()
Dim IMAGE As String, stappname As String
On Error GoTo erreur
If Me![IMAGE] = False Then GoTo erreur
IMAGE = "D:MICROHEBDO" & Me![N°] & ".jpg" 'Chemin d'acces a la photo
stappname = "d:microhebdoACDSee.exe " & IMAGE ' chemin d'acces et
nom
du programme ouvrant la photo
Call Shell(stappname, 1)
sortie:
Exit Sub
erreur:
MsgBox " PAS D'IMAGE !"
Resume sortie
End Sub
Quelqu'un peut -il ce qu'il faut modifier ??
Dès la 1er ligne, j'ai le message que la connection est perdue.
merci
je ne vois pas pourquoi tu n'utilises pas une base 2000 de partout ? aussi bien en 2000 que 2002 que 2003, et tout se passe bien .
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"le méruvien" a écrit dans le message de news:413f0415$0$29074$
Bonjour les caïds, j'ai une base, faite sous access 2002, mais utilisée sous access 2000, et malgrés la vonversion 2002 vers 2000, elle n'aprécie pas cette procédure qui
doit m'ouvrir une image, (et qui marche trés bien sous 2002)
Private Sub voir_IMAGE_Click() Dim IMAGE As String, stappname As String On Error GoTo erreur If Me![IMAGE] = False Then GoTo erreur IMAGE = "D:MICROHEBDO" & Me![N°] & ".jpg" 'Chemin d'acces a la photo stappname = "d:microhebdoACDSee.exe " & IMAGE ' chemin d'acces et nom
du programme ouvrant la photo Call Shell(stappname, 1) sortie: Exit Sub erreur: MsgBox " PAS D'IMAGE !" Resume sortie End Sub Quelqu'un peut -il ce qu'il faut modifier ?? Dès la 1er ligne, j'ai le message que la connection est perdue. merci
