daha önce yardımcı olduğunuz kodlar sayesinde düzenlemeye çalıştığım kodlarda bir eksiklik var.
ilk seçenekte fatura_bag= 0 ikincisinde fatura_Bag= sıfır değil üçüncü seçenekte tamamını göstermek istiyorum. veritabanım ektedir.
Yardımcı olur musunuz?
Kod:
Private Sub Çerçeve99_AfterUpdate()
Select Case Çerçeve99
Case 1
Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE(((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0))" & _
"OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0))ORDER BY t_faturalar.fat_tarih DESC;"
Case 2
Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE(((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0))" & _
"OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0))ORDER BY t_faturalar.fat_tarih DESC;"
Case 3
Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE (((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*'))" & _
"ORDER BY t_faturalar.fat_tarih DESC;"
End Select
Me.Listekutusu.Requery
End Sub
