Chemin relatif image

[debian54]

Bonjour à tous,

Il est possible que la question ai été déjà posée, si tel est le cas prière de m'aiguiller vers le post, sinon :

Je travaille sur une basse Access (depuis février 2011). A l'ouverture du form de démarrage j'affiche la même image dans un control onglet, donc

Sur form_open je précise :

Code :

1
2
3
    Img_menu0.Picture = CurrentProject.Path & "\images\menu_fond.jpg"
    Img_menu1.Picture = CurrentProject.Path & "\images\menu_fond.jpg"
    Img_menu2.Picture = CurrentProject.Path & "\images\menu_fond.jpg"

Pour ces images, la propriété (PictureType) est Attaché. Le souci est lorsque je crée un mde, au lancement de l'application sur un autre poste informatique, le programme me précise qu'il ne trouve pas l'image menu_fond.jpg

Je tiens à préciser que l'image est bien présente dans le dossier ;-) A croire qu'à l'ouverture du form le CurrentProject.Path n'est pas actualisé.

Une idée, en vous remerciant par avance, Merci.

[loufab]

Bonjour,

Les images peuvent changer ?

Cordialement,

[debian54]

C'est à dire ?
Je ne comprends pas la question ?

[loufab]

Tu redefini systèmatiquement les images lors du démarrage cela veut-il dire que les images peuvent être différentes d'un démarrage à l'autre ?

[debian54]

Je reprends mon explication, mon form de démarrage est un form avec plusieurs onglets, chaque onglet dispose d'un control image (image de fond) identique et qui ne change pas. J'ai opté pour cette méthode afin de ne pas trop surcharger la base en occupation disque

[loufab]

Si les images sont statiques autant les intégrer dans le fichier ce n'est pas la place disque qui manque...

Je ne vois pas ce qui peut empêcher le fonctionnement. As-tu mis des traces dans ton code ?

[Vhalar]

Une petite idée: est-ce que lorsque tu testes sur un autre poste, tu changes de login? Si oui, peut être qu'il faudrait vérifier que la personne possède les droits au niveau du réseau.

[debian54]

Je pense avoir un début de réponse:

Je bosse sur mon mdb sur deux postes différents :
Le 1er : poste linux Debian (GNU/Linux), j'utilise Virtualbox pour émuler Windows, le 2ème : poste classique : windows (seven 64 bits)

Je copie ma base d'un poste à l'autre via une clé usb. Il semblerait que lors du lancement de ma base sur le poste nouvellement installé, access conserve en dur le chemin relatif des images de l'ancien poste !!! alors que que je le gère dynamiquement via Vba à l'ouverture du form.

J'ai donc rajouté à la fermeture du form pour toutes les images :

Code :

1
2
 
Img_menu0.Picture = CurrentProject.Path & " "

A voir, mais là je ne comprends pas tout...

[loufab]

En intégrant les images tu n'auras plus de problème. Même s'il ne s'agit pas là d'une explication au problème.

As-tu vérifier la valeur renvoyée par la propriété Path ?

[debian54]

Ma propriété path est correcte car je l'utilise aussi pour définir l'icône de l'application, et là pas de problème. Donc pour le moment, j'ai intégré les images au projet. Résultat, ma base a doublé de volume, pas très propre comme solution.

[loufab]

Tout dépend quel format tu utilises pour tes images et ce que tu as choisi dans Options/base de données active/option d'application/format de stockage des propriété image.

Ce n'est peut-être pas très propre mais ça a le mérite de fonctionner même dans cas extrême comme le tien.

[Dolphy35]

Salut,

Je gère également mes images par chemin et je n'ai aucun aussi lors de la création d'un ACCDE.

Par contre je fais différemment car je dois gérer deux types de logo car le produit peux être vendu par la société (logo 1) ou une autre (sous traitance-Logo2). Donc en fonction de l'affaire je joue sur les logos.

Pour cela je me suis créer une fonction chmLogo que j'appel dans la propriété Source contrôle = chmLogo(1) L'image à pour type Intégré ceci permet de faire une copie au lieu de lié la source (Gestion Access)

Voici un code exemple de la fonction

Code :

1
2
3
4
5
6
7
8
9
10
Function chmLogo(intSociete As Integer) As String
 
    Select Case intSociete
        Case 1
            chmLogo = CurrentProject.Path & "\Images\Logo1.png"
        Case 2
            chmLogo = CurrentProject.Path & "\Images\Logo2.png"
    End Select
 
End Function

Aucun soucis de fonctionnement. Le seul point négatif est que le form ne s'ouvre pas avec l'image de suite elle se rafraichit une peu après.
Essaye voir

Dolphy