Skip to main content

AccessTr.neT


Sürekli Formda Resimleri Gösterme

Sürekli Formda Resimleri Gösterme

#1
İ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)
.rar Resim_Deneme.rar (Dosya Boyutu: 1,58 MB | İndirme Sayısı: 4)
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Son Düzenleme: 11/02/2017, 12:50, Düzenleyen: estapan.
Cevapla
#2
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.
.rar Resim_Deneme-ATOZ.rar (Dosya Boyutu: 30,25 KB | İndirme Sayısı: 11)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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.
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
#4
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.
.rar Resim_Deneme-ATOZ2.rar (Dosya Boyutu: 1,59 MB | İndirme Sayısı: 13)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
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.

[Resim: do.php?imgf=148683315587171.jpg]

[Resim: do.php?imgf=148683315604232.jpg]

[Resim: do.php?imgf=148683315613233.jpg]

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
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)
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task