Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.rar mainmenu.rar (Dosya Boyutu: 478,55 KB | İndirme Sayısı: 22)
Cevapla
#2
Merhaba, alt forma filtre ekleyerek bu işlemi yapamazsınız.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

Ayrıca, Yapılmaması Gereken Ölümcül HatalarURL'ye Git
.rar main_menu_sld.rar (Dosya Boyutu: 445,12 KB | İndirme Sayısı: 16)
Cevapla
#3
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.
Cevapla
#4
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.


Visual Basic Code
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.
Cevapla
#5
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.
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da