Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Imafes TIF Access 2003

Imafes TIF Access 2003

23 réponses
Avatar
Bruno Frisque
Bonjour le groupe.

Les images Tif s'affichent bien sous Access 2003/Win XP, mais seulement dans
une "Image".
C'est-à-dire pas moyen d'activer l'image via le viewer par défaut.
Pour ce faire il faut un OLE Bound Object avec le code suivant :

Private Sub Form_Current()
'Olebound7 : Création du lien
[OLEBound7].Class = "picture"
[OLEBound7].OLETypeAllowed = acOLELinked
[OLEBound7].SourceDoc = "C:\Data\L05d1.tif" ' Specify source file.
[OLEBound7].Action = acOLECreateLink ' Create linked object.
[OLEBound7].SizeMode = acOLESizeZoom ' ok full image si consultation
End Sub

En double cliquant, l'image s'ouvre. Cela marche parfaitement sous Access
2000 et 2002.
Mais 2003 donne message d'erreur :
"Erreur d'exécution 2753. un pb est survenu durant la communication entre
Access et le serveur OLE ou le contrôle activex"

Quelqu'un parmi vous aurait-il une idée ?
Ou pourrait tester (A2003) mon petit form possédant les 3 types d'affichage
des images ?
D'avance merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
3stone
Salut,

"Bruno Frisque"
| Les images Tif s'affichent bien sous Access 2003/Win XP, mais seulement dans
| une "Image".
| C'est-à-dire pas moyen d'activer l'image via le viewer par défaut.
| Pour ce faire il faut un OLE Bound Object avec le code suivant :
[...]


Dans Access, seul le control image est utilisable si l'on ne veut pas faire
exploser la base... surtout avec des milliers d'images.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Bruno Frisque
Heu ...
Le Bound control, contrôlé par code est parfait.
On Current on linke le nom du fichier du record se trouvant dans la table ..
c'est tout simple.

Et avec Kodak Imaging Pro (ou Global360 +/- 200$) ce bound control permet
d'afficher (et éventuellement travailler) l'image entièrement par simple
double click et sans code supplémentaire !
(Ce que IrfanView ne peut faire ?)

Merci en tout cas
à +





"3stone" wrote in message
news:uNTa$
Salut,

"Bruno Frisque"
| Les images Tif s'affichent bien sous Access 2003/Win XP, mais seulement
dans

| une "Image".
| C'est-à-dire pas moyen d'activer l'image via le viewer par défaut.
| Pour ce faire il faut un OLE Bound Object avec le code suivant :
[...]


Dans Access, seul le control image est utilisable si l'on ne veut pas
faire

exploser la base... surtout avec des milliers d'images.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
3stone
Salut,

"Bruno Frisque"
| Le Bound control, contrôlé par code est parfait.
| On Current on linke le nom du fichier du record se trouvant dans la table ..
| c'est tout simple.
|
| Et avec Kodak Imaging Pro (ou Global360 +/- 200$) ce bound control permet
| d'afficher (et éventuellement travailler) l'image entièrement par simple
| double click et sans code supplémentaire !
| (Ce que IrfanView ne peut faire ?)
|

Par double clic sur l'image, il est très facile de lancer n'importe quel soft
de traitement ou d'affichage de l'image "originale", le chemin d'accès étant
mémorisé dans la base...
Je peux même choisir, avec Ctrl ou Shift, le programme que je démarre.

Cela me fait 200$ d'épargné ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Bruno Frisque
Merci
Si c'est possible, alors ce serait super...(et effectivement 200 $ par
station ...)
Lancer une application (MS Editor ou autre viewer) par un click sur une
image ??

Comment faire ?? On DoubleClick : Application shell ?
Un exemple serait disponible ?

Grand merci



"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
| Le Bound control, contrôlé par code est parfait.
| On Current on linke le nom du fichier du record se trouvant dans la
table ..

| c'est tout simple.
|
| Et avec Kodak Imaging Pro (ou Global360 +/- 200$) ce bound control
permet

| d'afficher (et éventuellement travailler) l'image entièrement par simple
| double click et sans code supplémentaire !
| (Ce que IrfanView ne peut faire ?)
|

Par double clic sur l'image, il est très facile de lancer n'importe quel
soft

de traitement ou d'affichage de l'image "originale", le chemin d'accès
étant

mémorisé dans la base...
Je peux même choisir, avec Ctrl ou Shift, le programme que je démarre.

Cela me fait 200$ d'épargné ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
3stone
Salut,

"Bruno Frisque"
| Si c'est possible, alors ce serait super...(et effectivement 200 $ par
| station ...)
| Lancer une application (MS Editor ou autre viewer) par un click sur une
| image ??
|
| Comment faire ?? On DoubleClick : Application shell ?
| Un exemple serait disponible ?


