photo sur formulaire ++

**rose0729** · 30/03/2015, 17h06

Bonjour à tous

J'ai mis sur un formulaire des images. Tout va bien...mais

j'ai 2 chemin d'accès qui s'affichent bien individuellement (ces chemins sont fixes)

je voudrais dire : "si je ne trouve pas la photo sur ce chemin, va la chercher sur l'autre chemin d'accès"

mais je ni arrive pas

Quelqu'un à une idée

Merci

**Gado2600** · 30/03/2015, 17h23

Bonjour,

Il existe une super fonction en VBA qui est :

Code :

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

dir(chemin, option)

Option étant facultative (mais très utile selon les cas), si cette fonction te retourne "", alors c'est qu'il n'a rien trouvé (F1 pour plus de détails).

Cordialement,

**rose0729** · 30/03/2015, 21h26

merci à toi Gado2600

je teste dès de main matin

je te tiens au courant

**rose0729** · 31/03/2015, 09h36

dir : c'est pour trouver un chemin d'accès

mais je les ai déjà et ils sont fixe

Code :

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

1
2
3
4
5
6
7
8
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
  '1er chemin d'accès, si trouve pas image
    Me.imgPhoto.Picture = "\\srvcom2\Photo3BCOM\Image\" & Me.Image408 & "\" & Me.couleur & ".jpg" 
   'cherche dans ce 2eme chemin d'accès
    Me.imgPhoto.Picture = "\\SRVCOM2\Photo3BCOM\Image\" & Me.codeProduit & ".jpg"
End If

il faudrait que je mette un autre [Else] mais ça va pas

Comment je pourrais faire ?

Merci pour une idée

**Gado2600** · 31/03/2015, 12h34

Bonjour,

Le problème que tu rencontres est, si j'ai bien compris, d'insérer la seconde image si la première n'existe pas, non ?

Dans ce cas, tu as une condition, comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
if dir(cheminImage1)<>"" then
'Code insertion Image 1
else
if dir(cheminImage2)<>"" then
' Code insertion Image 2
else
' Pas d'image
end if
end if

Le dir() renvoi "" si le chemin n'existe pas.

Cordialement,

**rose0729** · 31/03/2015, 14h43

oui, si l'image n'est pas sur le chemin d'accés 1 voir si elle est sur le chemin d'accés 2

