IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

code incomplet pour insertion image dans formulaire [AC-2013]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2019
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Tarn et Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2019
    Messages : 58
    Par défaut code incomplet pour insertion image dans formulaire
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  2. #2
    Membre Expert
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Octobre 2012
    Messages
    1 887
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Service public

    Informations forums :
    Inscription : Octobre 2012
    Messages : 1 887
    Par défaut
    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 : 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
    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

  3. #3
    Membre confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2019
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Tarn et Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2019
    Messages : 58
    Par défaut 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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2013] Quel code vba pour inserer image dans userform
    Par david.guedes dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 09/06/2015, 09h11
  2. Réponses: 5
    Dernier message: 23/10/2013, 19h53
  3. Réponses: 4
    Dernier message: 24/09/2008, 17h13
  4. Chemin relatif pour des images dans formulaire
    Par Marcopololo dans le forum IHM
    Réponses: 3
    Dernier message: 23/07/2008, 04h50
  5. Code pour supprimer caractere dans formulaire
    Par WITER dans le forum IHM
    Réponses: 17
    Dernier message: 26/01/2007, 16h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo