aşağıdaki kodları deneyebilirsiniz.
Kod:
Select Case Tercihim
Case 1 'Bütün İşler
KONTROL = "SELECT Servis_Tbl.ID, Servis_Tbl.Cari, Servis_Tbl.Gsm, Servis_Tbl.Urun, Servis_Tbl.Marka, Servis_Tbl.Model, Servis_Tbl.Tutar, Servis_Tbl.Alinan, Servis_Tbl.Kalan, Servis_Tbl.Kayit_Tarihi, Servis_Tbl.Teslim_Tarihi FROM Servis_Tbl WHERE (((Servis_Tbl.Cari) Like Forms!Ana_Frm!Aranan2 & " * ") And ((1)=1)) ORDER BY Servis_Tbl.ID DESC"
Me!Liste.RowSource = KONTROL
Liste.Requery
Liste.Selected(1) = True
Case 2 'Devam Edenler
KONTROL = "SELECT Servis_Tbl.ID, Servis_Tbl.Cari, Servis_Tbl.Gsm, Servis_Tbl.Urun, Servis_Tbl.Marka, Servis_Tbl.Model, Servis_Tbl.Tutar, Servis_Tbl.Alinan, Servis_Tbl.Kalan, Servis_Tbl.Islem_Tarihi, Servis_Tbl.Teslim_Tarihi FROM Servis_Tbl WHERE [Islem_Tarihi] Is Null ORDER BY Servis_Tbl.ID DESC"
Me!Liste.RowSource = KONTROL
Liste.Requery
Liste.Selected(1) = True
Case 3 'Teslim Edilenler
KONTROL = "SELECT Servis_Tbl.ID, Servis_Tbl.Cari, Servis_Tbl.Gsm, Servis_Tbl.Urun, Servis_Tbl.Marka, Servis_Tbl.Model, Servis_Tbl.Tutar, Servis_Tbl.Alinan, Servis_Tbl.Kalan, Servis_Tbl.Kayit_Tarihi, Servis_Tbl.Teslim_Tarihi FROM Servis_Tbl WHERE Teslim_Tarihi Is Not Null ORDER BY Servis_Tbl.ID DESC"
Me!Liste.RowSource = KONTROL
Liste.Requery
Liste.Selected(1) = True