Merhaba, önceki mesajda eklediğim örnekte mdl_HarfeGoreArac isimli modül kullanılıyor. Bu modülde harfleri sadece O harfine yani 18'e kadar ekledim. Kalanı sizin eklemeniz gerekiyor.

Tümü için 30'u da ekledim, ayrıca boş kayıt için uyarı mesajı vermesi için düzenleme yaptım.

Modüldeki kodların son hali aşağıdaki gibidir.

Option Compare Database

Option Explicit



Function Func_HarfeGoreArac_harfler()

On Error GoTo Func_HarfeGoreArac_harfler_Err



Dim GKriter As String

Dim rs As DAO.Recordset





    With CodeContextObject

     

     

    Select Case .ALFABE.Value

    

    Case 1

    GKriter = "((Arac.Arac_Cinsi) Like '[A]*') AND"

    

    Case 2

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

    

    Case 3

    GKriter = "((Arac.Arac_Cinsi) Like '[C]*') AND"

    

    Case 4

    GKriter = "((Arac.Arac_Cinsi) Like '[Ç]*') AND"

    

    Case 5

    GKriter = "((Arac.Arac_Cinsi) Like '[D]*') AND"

    

    Case 6

    GKriter = "((Arac.Arac_Cinsi) Like '[E]*') AND"

    

    Case 7

    GKriter = "((Arac.Arac_Cinsi) Like '[F]*') AND"

    

    Case 8

    GKriter = "((Arac.Arac_Cinsi) Like '[G]*') AND"

    

    Case 9

    GKriter = "((Arac.Arac_Cinsi) Like '[Ğ]*') AND"

    

    Case 10

    GKriter = "((Arac.Arac_Cinsi) Like '[H]*') AND"

    

    Case 11

    GKriter = "((Arac.Arac_Cinsi) Like '[I]*') AND"

    

    Case 12

    GKriter = "((Arac.Arac_Cinsi) Like '[İ]*') AND"

    

    Case 13

    GKriter = "((Arac.Arac_Cinsi) Like '[J]*') AND"

    

    Case 14

    GKriter = "((Arac.Arac_Cinsi) Like '[K]*') AND"

    

    Case 15

    GKriter = "((Arac.Arac_Cinsi) Like '[L]*') AND"

    

    Case 16

    GKriter = "((Arac.Arac_Cinsi) Like '[M]*') AND"

    

    Case 17

    GKriter = "((Arac.Arac_Cinsi) Like '[N]*') AND"

    

    Case 18

    GKriter = "((Arac.Arac_Cinsi) Like '[O]*') AND"

    

    Case 30

    GKriter = ""

    

    End Select

    

    

    .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));"

    

    Set rs = .RecordsetClone

    If rs.RecordCount > 0 Then

    Else

        MsgBox "**İSTENİLEN KRİTERE UYGUN İSİM BULUNAMADI,TÜM KAYITLAR GÖSTERİLECEK***", vbOKOnly

    End If

    

    

    .Requery



    End With

    

  





Func_HarfeGoreArac_harfler_Exit:

    Exit Function



Func_HarfeGoreArac_harfler_Err:

    MsgBox Error$

    Resume Func_HarfeGoreArac_harfler_Exit



End Function

 
Select case içerisindeki kodları 18'den 30'a kadar tamamlamanız gerekiyor.