3. Kritere göre sorgulama
Tarih
20/02/2013 17:14
Konu Sahibi
sedat76
Yorumlar
3
Okunma
1894
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Kriter As String
   Adodc4.Refresh
    If Kriter = "" Then
        Kriter = "Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & "'"
    Else
        Kriter = Kriter & " And Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & " 'and  VSFlexGrid11.TextMatrix(0, 20)= '" & (Combo11.Text) & "'"
    End If
    With Adodc4.Recordset
        .Filter = Kriter
        If .RecordCount > 0 Then .Update
        
    End With
    Set VSFlexGrid11.DataSource = Adodc4
    
 Call Kolonlari_Ayarla(VSFlexGrid11)
 






Bu iki tarih arasında listeliyor 3. bir kriter eklemek istersem ne yapmam lazım ?

Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.977
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,15:11
Çözüldü 
VBA tagları arasında yazınca ne kadar rahat okunur oldu Img-grin 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.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim Kriter As String
    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 & "'"
        End If
    End If
    
'İkinci Kriter Tc Kimlik Nosuna göre arama yapar.

    If txtkimlikno.Text <> "" Then
        If Kriter = "" Then
            Kriter = "Tc_Kimlik_No='" & txtkimlikno.Text & "'"
        Else
            Kriter = Kriter & " And Tc_Kimlik_No='" & txtkimlikno.Text & "'"
        End If
    End If
    
'Üçüncü Kriter Bulunduğu Şehire göre arama yapar.

    If txtsehir.Text <> "" Then
        If Kriter = "" Then
            Kriter = "Sehir='" & txtsehir.Text & "'"
        Else
            Kriter = Kriter & " And Sehir='" & txtsehir.Text & "'"
        End If
    End If

    With Adodc1.Recordset
        .Filter = Kriter
        If .RecordCount > 0 Then .Update
    End With
    
    Set VSFlexGrid1.DataSource = Adodc1


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function 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" Then
Call 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" Then
Call 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" Then
Call 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" Then
Call 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
End If
End Function

Cevapla


Çözüldü 
Vaov teşekkürler bunu hiç düşünememiştim :/
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü DataCombo'dakine göre? Iddaa Çadırı BursAnkara 8 2.424 28/05/2011, 23:28 alpeki99
Çözüldü VB 6 Girilen Tarih İle Date Kontroluna Göre Rapor Alma |By|KiDnArUt| 6 3.422 24/05/2011, 18:06 |By|KiDnArUt|
Çözüldü Otopark Çalışan Bilgileri Sorgulama Yarım pls?? tekiner2323 14 3.508 11/05/2011, 23:43 alpeki99
Çözüldü Birden çok değere göre koşul test etme umutap 12 4.077 02/03/2011, 01:35 Bolu14Beyi
Çözüldü 3 Ayrı Combobox değerlerine göre veri çağırmak??? ancyra 18 7.253 19/05/2010, 07:02 toprak33


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya