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
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.
