Bu biraz daha uzun bir metod. File Dialog penceresi ile yapacağız

1. Önce tablomuza resim yolunu saklayacağımız bir alan ekliyoruz ( örnekte : URUN_RESIMYOLU , metin, 255 )
2. Aşağıdaki kodu modüller penceresinde bir sayfaya yapıştırıp kaydedin

Sub resimekle()

    Dim filename As String

    Dim result As Integer

    With Application.FileDialog(msoFileDialogFilePicker)

        .Title = " CV ye resim ekle"

        .Filters.Add "All Files", "*.*"

        .Filters.Add "JPEGs", "*.jpg"

        .Filters.Add "Bitmaps", "*.bmp"

        .FilterIndex = 3

        .AllowMultiSelect = False

        .InitialFileName = CurrentProject.Path & "\resimler\"

        result = .Show

        If (result <> 0) Then

            filename = Trim(.SelectedItems.Item(1))

            Forms!FRM_URUNLEREKLEME!URUN_RESIMYOLU = filename

            Forms!FRM_URUNLEREKLEME!URUN_ID.SetFocus

            Forms!FRM_URUNLEREKLEME!cerceve.Picture = filename



           End If

    End With

End Sub

Form üzerine 2 buton ekliyoruz
RESİM EKLE altına

resimekle

RESİM SİL altına

me.URUN_RESIMYOLU=""

veya

me.URUN_RESIMYOLU=Forms!FRM_URUNLEREKLEME!cerceve.Picture = CurrentProject.Path & "/resimler/" & "BOS.bmp"

Uygulamayı yeniden ekliyorum bu anlatımımı ikinci
form üzerinde görebilirsiniz :FRM_URUNLEREKLEME

Kolay gelsin