Sujet Précédent Sujet Suivant

Comment insérer une image se trouvant en dehors d'une base

Fermé
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 - 17 juin 2015 à 00:54
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 - 24 juin 2015 à 14:10
salut a tous
je voudrais une aide sur un petit projet sur lequel je m'exerce depuis un certain temps. je désire ajouter une photo à chaque enregistrement de ma base, j'ai crée un dossier dans lequel j'ai mis la base de donnée en question puis dans le même dossier j'ai crée un dossier photos dans le quel se trouve les images en question,
le problème c'est que dans mon formulaire, lorsque je Click sur ajouter la boite de dialogue s'ouvre, je choisi une photo puis je valide mais rien s'affiche dans le cadre.
je ne sais pas si c'est le code qui n'est pas bon.
voici le fichier en question au cas ou quelqu'un pourra m'aider à trouver une solution :https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://drive.google.com/open?id%3D0B3RXANIQ4SgEdlFtVjFvV2lsbDg%26authuser%3D0&followup=https://drive.google.com/open?id%3D0B3RXANIQ4SgEdlFtVjFvV2lsbDg%26authuser%3D0
A voir également:

6 réponses

Réponse 1 / 6
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
17 juin 2015 à 06:46
bonjour,
voila sur cijoint un exemple!
tu ouvre "liste des chats", tu selectionne un chat, et tu clic sur "fiche"
Bien sur, attention que le numéro coresponde a celui de ta photo, et ne change pas le dossier photo de place, ou alors pense à modifier le chemin!
roger

https://www.cjoint.com/c/EFreRY1Yvcd
0
Réponse 2 / 6
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 1
Modifié par Peguewende le 17/06/2015 à 18:07
je repose mon probleme.
j'ai une base dans laquelle je souhaite attribuer une image a chacun de mes usagers.
la table: T_user(Id,NomClient,Photo)
le Formulaire : F_user(NomClient,Photo) , un cadre image (ImgApercu) qui reçoi l'image et deux boutons: btnAjout et btnEffacer,
voici le code: 
Private Sub btnAjout_Click()
    Dim dialogueFichier As Object
    Dim mon As String
    
    Set dialogueFichier = Application.FileDialog(3)
    dialogueFichier.AllowMultiSelect = False
    dialogueFichier.Filters.Add "Images", "*. jpeg;*.jpg,1"
    dialogueFichier.InitialFileName = CurrentProject.Path & "\Photos"
    dialogueFichier.show
    
End Sub

Private Sub Form_Current()
    Photo_AfterUpdate
End Sub

Private Sub Photo_AfterUpdate()
    Dim CheminCompletFichier As String
    On Error Resume Next
    If IsNull(Me!Photo) Or Me!Photo = "" Then
    Me!ImgApercu.Picture = ""
    Else
    CheminCompletFichier = CurrentProject.Path & "\Photos\" & Me.Photo
    Me.Photo = CheminCompletFichier
    End If
    Me!ImgApercu.Picture = IIf(CheminCompletFichier = "", "", CheminCompletFichier)
    
End Sub


lorsque je clic sur le bouton Ajouter la boite de dialogue s'ouvre je choisi l'image souhaité, je valide mais rien ne s'affiche dans le cadre et rien n'est stocké dans le champ photo de la table T_user.
je ne sais pas ou se trouve le probleme, si toute fois fois vous pouvez m'aider.
le lien du fichier: https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://drive.google.com/open?id%3D0B3RXANIQ4SgEdlFtVjFvV2lsbDg%26authuser%3D0&followup=https://drive.google.com/open?id%3D0B3RXANIQ4SgEdlFtVjFvV2lsbDg%26authuser%3D0
0
Réponse 3 / 6
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
18 juin 2015 à 06:21
bonjour,
Je ne peut pas ouvrir ton fichier, car je ne connais pas google drive, et en plus je supose qu'il est en access 2010 ou 13, alors que moi je n'ais que 2003!
fait donc un essai avec la base que je t'ai joint hier!
Quand tu sélectionne une photo, il faut bien sur que le nom soit reporté dans la table!
Roger
0
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 1
18 juin 2015 à 15:47
le fichier que vous m'avez envoyé hier est incomplet, je que la base access.
pas de dossier ni de photo
0
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
18 juin 2015 à 16:58
Force un peuttt!! fait travailler tes neurrones!!
La base que je t'ai envoyé est un MODELE, c'est a toi d'étudier comment fonctionne les tables, et de:
- fait un dossier "photo"
- met dedans quelques photo
- et mettre dans le champ "photo" de la table le chemin et le nom de la photo!
bien sur fait ça d'une manière automatique apres mise à jour de chaque enregistrement.
0
Réponse 4 / 6
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
18 juin 2015 à 17:28
Tiens, voila un autre modéle plus simple, tu doit déziper le fichier et le dossier, quand tu ouvre la base, tu clic en haut a gauche sur ajout, et dès que tu valide ton entrée, s'ouvre un formulaire de saisie des détail, et des photo!
bien sur, ton dossier de photo doit être dans le même dossier que ta base!
Roger

