[FORM] Form süzme

dsezgin · 04-03-2015, 13:01

deneme_3.3.15.rar (Boyut: 55,09 KB / İndirilme: 94) ornegi inceleyebilirsiniz.

53rize · 04-03-2015, 14:06

Sayın dsezgin83260
Öncelikle çok teşekkür ederim ilgilendiğiniz için, Burada şöyle hata veriyor.
harfleri girdiğimde süzme işlemini yaptıktan sonra harfleri teker teker silip sonra en son harfide sildiğimde hata veriyor. kod sayfasına gönderiyor.

Birde sizden ricam. harfleri yazdığımda enter tuşuna değilde, dinamik olsa yani her harfi yazdığımda süzme işlemini yapsın. çok teşekkür ederim sizlere. saygılarımla.

dsezgin · 04-03-2015, 14:49

Sn 53rize;
Suzme kodunun basina
on error resume next
yazin.
Harflere basildiginda ilk ornekte ki kodlari, son ornek ile birlestirilebilir.

53rize · 04-03-2015, 15:13

Sayın dsezgin83260

O hatada giderildi.
Birde bunu enter tuşuna vurarak değilde, dinamik olararak süzme yaptırabilirmiyiz.
İlgininizden dolayı çok teşekkür ederim. saygılarımla.

dsezgin · 05-03-2015, 01:45

Sn 53rize; Formun VBA bolumu basina kodlari tasiyin.

Visual Basic
Dim Sr As String
Private Sub Sr_adısoyadı_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Sr = ""
End Sub
Private Sub Sr_bölgesi_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Sr = ""
End Sub
Private Sub Sr_referansı_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Sr = ""
End Sub
Private Sub Sr_adısoyadı_KeyUp(KeyCode As Integer, Shift As Integer)
Dim NesAdi As String
NesAdi = "Sr_adısoyadı"
If Eval(KeyCode & " Not In(8,46)") Then
    Sr = Sr & Chr(KeyCode)
    Me.Controls(NesAdi) = Sr
    Call Bul(NesAdi, Sr)
    Me.Controls(NesAdi).SetFocus
    Me.Controls(NesAdi).SelStart = Len(Sr)
Else
    Sr = "": Me.Controls(NesAdi) = ""
    Me.Filter = "": Me.FilterOn = True
End If
End Sub
Private Sub Sr_bölgesi_KeyUp(KeyCode As Integer, Shift As Integer)
Dim NesAdi As String
NesAdi = "Sr_bölgesi"
If Eval(KeyCode & " Not In(8,46)") Then
    Sr = Sr & Chr(KeyCode)
    Me.Controls(NesAdi) = Sr
    Call Bul(NesAdi, Sr)
    Me.Controls(NesAdi).SetFocus
    Me.Controls(NesAdi).SelStart = Len(Sr)
Else
    Sr = "": Me.Controls(NesAdi) = ""
    Me.Filter = "": Me.FilterOn = True
End If
End Sub
Private Sub Sr_referansı_KeyUp(KeyCode As Integer, Shift As Integer)
Dim NesAdi As String
NesAdi = "Sr_referansı"
If Eval(KeyCode & " Not In(8,46)") Then
    Sr = Sr & Chr(KeyCode)
    Me.Controls(NesAdi) = Sr
    Call Bul(NesAdi, Sr)
    Me.Controls(NesAdi).SetFocus
    Me.Controls(NesAdi).SelStart = Len(Sr)
Else
    Sr = "": Me.Controls(NesAdi) = ""
    Me.Filter = "": Me.FilterOn = True
End If
End Sub
Sub Bul(Sut, SutDeg As String)
Dim Ctrl As Control, Suz As String, FilSec As Long
Me.Filter = ""
For Each Ctrl In Me.Controls
    If Ctrl.Properties("ControlType") = 109 And Ctrl.Tag = "Flt" And Ctrl.Name <> Sut Then
        If Ctrl.Value <> "" Then Suz = Suz & "[" & Mid(Ctrl.Name, 4, Len(Ctrl.Name)) & "] like '*" & Ctrl & "*' And "
    ElseIf Ctrl.Properties("ControlType") = 109 And Ctrl.Tag = "Flt" And Ctrl.Name = Sut Then
        If Ctrl.Value <> "" Then Suz = Suz & "[" & Mid(Sut, 4, Len(Sut)) & "] like '*" & SutDeg & "*' And "
        FilSec = 1
    End If
Next Ctrl
Me.Filter = IIf(FilSec > 0, Mid(Suz, 1, Len(Suz) - 4), "")
Me.FilterOn = True
End Sub

53rize · 05-03-2015, 09:51

sadece bölgesi kısmı istediğim gibi düzgün filitreleme yapıyor. Referans kısmı hata veriyor. Referans kısmı çalışmıyor. Adı soyadı enterle filitreleme yapıyor. Bilginize.
İlgi ve alakanızada çok teşekkür ederim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Teslim Tarihi Alanına Göre Süzme, Filtreleme	programmer67	14	1.035	09-05-2024, 23:27 Son Mesaj: programmer67
	Dsum Ile Toplam Alırken Tarih Aralığınıda Süzme Yaptırma Sorunu	kesoka	2	541	07-04-2024, 16:13 Son Mesaj: kesoka
	Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası	OGUZTURKYILMAZ	3	674	13-04-2023, 23:39 Son Mesaj: OGUZTURKYILMAZ
	[SORGU] Yanlış Sütun Bilgisi Gelmesi Ve Raporda Ikincil Süzme Sorunu	derzulya	2	413	08-11-2022, 15:33 Son Mesaj: derzulya
	[RAPOR] Açılır Kutu Seçeneğine Göre Süzme	derzulya	1	438	25-10-2022, 18:16 Son Mesaj: derzulya
	Veri Takibi Ve Veriyi Süzme	mgunes	12	1.835	04-03-2020, 16:59 Son Mesaj: mgunes
	Açılan Kutuya Tümü Seçeneği Ekleyip Alt Formda Süzme	adnan	2	694	12-11-2019, 09:58 Son Mesaj: adnan
	[SORGU] sorguda 2 tarih arası Tarihi Geçmeyenleri süzme	haziran4	3	806	22-04-2019, 13:57 Son Mesaj: haziran4

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL