Skip to main content

AccessTr.neT


Resimli Rapor Uygulaması

Resimli Rapor Uygulaması

Çözüldü #1
Merhabalar,

Ekli örneğim ile ilgili sormak istediğim bazı şeyler var;Raporu tıkladığınızda -->

1) 1. ve 2. sıra arasındaki mesafe ile 2. ve 3. sıra arasındaki mesafeler neden birbirinden farklı?

2) Eğer ilgili ürünün tanımı var ama resmi yoksa resim alanı kadar boşluk bırakmamasını nasıl sağlayabilirim? (Yani 2. sıradaki örnek gibi)

3) Resim olduğunda 5x5 kadar resim koysun, resim yoksa içi boş kalsın ve boşu boşuna sayfada boşluk yaratacak ötelemeler yapmasın.

Tşk.
.zip resimli_rapor_uygulamasi.zip (Dosya Boyutu: 207,4 KB | İndirme Sayısı: 12)
Cevapla
#2
Bu konuda fikri olan var mı acaba? Tşk.
Cevapla
#3
Bu konu da havada asılı kaldı bende..Bir fikri olan?
Cevapla
#4
Bu konu hakkındaki sorumu şöyle değiştirmek istiyorum;

Rapordaki resim alanı auto-size gibi bir özelliğe sahip olabilir mi? Örneğin Text alanı için “büyüyebilir-küçülebilir” özelliği var. Aynı şey resim alanı için yok ama kodla çözülebilir mi? Böylece ilgili kayıtta resim varsa resim alanı, resim boyutu kadar genişleyecek, ilgili kayıtta resim yoksa resim alanı sıfır boyuta inecek. Bu mümkün müdür?
Cevapla
#5
(07/09/2018, 17:33)notrino yazdı: Bu konu hakkındaki sorumu şöyle değiştirmek istiyorum;

Rapordaki resim alanı auto-size gibi bir özelliğe sahip olabilir mi? Örneğin Text alanı için “büyüyebilir-küçülebilir” özelliği var. Aynı şey resim alanı için yok ama kodla çözülebilir mi? Böylece ilgili kayıtta resim varsa resim alanı, resim boyutu kadar  genişleyecek, ilgili kayıtta resim yoksa resim alanı sıfır boyuta inecek. Bu mümkün müdür?

Merhabalar,

Bu soru çokça okunmasına rağmen hala bir yanıt bulamamıştı. Ancak ben yanıtı başka kaynaklardan edindim. Çözümü burada da sunmak isterim, herkes faydalansın;

Rapor SQL'in de resmin olup/olmadigi kontrolu icin Yuk: IIf(IsNull([resim]);0;-1) deyimi eklenmeli ve rapor ayrinti bolumu de gorunmez olarak oluşturulmalı. Ayrinti bolumu kuculur-buyur evet olarak ayarlanmalı. Kimlik, Alan1 kuculur-buyur hayir olarak ayarlanmalı. Kimlik, Alan1, resim nesnelerinin Tag(Im) bolumune YUKSEK yazılmalı ve ayrinti bicimlendirme prosedurune asagidaki kod eklenmeli:

Kod:
Dim Nesne As Control
For Each Nesne In Me.Controls
    If Nesne.Tag = "YUKSEK" Then
          Me.Controls(Nesne.Name).Height = IIf(Me.Yuk = -1, 1500, 294)
    End If
    Me.Ayrıntı.Height = Me.resim.Height
Next Nesne

bundan daha basit bir çözüm varsa paylaşmanızı rica ederim. Tşk. (Çözümün uygulaması ektedir)
.zip resimli_rapor.zip (Dosya Boyutu: 466,1 KB | İndirme Sayısı: 11)
Cevapla
#6
Merhaba;
Bu konunuz için ben de örneğinizi indirip, uğraşıp bir çözüm bulamamıştım.
Çözümü paylaştığınız için teşekkür ederim.
Faydalı olacaktır.
İyi çalışmalar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da