+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Resim Çekme (/konu-resim-cekme--89832.html)
Resim Çekme - evren89 - 02/07/2022
Selamun aleykum Eğitmenler ve arkadaşlar.ekte sunmuş olduğum çalışmamda stoklar hakkında kayıt yapacağım.Tablo1 adlı forma stok adını yazıp "C:\Users\EVREN\Pictures" dosyasında formu her açtığımda resmi çekecek ve aynı zamanda rapor bölümünün sorgu kısmında filtreleme yapmaktayım ve buradada resmi görmek istiyorum bana yardımcı olur musunuz
RE: Resim Çekme - berduş - 02/07/2022
dosyanızda sorun göremedim,
hem formda ham de raporda resim kutusunun denetim kaynağını resim alanı olarak seçince resimleri gösterdi
RE: Resim Çekme - evren89 - 02/07/2022
hocam şöyle ifade edeyim örneğin elma diye stok ismi yazacağım sonra resim kutusuna tiklayıp ilgili klasörün içinden elma resmini seçeceğim, başka bir stok ismi girip gene aynı klasörden örneğin portakal diye stok ismi yazıp, portakal resmini seçeceğim ve bunu aynı zamanda raporun sorgu kısmındada filtrelediğim zaman bu resimlerine gösterecek.iyi günler dilerim.
RE: Resim Çekme - berduş - 02/07/2022
forma bir buton ekleyip aşağıdaki kodu yazarsanız seçilen dosyanın adresi tablonuza eklenir
Dim Yol As String
Set xFd = Application.FileDialog(3)
With xFd
.Filters.Clear
.Filters.Add "Tüm Dosyalar", "*.*", 1
.Title = "Lütfen taşınacak dosyaları seçiniz!"
.AllowMultiSelect = 0 'True
' .InitialFileName = "D:\Desktop\Sil_denme" 'Environ("USERPROFILE") & "\Desktop"
If .Show <> -1 Then Exit Sub
Me.Resim7 = .SelectedItems(1)
End WithRE: Resim Çekme - berduş - 03/07/2022
Konularınıza olumlu yada olumsuz mutlaka dönüş yapın
RE: Resim Çekme - evren89 - 04/07/2022
hocam verdiğiniz kod çalıştı tesekkur ederim dönüş yapmam geç oldu kusura bakmayın hasta idim iyi günler