Skip to main content

AccessTr.neT


Forum Üzerine Birden Çok Resim Yüklemek

Veyis OKULMUŞ
Veyis OKULMUŞ
1
73

Forum Üzerine Birden Çok Resim Yüklemek

#1
Ö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
Son Düzenleme: 20/11/2022, 10:15, Düzenleyen: Veyis OKULMUŞ.
Cevapla
#2
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da