La méthode habituelle de stockage des images dans un répertoire,
et le nom de l'image dans un champ de la table.
Le chemin d'accès à ce répertoire est avantageusement sauvé
dans une table des "paramètes" pour le cas ou le répertoire
image change de place... une seule modification du chemin suffira.

Ensuite, sur activation du formulaire :

Dim sChemin As String
sChemin = DLookup("CheminImage","tblParametres")

sChemin = sChemin & Me.NomImage.Value

If Dir(sChemin) <> "" Then
Me.CadreImage.Picture = sChemin
Else
Me.CadreImage.Picture = ""
End If


Voilà pour l'affichage. Pour le prog d'affichage ou de correction :

- Soit démarrer l'application par défaut selon ce qui existe sur le PC
http://www.mvps.org/accessfr/apis/api0023.htm

- Soit le désigner sois-même et alors sur double clic de l'image :
Shell ("F:Program FilesPhotoFiltrePhotoFiltre.exe " & sChemin)

Avec l'application par défaut, même principe en reconstituant la chaîne...

Ne pas oubier la gestion d'erreur ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Bruno Frisque
Tout grand merci !
Je m'en vais essayer tout çà.
Sur différents Access et sous runtime.
Encore merci


"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
| Si c'est possible, alors ce serait super...(et effectivement 200 $ par
| station ...)
| Lancer une application (MS Editor ou autre viewer) par un click sur une
| image ??
|
| Comment faire ?? On DoubleClick : Application shell ?
| Un exemple serait disponible ?


La méthode habituelle de stockage des images dans un répertoire,
et le nom de l'image dans un champ de la table.
Le chemin d'accès à ce répertoire est avantageusement sauvé
dans une table des "paramètes" pour le cas ou le répertoire
image change de place... une seule modification du chemin suffira.

Ensuite, sur activation du formulaire :

Dim sChemin As String
sChemin = DLookup("CheminImage","tblParametres")

sChemin = sChemin & Me.NomImage.Value

If Dir(sChemin) <> "" Then
Me.CadreImage.Picture = sChemin
Else
Me.CadreImage.Picture = ""
End If


Voilà pour l'affichage. Pour le prog d'affichage ou de correction :

- Soit démarrer l'application par défaut selon ce qui existe sur le PC
http://www.mvps.org/accessfr/apis/api0023.htm

- Soit le désigner sois-même et alors sur double clic de l'image :
Shell ("F:Program FilesPhotoFiltrePhotoFiltre.exe " & sChemin)

Avec l'application par défaut, même principe en reconstituant la chaîne...

Ne pas oubier la gestion d'erreur ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




Avatar
Bruno Frisque
Bonjour,

Il reste un tout petit problème de syntaxe.
- Soit le désigner sois-même et alors sur double clic de l'image :
Shell ("C:Program FilesImaging ProfessionalKodakimg.exe " &

"C:DataI73D50.TIF") '<< is ok !!
Kodak s'ouvre avec l'image de test, magnifique.

Avec l'application par défaut, même principe en reconstituant la chaîne...
Call fFindEXE("I73D50.TIF", "C:Data") 'Super !! donne chemin complet et

nom !!
Debug.Print "viewerPath: " & ViewerPath
'viewerPath: C:Program FilesImaging ProfessionalKodakimg.exe
Shell (ViewerPath & "C:DataI73D50.TIF") '< ouvre Kodak minimisé et sans le
fichier ??

C'est quoi qui ne va pas dans cette dernière ligne ??
C'est pourtant la même que la première ??

Grand merci!




"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
| Si c'est possible, alors ce serait super...(et effectivement 200 $ par
| station ...)
| Lancer une application (MS Editor ou autre viewer) par un click sur une
| image ??
|
| Comment faire ?? On DoubleClick : Application shell ?
| Un exemple serait disponible ?


La méthode habituelle de stockage des images dans un répertoire,
et le nom de l'image dans un champ de la table.
Le chemin d'accès à ce répertoire est avantageusement sauvé
dans une table des "paramètes" pour le cas ou le répertoire
image change de place... une seule modification du chemin suffira.

Ensuite, sur activation du formulaire :

Dim sChemin As String
sChemin = DLookup("CheminImage","tblParametres")

sChemin = sChemin & Me.NomImage.Value

If Dir(sChemin) <> "" Then
Me.CadreImage.Picture = sChemin
Else
Me.CadreImage.Picture = ""
End If


Voilà pour l'affichage. Pour le prog d'affichage ou de correction :

