List box konusunda yardım edebilirmisiniz..

[kkoksal]

Merhaba
Eklteki proğramda da göreceğiniz gibi bi rtablo üzerinde seçim yapmak istiyorum ama beceremedim yardımcı olurmusunuz.

SELECT [tbl Toner2].Statü FROM [tbl Toner2] ORDER BY [Statü];
bu tablodaki statü bölümünün gelmesini fakat yanındada tümü diye bir seçenek olmasını ve tüm verinin gelmesini istiyorum.


Buradaki yardımlar için herkeze teşekkürler...

 

[modalı]

Sayın kkoksal,

Sorgunuzun ölçüt kısmını şöyle değiştirin:

IIf(IsNull([Formlar]![Form1]![Açılan Kutu0]);[Statü];[Formlar]![Form1]![Açılan Kutu0])

Açılan kutuyu boşalttığınızda tüm veriler görünür.

İyi çalışmalar

 

[kkoksal]

Sayın Modalı
Cevabınız için teşekkürler ama bi sorun var her hangi bir seçim yaptığımda tekrar tüm veriyi gösteremiyorum bunu nasıl yapabilirim.

 

[modalı]

Açılan kutudaki seçimi silin (kutuyu boşaltın) ve dışına tıklayın.

 

[kkoksal]

satır kaynağı böşümüne * işareti koyduramazmıyız

 

[beab05]

Merhaba;

Açılan kutunun satır kaynağına şu kodu yazınız;

SELECT [tbl Toner2].Statü FROM [tbl Toner2] UNION Select " Hepsi" as Statü  From [tbl toner2]   ORDER BY [tbl Toner2].Statü;

ve açılan kutunun güncelleştirme sonrasına ise şu kodu yazınız;

Private Sub Açılan_Kutu0_AfterUpdate()
If Me.Açılan_Kutu0 = " Hepsi" Then
Me![Açılan Kutu0].Value = "*"
End If
[tbl Toner2 alt formu].Requery
End Sub

 

[modalı]

Sayın kkoksal,

Sayın beab05 ve benim çözümlerini beraber şöyle kullanabilirsiniz:

Açılan kutunun veri kaynağını

SELECT [tbl Toner2].Statü FROM [tbl Toner2] UNION Select " Hepsi" as Statü  From [tbl toner2]   ORDER BY [tbl Toner2].Statü;

olarak değiştirin varsayılan değerini

" Hepsi"

yapın.

Alt formnun veri kaynağını da:

SELECT [tbl Toner2].KOD, [tbl Toner2].Ünvan, [tbl Toner2].Parça, [tbl Toner2].[Seri no], [tbl Toner2].İsim, [tbl Toner2].Açıklama, [tbl Toner2].Gün, [tbl Toner2].Ömür, [tbl Toner2].Çekilen, [tbl Toner2].Statü FROM [tbl Toner2] WHERE ((([tbl Toner2].Statü)=IIf(Formlar!Form1![Açılan Kutu0]=" Hepsi",[Statü],Formlar!Form1![Açılan Kutu0])));

olarak değiştirin.

İyi çalışmalar

 

[kkoksal]

Sayın modalı ve Sayın beab05
İlginize teşekkürler ama beceremedim ikinizin gönderdiği örnekleri de beceremediğime göre tüm kusur bende artık 50 yaşında olan biri olarak bazı yeni şeyleri galiba kavrayamıyorum. Lütfen bu konuda örneği yollayabilirmisiniz.
Teşekkürler

 

[modalı]

Sayın kkoksal,

Örnek ekte.

İyi çalışmalar