Discussion :

[vinze60]

Bonjour,

Je suis tout content de moi, j'ai terminé un super formulaire mais y'a un probleme !!! Une image s'est ajoutée dans le fond de mon formulaire. Elle se centre automatiquement par rapport à la taille du formulaire, j'en déduit donc qu'il s'agit de quelque chose comme "papier peint" ou image de fond mais impossible de l'enlever !!

En mode création j'essais de clicker dessus pour entrer dans le parametres ou pouvoir la supprimermais impossible de la séléctionner. Même dans la liste des objets du formulaire elle n'existe pas, comment faire pour la retirer de là ????

[Invité]

Bonjour

Dans les propriétés de ton formulaire, tu as une propriété qui se nomme Image, je pense que tu as un chemin à l'intérieur, tu sélectionnes l'ensemble, tu appuis sur la touche Suppr, tu valides, Access devrait te demander la confirmation de la suppression, tu valides et tu devrais voir (Aucune) s'afficher.

Starec

[Dolphy35]

Salut Vinze,

Suit les conseils de Starec


Par contre tu as un soucis dans ton code car si tu utilise mon tuto : Intégration d'images dans les formulaires continus sous Access 2007

tu ne dois pas modifier l'image de fond du Form

peux-tu poster ton code stp.


Dolphy

[vinze60]

Merci pour vos réponses !!

J'ai trouvé la propriété !! L'image ne s'affiche plus !! MERCIII

Pour répondre a Dolphy, le 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
Private Sub Commande42_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"
    '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.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.Image = 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

[vinze60]

Mon code n'a pas l'air d'inspirer grand monde ... ! n'est ce pas Dolphy