AccessTr.neT

Tam Versiyon: Main Menü Harfe Göre Arama Ve Formu Açma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Emeğine sağlık çok teşekkür ederim.
Function Func_HarfeGore_harfler()
On Error GoTo Func_HarfeGore_harfler_Err

    With CodeContextObject
     
    Select Case .ALFABE.Value
    
    Case 1
    kriter = "A"
    
    Case 2
    kriter = "B"
    
    Case 3
    kriter = "C"
    
    Case 4
    kriter = "Ç"
    
    Case 5
    kriter = "D"
    
    Case 6
    kriter = "E"
    
    Case 7
    kriter = "F"
    
    Case 8
    kriter = "G"
    
    Case 9
    kriter = "Ğ"
    
    Case 10
    kriter = "H"
    
    Case 11
    kriter = "I"
    
    Case 12
    kriter = "İ"
    
    Case 13
    kriter = "J"
    
    Case 14
    kriter = "K"
    
    Case 15
    kriter = "L"
    
    Case 16
    kriter = "M"
    
    Case 17
    kriter = "N"
    
    Case 18
    kriter = "O"
    
    Case 19
    kriter = "Ö"
    
    Case 20
    kriter = "P"
    
    Case 21
    kriter = "R"
    
    Case 22
    kriter = "S"
    
    Case 23
    kriter = "Ş"
    
    Case 24
    kriter = "T"
    
    Case 25
    kriter = "U"
    
    Case 26
    kriter = "Ü"
    
    Case 27
    kriter = "V"
    
    Case 28
    kriter = "Y"
    
    Case 29
    kriter = "Z"
    
     Case 30

    GKriter = ""
    
    End Select
    
    
    .RecordSource = "SELECT Musteri.musteriid, Musteri.M_adi, Musteri.M_Tc, Musteri.M_T1, Musteri.M_T2, Musteri.M_Adres, Musteri.S_Ta, Musteri.M_A_Arac, Musteri.A_Plaka, Musteri.S_Bedeli FROM Musteri;"

    
    
    .Requery

    End With
    
  


Func_HarfeGore_harfler_Exit:
    Exit Function

Func_HarfeGore_harfler_Err:
    MsgBox Error$
    Resume Func_HarfeGore_harfler_Exit

End Function

Bu koda göre neden süzme yapmıyor.
Benim eklediğim kod:

Case 2
GKriter = "((Arac.Arac_Cinsi) Like '[B]*') AND"

sizin uyguladığınız kod:

Case 2
kriter = "B"


Benim eklediğim kod:


 .RecordSource = "SELECT Arac.aracid, Musteri.M_adi, Arac.Arac_Cinsi, Arac.Arac_Mod, Arac.A_Plaka, Arac.Ruh_sa, Arac.R_Tel, Arac.A_Tarihi, Arac.A_Bedeli, Arac.Durumu, Arac.Ara_Dr FROM Arac INNER JOIN Musteri ON Arac.aracid = Musteri.M_A_Arac WHERE " & GKriter & " ((Arac.Ara_Dr=Yes));"

    sizin eklediğiniz kod:


.RecordSource = "SELECT Musteri.musteriid, Musteri.M_adi, Musteri.M_Tc, Musteri.M_T1, Musteri.M_T2, Musteri.M_Adres, Musteri.S_Ta, Musteri.M_A_Arac, Musteri.A_Plaka, Musteri.S_Bedeli FROM Musteri;"

Kodlar aynı değil, sizin uyguladığınız kodda kriter yok.
Ozan Hocam
ben de aslında bende böyle
Case 1

    GKriter = "((Musteri.M_adi) Like '[A]*') AND" yaptım.


Bir türlü kriter belirliyemedim.
SELECT Musteri.musteriid, Musteri.M_adi, Musteri.M_Tc, Musteri.M_T1, Musteri.M_T2, Musteri.M_Adres, Musteri.S_Ta, Musteri.M_A_Arac, Musteri.A_Plaka, Musteri.S_Bedeli FROM Musteri WHERE (((Musteri.M_adi) Like [Forms]![frm_Musteri]![M_adi] & "*"));

bu şekilde yaptım olmadı.
Merhaba,

kodun uygulanmış hali ile örnek uygulamanızı ekleyiniz.
kriter olmadı örneği ekte gönderiyorum. teşekkür ederim.
Sayfalar: 1 2 3