DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.Sayın Evren Gizlen,
Eğer Liste kutusunu tablo ile veya sorgu ile ilişkilendirmiş olursanız zaten görünecektir.
İyi çalışmalar
IIf(IsNull(Formlar!Kalori![Açılan Kutu15]),[Kalori.Bolum],Formlar!Kalori![Açılan Kutu15])
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;
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