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.
Bu konuda fikri olan var mı acaba? Tşk.
Bu konu da havada asılı kaldı bende..Bir fikri olan?
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?
(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)
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.