- Soit démarrer l'application par défaut selon ce qui existe sur le PC
http://www.mvps.org/accessfr/apis/api0023.htm

- Soit le désigner sois-même et alors sur double clic de l'image :
Shell ("F:Program FilesPhotoFiltrePhotoFiltre.exe " & sChemin)

Avec l'application par défaut, même principe en reconstituant la chaîne...

Ne pas oubier la gestion d'erreur ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




Avatar
3stone
Salut,

"Bruno Frisque"
| Il reste un tout petit problème de syntaxe.
| > - Soit le désigner sois-même et alors sur double clic de l'image :
| Shell ("C:Program FilesImaging ProfessionalKodakimg.exe " &
| "C:DataI73D50.TIF") '<< is ok !!
| Kodak s'ouvre avec l'image de test, magnifique.
|
| > Avec l'application par défaut, même principe en reconstituant la chaîne...
| Call fFindEXE("I73D50.TIF", "C:Data") 'Super !! donne chemin complet et
| nom !!
| Debug.Print "viewerPath: " & ViewerPath
| 'viewerPath: C:Program FilesImaging ProfessionalKodakimg.exe
| Shell (ViewerPath & "C:DataI73D50.TIF") '< ouvre Kodak minimisé et sans le
| fichier ??
|
| C'est quoi qui ne va pas dans cette dernière ligne ??


| C'est pourtant la même que la première ??

Non, car si tu concatène les deux, cela donne :

C:Program FilesImaging ProfessionalKodakimg.exeC:DataI73D50.TIF

il manque l'espace entre les deux...
ce que tu peux facilement vérifier en mode debug et pas à pas.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Bruno Frisque
Merci réponse si rapide 3stone !
J'avais pensé à cela :

Shell (ViewerPath & " C:DataI73D50.TIF")
Maintenant il y a l'espace ... et même résultat image vide ...-:((
C'est comment qu'on debug pas à pas ??

Grand merci



"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
| Il reste un tout petit problème de syntaxe.
| > - Soit le désigner sois-même et alors sur double clic de l'image :
| Shell ("C:Program FilesImaging ProfessionalKodakimg.exe " &
| "C:DataI73D50.TIF") '<< is ok !!
| Kodak s'ouvre avec l'image de test, magnifique.
|
| > Avec l'application par défaut, même principe en reconstituant la
chaîne...

| Call fFindEXE("I73D50.TIF", "C:Data") 'Super !! donne chemin complet
et

| nom !!
| Debug.Print "viewerPath: " & ViewerPath
| 'viewerPath: C:Program FilesImaging ProfessionalKodakimg.exe
| Shell (ViewerPath & "C:DataI73D50.TIF") '< ouvre Kodak minimisé et
sans le

| fichier ??
|
| C'est quoi qui ne va pas dans cette dernière ligne ??


| C'est pourtant la même que la première ??

Non, car si tu concatène les deux, cela donne :

C:Program FilesImaging ProfessionalKodakimg.exeC:DataI73D50.TIF

il manque l'espace entre les deux...
ce que tu peux facilement vérifier en mode debug et pas à pas.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




Avatar
Bruno Frisque
Bonjour,
C'est assez incompréhensible :
Shell (ViewerPath & " C:DataI73D50.TIF")
Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF"
et le résultat est : Shell : C:Program FilesImaging
ProfessionalKodakimg.exe
Càd pas de nom de fichier, même au debug !??

Mais quelle pourrait être la raison ?

Encore merci
à +



"3stone" wrote in message
news:
Salut,

"Bruno Frisque"
| Il reste un tout petit problème de syntaxe.
| > - Soit le désigner sois-même et alors sur double clic de l'image :
| Shell ("C:Program FilesImaging ProfessionalKodakimg.exe " &
| "C:DataI73D50.TIF") '<< is ok !!
| Kodak s'ouvre avec l'image de test, magnifique.
|
| > Avec l'application par défaut, même principe en reconstituant la
chaîne...

| Call fFindEXE("I73D50.TIF", "C:Data") 'Super !! donne chemin complet
et

| nom !!
| Debug.Print "viewerPath: " & ViewerPath
| 'viewerPath: C:Program FilesImaging ProfessionalKodakimg.exe
| Shell (ViewerPath & "C:DataI73D50.TIF") '< ouvre Kodak minimisé et
sans le

| fichier ??
|
| C'est quoi qui ne va pas dans cette dernière ligne ??


| C'est pourtant la même que la première ??

Non, car si tu concatène les deux, cela donne :

C:Program FilesImaging ProfessionalKodakimg.exeC:DataI73D50.TIF

il manque l'espace entre les deux...
ce que tu peux facilement vérifier en mode debug et pas à pas.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




1 2 3