Form açıldığında Liste kutusu tabloyu göstersin.

[Orion1]

Merhaba.
Form açıldığında otomatik olarak Liste kutusunda Tabloyu göstersin.Veya Ben sorgu hazırlamıştım,mümkünse sorguyu göstersin.
Teşekkür ederim.

 

[modalı]

Sayın Evren Gizlen,

Eğer Liste kutusunu tablo ile veya sorgu ile ilişkilendirmiş olursanız zaten görünecektir.

İyi çalışmalar

 

[Orion1]

Sayın Evren Gizlen,

Eğer Liste kutusunu tablo ile veya sorgu ile ilişkilendirmiş olursanız zaten görünecektir.

İyi çalışmalar

Sayın üstadım liste kutusu ilişkili ,ilişkili ama Combobox ile ilişkili comboboxta Bolum alanında mükerrer olan veriler teke indirilmiş şekilde bulunuyor.Ve oradan seçim yapıldığında o kayda uyanlar listeleniyor.Mesela comboboxta Meyveler seçildiğinde Liste kutusunda Meyveler listeleniyor.Tamam bu olsun ama form açıldığında ise Bütün kayıtlar listelensin istiyorum.Form açıldıktan sonra combobxtakiş seçime göre ilişkili olduğu için bir dahaki listelemerde comboboxa göre listeleme yapabilir.Ama ilk başat listboxta bütün kayıtlar listelenmiş halde olsunlar.

 

[Taruz]

Merhabalar

Bunun için listenin kaynağı olan sorgudaki ölçüt kriterini biraz daha geliştirmemiz gerekiyor..

Şunu demeliyiz..:

Eğer formdaki açılan kutuda bir değer varsa listede bu değere(ölçüte) uyan kayıtları göster ama açılan kutu boşsa hepsini göster..

Ölçüt kısmına yazılması gerekli şekil bu..

IIf(IsNull(Formlar!Kalori![Açılan Kutu15]),[Kalori.Bolum],Formlar!Kalori![Açılan Kutu15])

Bu da listenin kaynak sorgusunun istediğiniz özellikte olması için yukardaki ölçütle birleştirilmiş şekli.:

SELECT [Kalori Sorgu].SIRA, [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin, [Kalori Sorgu].Miktar, [Kalori Sorgu].Kalori FROM [Kalori Sorgu] WHERE ((([Kalori Sorgu].Kalori.Bolum)=IIf(IsNull(Formlar!Kalori![Açılan Kutu15]),[Kalori.Bolum],Formlar!Kalori![Açılan Kutu15]))) ORDER BY [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin;

 

[modalı]

Sayın Evren Gizlen,

Kırmızı ile gösterilen kodları ekleyin:

Private Sub Açılan_Kutu15_AfterUpdate()
[COLOR=Red]Me.Liste10.RowSource = "SELECT [Kalori Sorgu].SIRA, [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin, [Kalori Sorgu].Miktar, [Kalori Sorgu].Kalori FROM [Kalori Sorgu] WHERE ((([Kalori Sorgu].Kalori.Bolum)=Formlar!Kalori![Açılan Kutu15])) ORDER BY [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin; "[/COLOR]
Me.Liste10.Requery

End Sub

Private Sub Form_Load()
[COLOR=Red]Me.Liste10.RowSource = "SELECT [Kalori Sorgu].SIRA, [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin, [Kalori Sorgu].Miktar, [Kalori Sorgu].Kalori FROM [Kalori Sorgu] ORDER BY [Kalori Sorgu].Kalori.Bolum, [Kalori Sorgu].Besin; "[/COLOR]
Me.Liste10.Requery

End Sub

İyi çalışmalar

 

[Orion1]

Taruz üstadım teşekkür ederim.Bu işte halloldu.