Skip to main content

AccessTr.neT


Şartlı Resim Gösterme Hk.

Şartlı Resim Gösterme Hk.

Çözüldü #1
Merhabalar,

Bir türlü form üzerinde bir kaç resime şartlı göster veya gösterme durumunu yapamadım. If kullandım fakat şart bir kaç veriden oluştuğu için olmadı. Ekteki basit bir örnek ekledim. Yapmak istediğimi şöyle özetleyim. Örneğimdeki form1 içinde yer alan resimleri yine form1 içindeki subformda yer alan verilere gore görünür veya görünmez yapmak istiyorum. B1 X bölgesindeyken ImageX görünür olmalı  ve B2 Y bölgesindeyken görünür olmadlı, diğerleri görünmemeli. Yani resimlerin görünürlülüğü bölgelere bağlı değişken olmalıdır. Bu arada sub form kullanmam önemli değil başka bir yöntem önerilerinizede açığım. Bu konuda yardımınızı rica ederim. Teşekkürler, iyi çalışmalar.
.zip OrnekKonum_Erkan.zip (Dosya Boyutu: 88,01 KB | İndirme Sayısı: 11)
Cevapla
#2
Sorunuzdan anladığım kadarıyla;

Alt formun geçerli olduğunda olayına aşağıdaki kodu eklediğinizde, alt formdaki B1 olan 1. kaydı seçerseniz ImageX görünür, diğerleri gizli olur, B2 olan 2. kaydı seçerseniz ImageY görünür, diğerleri görünmez.


If Me.No = "B1" And Me.Bolge = "X" Then


Forms![Form1]![ImageX].Visible = True
Forms![Form1]![ImageY].Visible = False
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
ElseIf Me.No = "B2" And Me.Bolge = "Y" Then
Forms![Form1]![ImageX].Visible = False
Forms![Form1]![ImageY].Visible = True
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
Else
Forms![Form1]![ImageX].Visible = False
Forms![Form1]![ImageY].Visible = False
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
End If

Tablodaki diğer verilerle ilgili fikir yürütemediğimden diğer resimlerin görünür yapılması için kod eklemedim. Üstteki koda ekleme yapmanız gerekiyor. 
Cevapla
#3
(09/04/2015, 13:04)ozanakkaya yazdı: Sorunuzdan anladığım kadarıyla;

Alt formun geçerli olduğunda olayına aşağıdaki kodu eklediğinizde, alt formdaki B1 olan 1. kaydı seçerseniz ImageX görünür, diğerleri gizli olur, B2 olan 2. kaydı seçerseniz ImageY görünür, diğerleri görünmez.


If Me.No = "B1" And Me.Bolge = "X" Then


Forms![Form1]![ImageX].Visible = True
Forms![Form1]![ImageY].Visible = False
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
ElseIf Me.No = "B2" And Me.Bolge = "Y" Then
Forms![Form1]![ImageX].Visible = False
Forms![Form1]![ImageY].Visible = True
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
Else
Forms![Form1]![ImageX].Visible = False
Forms![Form1]![ImageY].Visible = False
Forms![Form1]![ImageZ].Visible = False
Forms![Form1]![ImageW].Visible = False
End If

Tablodaki diğer verilerle ilgili fikir yürütemediğimden diğer resimlerin görünür yapılması için kod eklemedim. Üstteki koda ekleme yapmanız gerekiyor. 

Merhaba Ozan Bey,

Ben yanlış anlatmışım. Şöyle bir şey yapamazmıyız. Benim table2 de her zaman 2 satırım olucak. Bu yüzden query1 deki bölge sütununda birinci satırda olan veriyi form içinde sabit bir textboxa ikinci satırda olan veriyi diğer bir sabit textboxa alabilir miyim? Sonrasında if kullanıcam. 
Cevapla
#4
form1 isimli forma 2 metin kutusu ekle.

1. Metin kutusunun denetim kaynağına 
=dmin("Bolge";"Query1") yazarsan x değerini,


=dmax("Bolge";"Query1") yazarsan y değerini metin kutusuna yansıtabilirsin
Cevapla
#5
(09/04/2015, 14:58)ozanakkaya yazdı: form1 isimli forma 2 metin kutusu ekle.

1. Metin kutusunun denetim kaynağına 
=dmin("Bolge";"Query1") yazarsan x değerini,


=dmax("Bolge";"Query1") yazarsan y değerini metin kutusuna yansıtabilirsin

Merhaba Ozan Bey,

Bu kodlar çok işime yaradı. Teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da