code incomplet pour insertion image dans formulaire

Version imprimable

Bonjour, avec un formulaire de recherche, j'ouvre une fiche récapitulative. Toutes les données concernant ma recherche apparaissent bien, sauf au niveau des photos. Mes photos sont stockées dans un dossier sur DD. Sur mon formulaire n’apparaît que le chemin d'accès au dossier photos. Pour info suivant ma recherche je n'ai pas toujours le même nombre de photo, cela peut aller de 1 à 5 photos, voir plus. J'ai bien trouver un code, mais si j'ai qu'une photo et que mon formulaire à 3 zones d'image il bloque et ouvre la feuille de code sur la ligne de la photo manquante. Il me manque une ligne de code à ajouter après chaque sélection de photo pour dire "si pas de photo ne pas aller plus loin et ouvrir le formulaire, c'est normal". Voici le code que j'ai trouvé et installé dans "Evénement/sur activation":
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form_Current() Dim fName As String fName = Me![Ecusson1] Me![Image104].Picture = fName Me![Image104].Visible = True fName = Me![Ecusson2] Me![Image108].Picture = fName Me![Image108].Visible = True fName = Me![Ecusson3] Me![Image110].Picture = fName Me![Image110].Visible = True End Sub
Merci de prendre le temps de me répondre
et Bonnes Fêtes

Ps : je suis débutant, cela fait quelques semaines que construit ma base pour gérer une collections.

Bonjour Jeanaiasse,

Pour ce que tu veux faire, je renommerais les contrôles images comme suit : Image1, Image2 etc... jusqu'à 5. Ensuite le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Current()
On Error GoTo Gestion_err
'Boucle pour mettre à jour les contrôle images selon les contrôles Ecusson
    Dim i As Integer
    Dim fName As String
    For i = 1 To 5
    If Nz(Me("Ecusson" & i), "") = "" Then  'Vérification si il y un chemin d'inscrit dans le contrôle Ecusson
        Me("Image" & i).Visible = False   'Pas de chemin on met le contrôle image invisible
    Else
        fName = Me("Ecusson" & i)   'On met le chemin de l'image dans la variable
        Me("Image" & i).Picture = fName   'On affecte au contrôle image
        Me("Image" & i).Visible = True  'On met le contrôle image visible
    End if
    Next
Sortie:
    Exit Sub
 
Gestion_err:
    MsgBox Err.Description & Chr(13) & "Erreur # : " & Err.Number
    Resume Sortie
End Sub

Bonne journée

26/12/2019, 20h50
Jeanaiasse

Trés bonnes explications,Ca marchr

Bon et merci de cette réponse rapide.
je viens de tester le code, ça fonctionne. Malheureusement je ne comprends pas tout au code.
Je pensais que j'aurai besoin d'une expression par image à importer.
Si je comprends bien "i" est le nombre de zones d'image.
Demain je recommencerai, afin de mieux comprendre et si un problème apparaît que je n'arrive pas résoudre je vous solliciterai.
Je vais mettre ce poste en résolut.
Merci et bonne fin d'année