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

1 2 3
23/03/2018, 18:49

hegu

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
26/03/2018, 16:36

ozanakkaya

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
26/03/2018, 18:37

hegu

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.
26/03/2018, 19:09

ozanakkaya

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.
26/03/2018, 19:19

hegu

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.
27/03/2018, 09:19

ozanakkaya

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.
1 2 3