Discussion :

[Jsiorat]

bonjour à tous

J'ai une l'erreur 438 dans cette fonction et je ne vois pas du tout pourquoi
cette fonction doit permettre la sélection d'une image, de l'afficher dans le formulaire courrant et d'enregistrer le recordset

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
Public Function fAssigneLogo(ByVal strFrmName As String, ByVal strTableName As String, _
                             Optional strTitre As String = "Sélectionner un fichier image") As Variant
 
 
    Dim fileDialog As Office.fileDialog
    Dim selectedFile As Variant
    Dim rs As DAO.recordset
    Dim img As DAO.Field2
 
    'Ouvre la boîte de dialogue pour sélectionner un fichier
    Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
    fileDialog.AllowMultiSelect = False
    fileDialog.Title = strTitre
    fileDialog.Filters.Clear
    fileDialog.Filters.Add "Images", "*.*; *.ico; *.jpg; *.jpeg; *.png"
    fileDialog.InitialFileName = CurrentProject.Path & "\LOGOS\"
 
    'Vérifie si l'utilisateur a sélectionné un fichier
    If fileDialog.Show = True Then
        selectedFile = fileDialog.SelectedItems(1)
 
        'Assigne l'image sélectionnée au champ Image du formulaire en cours
        'Me.Image = selectedFile
        Forms(strFrmName).Controls("imgLogo") = selectedFile                ' *** ERREUR 438
 
        'Enregistre l'image dans la table "Comptes"
        Set rs = currentDB.OpenRecordset(strTableName)
        rs.AddNew
        Set img = rs.Fields("imgLogo")
        img.LoadFromFile selectedFile
        rs.Update
        rs.Close
        Set img = Nothing
        Set rs = Nothing
    End If
 
End Function

Merci pour votre aide

[hyperion13]

Salut
Réponse ici.

[Jsiorat]

Merci

Je vais voir et lire tout ça !