VBA tagları arasında yazınca ne kadar rahat okunur oldu Bir kriter daha eklemek istiyorsunuz. Bu kriteri Else If olarak mı yoksa Sql kodu olarakmı soruyorsunuz?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Sn:sedat76
Örneği aldığınız yerde sadece bir kritere göre listeleme yapmaktadır.Yani sadece iki tarih arasınını listeler.Eğer çoklu kriter eklemeniz gerekirse İf / Else arasına istediğiniz kadar kriter belirliyebilirsiniz.Aşağıdaki Kodları inceleyip kendinize göre uyarlarsınız.
Dim Kriter AsString
Adodc1.Refresh
'Birinci Kriter Adı ve Soyadına göre arama yapar.If Kriter =""Then
Kriter ="Adi_Soyadi='"& txtadisoyadi.Text &"'"Else
Kriter = Kriter &" And Adi_Soyadi='"& txtadisoyadi.Text &"'"EndIfEndIf'İkinci Kriter Tc Kimlik Nosuna göre arama yapar.If txtkimlikno.Text <>""ThenIf Kriter =""Then
Kriter ="Tc_Kimlik_No='"& txtkimlikno.Text &"'"Else
Kriter = Kriter &" And Tc_Kimlik_No='"& txtkimlikno.Text &"'"EndIfEndIf'Üçüncü Kriter Bulunduğu Şehire göre arama yapar.If txtsehir.Text <>""ThenIf Kriter =""Then
Kriter ="Sehir='"& txtsehir.Text &"'"Else
Kriter = Kriter &" And Sehir='"& txtsehir.Text &"'"EndIfEndIfWith Adodc1.Recordset
.Filter = Kriter
If.RecordCount >0Then.Update
EndWithSet VSFlexGrid1.DataSource = Adodc1
PublicFunction Suz()
[TC_KIMLIK_NO] like'" & TxtKimlik.Text & "%' and [EGITIM_YILI] like '" & TxtYil.Text & "%' and [DONEM] like '" & TxtDonem.Text & "%' and [SINIF] like '" & TxtSinif.Text & "%'"If LblSorgu.Caption ="Kursiyer"ThenCall Kursiyer
AdodcKursiyer.RecordSource ="Select * From TBL_KIMLIK where [ADI] like '"& TxtAd.Text &"%' and [SOYADI] like '"& TxtSoyad.Text &"%' and [TC_KIMLIK_NO] like '"& TxtKimlik.Text &"%'"
AdodcKursiyer.Refresh
ElseIf LblSorgu.Caption ="Egitimci"ThenCall Egitimci
AdodcEgitimci.RecordSource ="Select * From TBL_KIMLIK where [ADI] like '"& TxtAd.Text &"%' and [SOYADI] like '"& TxtSoyad.Text &"%' and [TC_KIMLIK_NO] like '"& TxtKimlik.Text &"%'"
AdodcEgitimci.Refresh
ElseIf LblSorgu.Caption ="Yonetici"ThenCall Kursiyer
AdodcKursiyer.RecordSource ="Select * From TBL_KIMLIK where [ADI] like '"& TxtAd.Text &"%' and [SOYADI] like '"& TxtSoyad.Text &"%' and [TC_KIMLIK_NO] like '"& TxtKimlik.Text &"%' and [EGITIM_YILI] like '"& TxtYil.Text &"%' and [DONEM] like '"& TxtDonem.Text &"%' and [SINIF] like '"& TxtSinif.Text &"%' and [EGITIM_TURU] like '"& TxtEgitimturu.Text &"%'"
AdodcKursiyer.Refresh
ElseIf LblSorgu.Caption ="Ders"ThenCall Ders
AdodcDers.RecordSource ="Select * From TBL_DERS where [ADI] like '"& TxtAd.Text &"%' and [SOYADI] like '"& TxtSoyad.Text &"%' and [TC_KIMLIK_NO] like '"& TxtKimlik.Text &"%'"
AdodcDers.Refresh
EndIfEndFunction
Bu site, içeriği kişiselleştirmenize, deneyiminizi uyarlamanıza ve kaydolduğunuzda oturumunuzu açık tutmanıza yardımcı olacak çerezler kullanır. Bu siteyi kullanmaya devam ederek, çerezleri kullanmamıza izin veriyorsunuz.