Error 2753 bij laden afbeelding

[robert123321]

Hallo,

Ik ben een database aan het maken voor een cd collectie.

Nu wil ik graag afbeeldingen per record toevoegen. Naar veel geklooi ben ik tot hier gekomen:

If Not IsNull(Me.CoverImg) Then
Me!AlbumCover.SourceDoc = Me.CoverImg
Me!AlbumCover.Action = acOLECreateLink
End If

In CoverImg wordt de link getoond naar de afbeelding en in AlbumCover dient de afbeelding getoond te worden. Ik krijg de errorcode 2753

Wat doe ik hier verkeerd?

 

[robert123321]

Ben er zelf uitgekomen.

Maar dit werkt helaas alleen wanneer er maar 1 record getoond wordt.
Wanneer ik dus een album selecteer krijg ik de juiste afbeelding te zien, maar in het totaal overzicht worden bij alle records dezelfde afbeelding getoond, namelijk van het record dat geselecteerd is.

Is het ook mogelijk waneer je meerdere records tegelijkertijd toont in elke de juiste afbeelding te tonen?

Hieronder de code om de afbeelding te tonen per record.

Private Sub Form_Current()
On Error GoTo err_Form_Current

    If Not Me!CoverImg1 = "" Or Not IsNull(Me!CoverImg1) Then
        Me!Cover.Picture = CurrentProject.Path & "\Album covers" & "\" & Me!CoverImg1
    Else
        Me!Cover.Picture = ""
    End If
        
exit_Form_Current:
    Exit Sub
    
err_Form_Current:

    Select Case Err.Number
    
        Case 2220 'De verwachte afbeeldingen is niet te vinden.
           MsgBox "De foto is verwijderd of heeft een andere naam gekregen."

            
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            
    End Select
    Resume exit_Form_Current
End Sub

hier de code om een afbeelding aan een record toe te voegen:

rivate Sub cmdInsertImage_Click()
On Error GoTo err_cmdInsertImage_Click
'Code om foto toe te voegen

    Dim dlgPicker As FileDialog
    Dim strFileName As String
    Dim strPath As String
    Dim strFile As String
    
     
    If IsNull(Me.Artiesttitel) Then
        MsgBox "Vul eerst naam van de artiest in.", vbCritical + vbOKOnly, "Fout"
        Exit Sub
    End If
    
   
    Set dlgPicker = Application.FileDialog(msoFileDialogFilePicker)
    
    With dlgPicker
        .Title = "Selecteer een afbeelding (enkel jpeg formaat toegestaan)" 

        .InitialFileName = CurrentProject.Path & "\" 'Waar moet het venster beginnen?"
        .Filters.Add "JPG", "*.jpg", 1 
        .AllowMultiSelect = False 
        .InitialView = msoFileDialogViewPreview 
        
        If .Show = -1 Then 
            strFileName = .SelectedItems.Item(1) 'String wordt gevuld met geselecteerde bestand
        End If
        
    End With
    
   Name strFileName As Me.Artiesttitel & "_" & Me.Albumtitel & ".jpg"
   Me!CoverImg1 = Me.Artiesttitel & "_" & Me.Albumtitel & ".jpg"
    
   
    If Not Me!CoverImg1 = "" Or Not IsNull(Me!CoverImg1) Then
        Me!Cover.Picture = CurrentProject.Path & "\Album covers" & "\" & Me!CoverImg1
    Else
        Me!Cover.Picture = ""
    End If


    Exit Sub

err_cmdInsertImage_Click:
    Select Case Err.Number
        Case 58 'Het bestand bestaat al.
            MsgBox "Er bestaat al een foto voor deze persoon (" & Me.Artiesttitel & Me.Albumtitel & ".jpg). Kies dit bestand, of hernoem dit.", vbCritical + vbOKOnly, "Fout"
        Case 75 'De gebruiker klikt op de knop Annuleren.
            MsgBox "U hebt geen foto geselecteerd.", vbOKOnly + vbInformation, "Melding"
        Case Else 'Overige gevallen
            MsgBox "Fout in: " & "cmdInsertImage_Click, foutnummer:" & Err.Number & ", " & Err.Description
    End Select
    
    Exit Sub