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ı: 23)
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.


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
Task