Discussion :

[Salsaboy60]

Bonjour,

j'ai un problème avec l'insertion d'un image dans ma base de données.

J'utilise un bout de code que j'ai trouvé ici sur le site et ça déjà marché. Mais j'ai changer l'emplacement de ma bdd et maintenant j'ai une message d'erreur code 70 avec "Permission refusé".

Est-ce que vous pouvez me dire ou se trouve le problème??

Voici 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
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("Z:\Mes Documents\Stockbeheer\images\") & Me.[Numéro d'article]
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
    .InitialView = msoFileDialogViewPreview
    '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), ("Z:\Mes Documents\Stockbeheer\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

[Salsaboy60]

j'ai trouvé une solution.

Ce n'est pas comme ça que la procédure devrait être mais il marche.

Dans la gestion d'erreur j'ai dupliquer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Photos = CurrentProject.Path & "\images" & strFichier

Ce qu'il se passe c'est que la fenêtre pour sélectionner l'image est bien ouverte, on peut choisir l'image voulu, mais ensuite le programme passe directement dans la gestion erreur. Pourquoi??

Quelqu'un peut m'éclairer ou le programme bogue??

Merci pour vos remarques.

Hans