Formda Süz İşlemi

18/12/2023, 15:51

edacan19

Arkadaşlar formda birkaç harf ile süzme işlemi yapmak istiyorum. Site içerisinde aradım aşağıdaki kodu buldum

Sub Suzgec3()
Dim Suz As String
DoCmd.RunCommand acCmdRemoveFilterSort
If InStr(1, Me.Metin131, "*") = 0 Then Suz = Suz & "[Eser Adı]='" & Me.Metin131 & "' And " Else Suz = Suz & "[Eser Adı] Like '*" & Me.Metin131 & "*' And "
Me.Filter = Mid(Suz, 1, Len(Suz) - 4)
Me.FilterOn = True
End Sub


metin131 alanına mehmet yazdığımda eser adı alanında mehmet yazanları getiriyor.
metin131 alanına meh yazdığımda eser adı alanındaki meh içeren tüm kayıtlar gelsin istiyorum fakat yapmıyor.
18/12/2023, 16:20

berduş

If InStr(1, Me.Metin131, "*") = 0 Then Suz = Suz & "[Eser Adı]='" & Me.Metin131 & "' And " Else Suz = Suz & "[Eser Adı] Like '*" & Me.Metin131 & "*' And "
neden en sonda and var?
sondaki And ler fazla gibi geldi, onları silip dener misiniz?
Not: lütfen her soruya örnek dosya ekleyin
19/12/2023, 09:37

edacan19

İlk mesajıma örnek ekledim. And leri kaldırdım fakat olmadı.
19/12/2023, 13:35

berduş

(18/12/2023, 16:20)berduş yazdı: sondaki And ler fazla gibi geldi
kusura bakmayın dikkatimden kaçmış Me.Filter = Mid(Suz, 1, Len(Suz) - 4) kodu ile zaten sondaki and siliniyormuş
eklediğiniz dosyayı inceledim kod sorusuz çalışıyor
Not: kodda tek sorun önce gereksiz yere and ekleyip sonra da onu almamak için gereksiz işlem yapması
aslında aşağıdaki kod yeterliydi
Sub Suzgec2()
Dim Suz As String
DoCmd.RunCommand acCmdRemoveFilterSort
If InStr(1, Me.Metin5, "*") = 0 Then Suz = Suz & "[Eser Adı]='" & Me.Metin5 & "'" Else Suz = Suz & "[Eser Adı] Like '*" & Me.Metin5 & "*'"
Me.Filter = Suz
Me.FilterOn = True
End Sub

Not 2: yada çok daha basiti tek kodun kullanılması
mesela aşağıdaki kodu kullanırsanız
Sub Suzgec2()
Dim Suz As String
DoCmd.RunCommand acCmdRemoveFilterSort

Suz = "[Eser Adı] Like '*" & Me.Metin5 & "*'"
Me.Filter = Suz
Me.FilterOn = True
End Sub

"ahmet"'i arıyorsanız sadece "ahmet"
"ah" ile başlayanları aramak için "*ah"
"ah" ile bitenleri aramak için "a*h"
"ah" içerenleri aramak için "*ah*"
gibi yaparsanız çok daha esnek olur
19/12/2023, 13:46

edacan19

İkinci verdiğiniz kod tam aradığım gibi çok teşekkür ediyorum.
Elinize emeğinize sağlık.
19/12/2023, 14:14

berduş

rica ederim
iyi çalışmalar)