insére une photo

**titi57** · 09/05/2010, 13h48

bonjour

voila je voudrais insérer une photo dans une base de données elle devra être visible sur un état

mon code est :

mais voila le message que j'ai quand je clic sur le bouton insérer

Invité · 09/05/2010, 14h11

Bonjour
Pourquoi ne pas copier le code avec les balises adéquates. Pour ma part la vue d'écran est totalement floue...

**Tofalu** · 09/05/2010, 14h21

Bonjour

Ajoutez la référence Microsoft Office X.0 à votre projet.

**titi57** · 09/05/2010, 15h02

salut
la reference Microsoft office X.0 n'existe pas cher moi?

voila le Code

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
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
53
54
55
56
57
58
59
60
61
62
63
64
65
Option Compare Database
Option Explicit
 
Private Sub btnInserer_Click()
'Déclaration des variables
Dim strFichier As String
Dim oFD As FileDialog
 
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
    'Ajoute les filtres pour fichiers images et tous
    With .Filters
        .Clear
        .Add "Fichiers images", "*.jpg;*.jpeg;*.bmp;*.gif", 1
        .Add "Tous", "*.*", 2
    End With
    'Renseignement du titre
    .Title = "Insérer une image"
    'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\Mes images"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
    .InitialView = msoFileDialogViewThumbnail
    'Permet de personnaliser le bouton.
    .ButtonName = "Insérer"
 
    'Affiche la fenêtre
    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 sélectionné 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).
        Me.Photos = CurrentProject.Path & "\images" & strFichier
        'Rafraîchit le Formulaire.
        Me.Refresh
 
    End If
End With
Exit Sub
 
fini:
 
    Select Case Err
 
        Case 2220
 
            MsgBox "L'importation du fichier ne s'est pas effectué normalement.", _
                vbCritical, "Erreur fichier Image"
 
        Case Else
 
            MsgBox Err.Number & Chr(13) & Err.Description
 
    End Select
 
End Sub

**PeyePo** · 09/05/2010, 16h26

Bonjour

Envoyé par titi57

la reference Microsoft office X.0 n'existe pas cher moi?

Elle existe, sauf qu'il faut remplacer le X par un chiffre par exemple le 12 pour la version 2007.

Et c'est

Microsoft Office 12.0 Object Library

**LE VIEUX** · 09/05/2010, 18h22

bonjour a tous,

il ne faudrait pas : Microsoft Scripting Runtime aussi ?

**Tofalu** · 09/05/2010, 18h59

@titi57

Des documents existent à ce sujet :

http://warin.developpez.com/access/piecejointe/

C'est dommage de perdre du temps sur ce genre de problème alors qu'une simple recherche aurait remonté le résultat, et donc la réponse