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.