İyi Günler,
Normal formlara resim ekleyebiliyorum, fakat sürekli formda bir türlü resimlerin nasıl gösterilceğini bulamadım. Ekteki örnekte stok kartlarını resimleriyle göstermek istiyorum. Fakat her kayıt forma ilave edildiğinde kodu çalıştıracak olay tetikleyicisini bulamadım. Bu konuda yardımınızı bekliyorum. ( Not : Ekteki raporda bunu yaptım formdada aynı olayı bir türlü yapamadım)
sayın estapan,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
elbette tercih ve takdir sizindir fakat resimleri uygulamanın yer aldığı klasörde bulundurmanız daha yerinde olacaktır.bu geçerli olursa,kodlarda buna göre düzenleme gerekecektir.
bilginize...iyi çalışmalar,saygılar.
Sayın Atoz112,
Öncelikle cevabınız için teşekkür ederim.
Resim dosyası uygulamanın olduğu dosya içinde olacak. Sizin örneğinizi denedim fakat sonuç gene tüm stok kartları için aynı resmi getiriyor. Acaba atladığım bir yermi var. Formun "Geçerli Olduğunda" olayına yazdığınız kodları ekledim
"Me.ResimCercevesi.Picture = Me.MKResim" şeklinde düzelttim. Fakat netice aynı birtek resmi tüm stok kartlarıda gösteriyor.
sayın estapan,
eklediğiniz örnek uygulamadaki StokKartı adlı tablodaki resim alanında uygulamanın yer aldığı klasör yerine harici bir klasör yolu mevcut görüldüğü için kodlar buna uygun şekilde yazılmıştır ve aynı zamanda bir önceki mesajdaki öneri yapılmıştır.
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
uygulamadaki StokKartı adlı tabloyu,sizin kendi resim yolunuz yazdığı gerekçesi ile StokKartı_eski adlı tablo ile yer değiştirmeyi unutmayınız.bu nedenle yapmanız gereken şu:
StokKartı adlı dosyanın adını StokKartı_degistir olarak tanımlayınız ve StokKartı_eski adlı tablonun adını da StokKartı olarak tanımlayınız.kısacası,yer değiştireceksiniz.
bilginize...iyi çalışmalar,saygılar.
sayın estapan,
konunuzun 4.mesajına eklenen örnek uygulamanın kullanımını ve sonuçların olumlu halini içeren ekran görüntüleri,
aşağıda yer almaktadır.
bilginize...iyi çalışmalar,saygılar.
Sayın Atoz112,
emeğiniz için çok teşekkür ederim.
uygulamayı belirttiğiniz gibi tablo isimlerini değiştirerek yapıyorum. fakat gene aynı sonuç çıkıyor. resim dosyası yolunu yeni düzene göre ayarlıyorum fakat gene olmuyor. nerde eksiklik veya hata yaptığımı bir türlü bulamadım. herçeşit ihtimali deniyorum. fakat gene sadece tek resim bütün kartlarda çıkıyor.
If Len(Dir(Me.MKResim)) = 0 Then
Else
Me.ResimCercevesi.Picture = CurrentProject.Path & "\" & "ER-KA" & "\" & "Resim_Deneme" & "\" & "Resimler" & "\" & Right(Me.MKResim, Len(Me.MKResim) - InStrRev(Me.MKResim, "\"))
End If
burdaki mantık
If Len(Dir(Me.MKResim)) = 0 oluncayakadar döngü devam etsin ( Len(Dir(Me.MKResim))) Bu formul sanırım kalan resim adedini belirlemek için
her döngüde Me.ResimCercevesi.Picture= "Belirtilen adresteki değeri alsın"
Right(Me.MKResim, Len(Me.MKResim) - InStrRev(Me.MKResim, "\" Burasıda her resmin adını belirtmrk için sanırım.
benim anladığım bu şekilde. yanlışsam düzeltin lütfen. Fakat bu mantığa göre uyarlama yapsamda gene maalesef hep aynı sonucu alıyorum.
(Buarada cevabınaza geç yanıt verdiğim için özür dilerim. en son cevabınızı ancak bu sabah görebildim)