Çerçeve99'un güncelleştirme sonrasında olayına aşağıdaki kodu ekle, tıklandğında olayına değil.
Select Case Çerçeve99.Value
Case 1
Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE (((fat_bag)=0) AND (([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"
Case 2
Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE (((fat_bag)<> 0) AND (([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"
Case 3
Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE ((([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"
End Select
Me.Listekutusu.Requery