j'ai fait ce que tu m'as dit :

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
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
'chemin d'accés 1
If Dir("\\srvcom2\Photo3BCOM\Image\" & Me.Image408 & "\" & Me.couleur & ".jpg") <> "" Then
Me.imgPhoto.Picture = "\\srvcom2\Photo3BCOM\Image\" & Me.Image408 & "\" & Me.couleur & ".jpg"
Else
 
If Len(Me.Photo) > 0 Then
Me.imgPhoto.Picture = Me.Photo
    Else
'chemin d'accés 2
If Dir(Me.imgPhoto.Picture = "\\SRVCOM2\Photo3BCOM\Image\" & Me.codeProduit & ".jpg") <> "" Then
    Me.imgPhoto.Picture = "\\SRVCOM2\Photo3BCOM\Image\" & Me.codeProduit & ".jpg"
End If
End If
End If
End If

je n'ai toujours que le 1er qui j'affiche ! bouuuuuuuuuuu que c'est compliqué !

j'essaye dans tous les sens depuis ce matin

**Gado2600** · 01/04/2015, 08h40

Bonjour,

si l'image n'est pas sur le chemin d'accés 1 voir si elle est sur le chemin d'accés 2

je n'ai toujours que le 1er qui j'affiche !

Où est donc le problème ? Si le chemin 1 existe et qu'il t'affiche la photo du chemin 1, c'est que c'est bon, non ? Ou alors il faut mieux définir ton problème car il y aurait un truc que tu n'as pas mentionné...

Cordialement,

**rose0729** · 01/04/2015, 12h33

Bonjour,

et merci a toi de m'aider

Oui, je me suis mal exprimée

Quand elle trouve la photo sur le chemin 1 ok elle l'affiche

mais quand elle ne la trouve pas elle ne va pas chercher dans le chemin 2

**Gado2600** · 01/04/2015, 12h39

Hello !

mais quand elle ne la trouve pas elle ne va pas chercher dans le chemin 2

"si je ne trouve pas la photo sur ce chemin, va la chercher sur l'autre chemin d'accès"

C'est un peu contradictoire par rapport au début...
Enfin bon, dans tous les cas, Dir(chemin) résoudra ton problème, à mon avis. Il te faut juste prendre en compte que :

Dir(Chemin) <> "" : le chemin existe
Dir(Chemin) = " : le chemin n'existe pas

Les options dedans permettent d'affiner ta recherche, exemple pour vérifier l'existence d'un dossier :

Code :

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

Dir(Chemin, vbDirectory)

Une fois que tu auras assimilé la façon d'utiliser Dir(), tu auras résolu ton problème.

Cordialement,

**ClaudeLELOUP** · 01/04/2015, 15h19

Bonjour,

Quand une image est absente, Access va lever une erreur 2220.

Tu peux exploiter cette levée d’erreur pour aiguiller vers le bon répertoire.

Dans l’exemple joint, on cherche d’abord dans le sous-dossier « Repertoire1 » et si on ne trouve pas, on cherche dans le sous-dossier Repertoire2.

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
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  On Error GoTo GestionErreurs
  Me.Photo.Picture = CurrentProject.Path & "\Repertoire1\" & Me.txtAuteurPk & ".jpg"
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 2220 'pas de photo dans Repertoire1
      Me.Photo.Picture = CurrentProject.Path & "\Repertoire2\" & Me.txtAuteurPk & ".gif"
    Case Else
      MsgBox "Erreur N° " & Err.Number & " " & Err.Description
  End Select
End Sub

**rose0729** · 01/04/2015, 17h17

Donc, j'ai fait comme tu m'as dit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  On Error GoTo GestionErreurs
  'je cherche dans chemin1
  Me.imgPhoto.Picture = "\\srvcom2\Photo3BCOM\Image\" & Me.Image408 & "\" & Me.couleur & ".jpg"
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 2220 'pas de photo dans chemin1
  'je cherche dans chemin2
     Me.imgPhoto.Picture = "\\SRVCOM2\Photo3BCOM\Image\" & Me.codeProduit & ".jpg"
    Case Else
         'MsgBox "Erreur N° " & Err.Number & " " & Err.Description
    End Select

Donc, maintenant je vois le chemin 1 si l'image y est et si elle ni est pas je vois le chemin 2

mais...

Si la photo n'existe pas encore...... j'ai une erreur !!

**ClaudeLELOUP** · 01/04/2015, 18h33

Jamais contente ?

Alors, par exemple comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  If Dir(CurrentProject.Path & "\Repertoire1\" & Me.txtAuteurPk & ".jpg") = Me.txtAuteurPk & ".jpg" Then
      Me.Photo.Picture = CurrentProject.Path & "\Repertoire1\" & Me.txtAuteurPk & ".jpg"
    ElseIf Dir(CurrentProject.Path & "\Repertoire2\" & Me.txtAuteurPk & ".gif") = Me.txtAuteurPk & ".gif" Then
      Me.Photo.Picture = CurrentProject.Path & "\Repertoire2\" & Me.txtAuteurPk & ".gif"
    Else
      Me.Photo.Picture = CurrentProject.Path & "\Repertoire1\Default.bmp"
  End If
End Sub

**rose0729** · 02/04/2015, 12h37

Oh si je sais être contente

Si tu me voyais en ce moment !

C'est génial... de belles images sans erreur

Merci d'être là pour nous aider

Merci à toi aussi Gado2600

photo sur formulaire ++

IHM

Discussions similaires

Partager

Partager