j'ai une erreur 438 [Résolu]

[franc83]

bonjour
j'ai trouvé sur ce site une page de code ,pour access 2007,écrit par Morgan BILLY
qui permet l'intégration d'images dans les formulaires continus .Le problème est une erreur 438 au moment de l'affichage dans le contrôle du fichier sélectionné.
ligne Me.image1.picture=.selectedItems(1)

je séche
merci tous d'avance
Franc

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub btnInserer_Click()
'declaration des variables
Dim strfichier As String
Dim ofd As FileDialog
' parametre la fenetre ouvrir
Set ofd = Application.FileDialog(msoFileDialogOpen)
With ofd
    'ajoute les filtres pour fichiers image et tous
    With .Filters
         .Clear
         .Add "fichiers images", "*.jpeg;*.jpg;*.bmp;*.gif", 1
         .Add "tous", "*.*", 2
   End With
   'renseignement du titre
   .Title = "inserer une image"
   'ouvre l'explorateur dans le fichier 'mes documents'du user connecté.
   .InitialFileName = Environ("userprofile") & " \mes documents\mes images"
   'interdit la multi selection
   .AllowMultiSelect = False
   'permet de choisir le mode d'affichage dans l'explorateur (ici appercu)
   .InitialView = msoFileDialogViewPreview
   'permet de personnaliser le bouton
   .ButtonName = "inserer"
   'affiche la fenetre
   If .Show Then
        On Error GoTo fini 'gestion erreur pour control importation
        'retourne un erreur si pas fichier image
        Me.Image1.Picture = .SelectedItems(1)
        'vide du cadre image
        Me.Image1.Picture = " "
        'extraction du nom du fichier à copier
        strfichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), " \ "))
        'copie du fichier selectionné vers le sous dossier de la base.
        FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strfichier
        'chargement dans control du chemin de l'image (sous dossier base)
        Mes.photos = CurrentProject.Path & "\images" & strfichier
        'rafraichit le formulaire
        Me.Refresh
    End If
    End With
    Exit Sub
fini:
    Select Case Err
       Case 2220
         MsgBox " l'importation du fichier ne c'est pas effectué normalement.", _
         vbCritical, "erreur fichier image"
      Case Else
          MsgBox Err.Number & Chr(13) & Err.Description
  End Select
 
 
End Sub

[keita]

bonjour à tous
As tu vérifié que tu as crée un contrôle image nommé image1 sur ton formulaire?
Si oui, peux tu nous donner tout le texte de l'erreur affichée (sa description en fait)?

@+

[franc83]

Bonjour keita

oui j'ai bien créé un cadre d'objet nommé Image1
exactement:
438
propriété ou méthode non gérée par cet objet
merci

[LedZeppII]

Bonjour,

Il faut que ce soit un contrôle Image car la propriété Picture n'existe pas pour les cadres d'objets dépendants ou indépendants.

A+

[franc83]

merci
j'ai rectifié cela fonctionne
encore merci
a+

[franc83]

Le forum est réactif
Je me suis un peu trop emballé ,l'incorporation de l'image est reportée sur tous les enregistrements .
malgré une incorporation image jepg j'ai l'erreur 2220 donc le message de msgBox

merci

[keita]

bonjour

..l'incorporation de l'image est reportée sur tous les enregistrements...

Pour que chaque enreg. vienne avec son image, tu devras penser à créer un champ de type Objet OLE dans ta table et y coller pour chacun son image.
cependant il est bon de savoir que cette méthode a l'inconvénient d'alourdir la bd. c'est pourquoi, pour l'utilisation d'une grande quantité d'images, il est préférable de créer non pas un champ de type objet ole, mais de type texte qui pourra enregistrer l'adresse complète de l'image sur le disque.
Voici des pistes:
http://cafeine.developpez.com/access/tutoriel/photos/

http://access.developpez.com/faq/?pa...ce#affichImage
Me.Image1.Picture = "c:\temp\dessin.jpg"

@+

[LedZeppII]

Bonjour,

Il faut au minimum Access 2007, pour appliquer ce qui est décrit dans le tutoriel Intégration d'images dans les formulaires continus sous Access 2007.

,l'incorporation de l'image est reportée sur tous les enregistrements

Le contrôle image doit être lié au champ d'une table (Table tblEmployes, champ Photos dans le tutoriel).
Afficher les propriétés du contrôle Image, sélectionner l'onglet «Données».
La propriété «Source contrôle» doit contenir le nom d'un champ, sélectionné dans la liste déroulante.

j'ai l'erreur 2220

Texte de l'erreur : Microsoft Office Access ne peut ouvrir le fichier.

Là, je ne sais pas si Access ne trouve pas le fichier ou bien si il n'arrive pas à l'ouvrir parce qu'il ne reconnaît pas le format.

Le code du tutoriel recopie l'image sélectionnée dans un sous-dossier nommé images.
Ce sous-dossier doit se trouver dans le dossier de la base de données.
C'est le chemin complet vers l'image dans le sous-dossier images qui est enregistré dans la table.

Par exemple si la base de données est dans C:\Mes Documents\Mon Appli, les images seront copiées dans C:\Mes Documents\Mon Appli\images.
Si tu sélectionnes une image photo1.jpg, tu dois la retrouver dans C:\Mes Documents\Mon Appli\images et le champ de la table pour stocker le chemin vers l'image doit contenir C:\Mes Documents\Mon Appli\images\photo1.jpg.

A+

[franc83]

Bonjour
Merci Keita c'est une autre façon de faire.
Je cherche à faire fonctionner ce tuto j'y suis parvenu en supprimant les lignes

Code :

1
2
Me.image1.Picture = .SelectedItems (1)
Me.Image 1.Picture = ""

Je pense qu'elles ne sont pas nécessaires nous somme dans le répertoire images ,et que le ButtonName "Insérer" n'est pas actif puisque pas de fichier sélectionné.

merci

[franc83]

Je pensais avoir trouvé mais ce matin j'ai une erreur" 424 objet requis" je sèche
merci

J'ai trouvé c'était un espace de trop entre les guillemets dans
Me.Image1.Picture = ""