http://www.cjoint.com/c/EFspzClYqad
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 1
19 juin 2015 à 19:24
j'ai testé le fichier que vous m'avez envoyé mais il y a toujours un problème
quand le formulaire fiche d'une plante, j'ai un message de débogage qui me met en jaune cette ligne : 
 Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"

dans 
Private Sub Form_Current()
If Len(Me!photo_1) > 0 Then ' si la photo n'est pas définie, on affiche la photo blank.jpg
On Error GoTo erreur_1
    Me!imgphoto_1.Picture = Me!photo_1
    DisplayPhoto_1 ' Traitement en fonction de la taille de l'image
Else
    Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
End If

If Len(Me!photo_2) > 0 Then ' si la photo n'est pas définie, on affiche la photo blank.jpg
On Error GoTo erreur_1
    Me!imgphoto_2.Picture = Me!photo_2
    DisplayPhoto_2 ' Traitement en fonction de la taille de l'image
Else
    Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
End If


Exit Sub
erreur_1:
Select Case Err.Number
    Case 2114        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_1 = vbNullString
        
        Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_2 = vbNullString
    
    Case 2220        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me!photo_1, vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_1.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_1 = vbNullString
        
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me!photo_2, vbCritical + vbOKOnly, "Application Photos"
        Me!imgphoto_2.Picture = CurrentProject.Path & "\photos plantes\pasdephoto.jpg"
        Me!photo_2 = vbNullString
    Case Else        ' tout autre cas d'erreur
'        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
End Select
Err.Clear
End Sub


donc j'ai essayé de renommer une autre photo dans le dossier photo pasdephoto pour voir si je pouvais corriger le bug mais cela n'a pas marcher
0
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
20 juin 2015 à 06:05
bonjour,
ATTENTION, a-tu bien dans le dossier "\photos plantes\pasdephoto.jpg" une image qui s'appelle "pasdephoto.jpg"??
Cette image doit s'afficher quand tu as une plante sans photo!!
0
le meruvien Messages postés 1125 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 décembre 2024 40
20 juin 2015 à 07:25
effectivement, j'ai oublié de la mettre! alors met une photo quelconque, et nome-la :pasdephoto.jpg
0
Réponse 6 / 6
Peguewende Messages postés 98 Date d'inscription dimanche 5 avril 2015 Statut Membre Dernière intervention 18 mai 2017 1
24 juin 2015 à 14:10
slt, j'ai par corriger mon code et il fonctionne tres bien, j'ai reuusi a faire stocker le chemin de la photo dans ma table et je peux maintenant a jouter des photos sans probleme, ta methode est bonne elle demande trop de code.
voici le code complet: 
Private Sub btnAjout_Click()
    Dim dialogueFichier As Object
    Dim monFichier As String
    
    Set dialogueFichier = Application.FileDialog(3)
    dialogueFichier.allowmultiselect = False
    dialogueFichier.filters.Add "Images", "*.jpg; *.jpeg", 1
    dialogueFichier.initialfilename = CurrentProject.Path & "\Images"
    dialogueFichier.show
        If dialogueFichier.selectedItems.Count = 0 Then
            MsgBox ("Aucune Photo selectionnée")
        Else
            monFichier = Trim(dialogueFichier.selectedItems(1))
            monFichier = Right(monFichier, Len(monFichier) - InStrRev(monFichier, "\"))
        End If
        Me.cmdPhoto = monFichier
        Form_Current
End Sub

Private Sub btnEffacer_Click()
    Me.imgApercu.Picture = ""
    Me.cmdPhoto = ""
    Form_Current
    
End Sub

Private Sub cmdPhoto_AfterUpdate()
    Dim cheminComplet As String
    On Error Resume Next
    If IsNull(Me.cmdPhoto) Or Me.cmdPhoto = "" Then
        Me.imgApercu.Picture = ""
    Else
        cheminComplet = CurrentProject.Path & "\Images\" & Me.cmdPhoto
    End If
    Me.imgApercu.Picture = IIf(cheminComplet = "", "", cheminComplet)

End Sub

Private Sub Form_Current()
    cmdPhoto_AfterUpdate
    If Len(Me.Nom) > 0 Then
        Me.Caption = " Deatil Client : " & Me.Nom & " " & Me.Prenom
    Else
        Me.Caption = " Saisie d'un nouveau Client "
    End If
End Sub
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses