Discussion :

[Adel31]

Bonjour à tous,

avant le fractionnement, tout va bien, les formulaires s'ouvrent correctement(images, PJ), mais après le fractionnement de ma BDD, j'ai mis la dorsal + dossiers (images, fichiers (PDF,doc) ) dans le réseau principal,
et la frontal chez l'utilisateur.
si je retire les images, ça marche très bien, mais dés que j'ajoute une image, ça bloque au niveau formulaire dans la frontal.

je pense que le problème viens d'ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function ImageMouseMove(i)
'Affichage des caractéristiques du pictogramme lorsque le curseur de la souris passe dessus :
'Verification que la description n'est pas déjà visible :
If Forms![Formulaire102FicheMachine]![Controle0305Pictogrammes].Controls("Texte" & CStr(i)).Visible = False Then
    Forms![Formulaire102FicheMachine]![Controle0305Pictogrammes].Controls("Texte" & CStr(i)).Visible = True
End If

End Function

Public Function DetailMouseMove()

If Forms![Formulaire102FicheMachine]![Controle0312TexteCache4].Value <> 0 Then
Dim i As Integer
For i = 0 To Forms![Formulaire102FicheMachine]![Controle0312TexteCache4].Value - 1
If Forms![Formulaire102FicheMachine]![Controle0305Pictogrammes].Controls("Texte" & CStr(i)).Visible = True Then
    Forms![Formulaire102FicheMachine]![Controle0305Pictogrammes].Controls("Texte" & CStr(i)).Visible = False
End If
Next i
End If
End Function

[Adel31]

après une recherche, j'ai trouvé que le problème viens du chemin indiquer pour chercher l'image ou le fichier en général.
ma question est : comment changer ou ajouter dans le code pour identifier le nouveau chemin, car j'ai mis le fichier des images Pictogrammes dans le réseau avec la BDD dorsal?
j'ai fait un test, j'ai mis le fichier avec la frontal, ça marche très bien.
ça bug ici : ctrl.Picture = CurrentProject.Path & r.Fields(0).Value
merci d'avance.

[madefemere]

Bonjour,

A priori, tu as trouvé le problème==> solution : Il faudrait simplement remplacer le chemin du frontal "CurrentProject.Path" par le chemin du dorsal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ctrl.Picture = "CheminDuDorsal" & r.Fields(0).Value

Cordialement,

[Adel31]

merci madefemere pour ta réponse, je suis débutant sur VBA , moi chemin dorsal c'est : S:\Z_Archive Fichiers et Dossiers\Base principal\Projet IRCDEV10_be.accdb, j'ajoute cette ligne au code?
merci.

[madefemere]

Bonsoir,

Tu remplaces ce que j'ai mis "CheminDuDorsal" dans le code que j'ai mis par le chemin complet de ton dorsal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ctrl.Picture = "S:\Z_Archive Fichiers et Dossiers\Base principal\" & r.Fields(0).Value

Cordialement,

NOTE : Utilises la balise code quand tu insères des codes pour que la lecture soit plus facile==> Tu sélectionnes le code et tu appuies sur # dans les boutons en haut.

[Adel31]

merci beaucoup madefemere, le problème est résolu.
cordialement
Adel