Forum Üzerine Birden Çok Resim Yüklemek - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html) +--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html) +--- Konu Başlığı: Forum Üzerine Birden Çok Resim Yüklemek (/konu-forum-uzerine-birden-cok-resim-yuklemek.html) |
Forum Üzerine Birden Çok Resim Yüklemek - Veyis OKULMUŞ - 20/11/2022 Öncelikle böylesine güzel ve kapsamlı bir site için emeği geçen herkese teşekkürler. 1. Benim sorum şu dergi aboneliği yaptığım müşterilerin abone olduğu dergi sayısı kadar combox açılması 2. Dergi resimlerini klasörden çağırıyorum ancak birinci müşterinin 5 dergi aboneliği var diğer müşterinin ise üç bu müşterinin kendi abonesi olduğu üç dergi görseli ile birlikte bir önceki müşterinin 4-5 resimlerini de gösteriyor. bu iki konuda değerli desteğinizi rica edeceğim. Şimdiden teşekkürler. Hazırladığım veri sayfasını ekleyemedim. Resim çağırmak için bu kodlamayı kullanıyorum. Resimler geliyor. Fakat Bir Önceki müşterinin dergi sayısı fazla ise ikinci müşteridede görüyorum. Formülün bir yerinde bağlama yapamıyorum galiba Private Sub Form_Current() varmi = Me.AdSoyad adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img.Picture = "" MsgBox "Klasörde " & Me.AdSoyad & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi1 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img1.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img1.Picture = "" MsgBox "Klasörde " & Me.Dergi1 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi2 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img2.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img2.Picture = "" MsgBox "Klasörde " & Me.Dergi2 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi3 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img3.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img3.Picture = "" MsgBox "Klasörde " & Me.Dergi3 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi4 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img4.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img4.Picture = "" MsgBox "Klasörde " & Me.Dergi4 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi5 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img5.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img5.Picture = "" MsgBox "Klasörde " & Me.Dergi5 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi6 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img6.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img6.Picture = "" MsgBox "Klasörde " & Me.Dergi6 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi7 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img7.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img7.Picture = "" MsgBox "Klasörde " & Me.Dergi7 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi8 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img8.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img9.Picture = "" MsgBox "Klasörde " & Me.Dergi8 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi9 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img9.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img9.Picture = "" MsgBox "Klasörde " & Me.Dergi9 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi10 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img10.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img10.Picture = "" MsgBox "Klasörde " & Me.Dergi10 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi11 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img11.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img11.Picture = "" MsgBox "Klasörde " & Me.Dergi11 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi12 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img12.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img12.Picture = "" MsgBox "Klasörde " & Me.Dergi12 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi13 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img13.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img13.Picture = "" MsgBox "Klasörde " & Me.Dergi13 & " fotoğrafı yok ", vbCritical + vbOKOnly End If varmi = Me.Dergi14 adres = "C:\Users\Veyis\Desktop\AccessResim\" If Len(Dir(adres & varmi & ".jpg")) > 0 Then Me.img14.Picture = adres & varmi & ".jpg" ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then Me.img14.Picture = "" MsgBox "Klasörde " & Me.Dergi14 & " fotoğrafı yok ", vbCritical + vbOKOnly End If End Sub Private Sub Form_Load() Me.img.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.AdSoyad & ".jpg" Me.img1.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi1 & ".jpg" Me.img2.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi2 & ".jpg" Me.img3.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi3 & ".jpg" Me.img4.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi4 & ".jpg" Me.img5.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi5 & ".jpg" Me.img6.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi6 & ".jpg" Me.img7.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi7 & ".jpg" Me.img8.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi8 & ".jpg" Me.img9.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi9 & ".jpg" Me.img10.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi10 & ".jpg" Me.img11.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi11 & ".jpg" Me.img12.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi12 & ".jpg" Me.img13.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi13 & ".jpg" Me.img14.Picture = "C:\Users\Veyis\Desktop\AccessResim\" & Me.Dergi14 & ".jpg" End Sub RE: Forum Üzerine Birden Çok Resim Yüklemek - atoykan - 20/11/2022 Lütfen konularınızı ilgili alanda açın. Açtığınız konu bir Access Sorusu örnek uygulamalarda açarsanız cevap almakta gecikirsiniz. (Sorunuz tarafımca ilgili alana taşınmıştır) Kodlarınız yerine örnek dosya paylaşın. Mesajınıza önizleme yaparak gizleme, şifreleme gibi komutları kaldırılmış, gerçek kişi vb. gibi veriler yerine sahte veriler olan ve sıkıştırılmış haldeki çalışmanızı dosya ekle seçeneğinden ekleyin. |