Main Menü Harfe Göre Arama Ve Formu Açma

ekteki örnekte main menüde satılan araçları açıyorsun aşağıdaki harfe göre süzme işlemi yapmıyor ve form aç deyince ayrı form açıyor onun yerine yine main menü olarak nasıl açılır. teşekkür ederim.

not:ayrı form olarak açınca harf süzmesi yapıyor

Merhaba, alt forma filtre ekleyerek bu işlemi yapamazsınız.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

Ayrıca, Yapılmaması Gereken Ölümcül Hatalar

Sayın Ozan Hocam,
Harfe göre süzme yapıyor fakat  "tümünü aç" tıklayınca hepsi kayboluyor. Birde olmayan harfe tıklayınca uyarı verebilir mi? Teşekkür ederim.

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.

Sayın Ozan Hocam
Şimdi işlem tamam fakat olmayana uyarı veriyor. Uyarıda "İSTENİLEN KRİTERE UYGUN İSİM BULUNAMADI,TÜM KAYITLAR GÖSTERİLECEK" diyor fakat tüm verileri göstermiyor boş ekran geliyor.

Merhaba, 

Case 30 kodunun altına 200 yaz,

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

goto 200 kodu yaz.