Kod:
Private Sub ekle_img_Click()
Dim f As Object
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
If (f.show = True) Then
Me![img].Picture = f.SelectedItems(1)
End If
End Sub
Private Sub ekle_img_Click()
Dim f As Object
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
If (f.show = True) Then
Me![img].Picture = f.SelectedItems(1)
End If
End Sub
Alıntı:ActiveSheet.Pictures.Insert("C:\resimler\" & "\" & Target.Value & ".jpg").Select
me.resimalani.picture = "c:\resim\" & me.adisoyadi & ".jpg"
(02/08/2019, 16:01)ozanakkaya yazdı: Raporun ayrıntısının biçimlendiğinde olayına
şeklinde kod eklemelisinKod:me.resimalani.picture = "c:\resim\" & me.adisoyadi & ".jpg"
https://accesstr.net/konu-tabloya-resim-...rnegi.html bağlantısında form üzerinden tabloya resim bilgisi kaydetme ile ilgili örnek mevcut.