personel silme ve arama

[slhttntgb]

iyi günler forumda gereksiz mesaj kirliliği oluşturmak istiyorum ama kac tane program varsa kodları denedim ama kendi programamıma göre uyarlayamadım en fazla bu hale getirebildim bul ve sil butonunu yapamadım

 

[Tarkan VURAL]

UserForm2 için ,

Private Sub TextBox1_Change()
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Dim con As Object, rs As Object
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=yes"""
Set rs = con.Execute("select * from [sayfa1$] where ucase([ADI SOYADI]) like '%" & UCase(CStr(Me.TextBox1.Text)) & "%'")
Me.ListBox1.Column = rs.getrows
End Sub

Adı Soyadı alanına herhangi bir harf yazımınızda listbox içindekiler filtre edilir.

 

[slhttntgb]

üstat yardımların icin tesekkur ederim ama adı soyadı alanına girdiğim değer evet listbox icindekileri filtreliyor ama sadece a1 sütünündakini yazıyor diğerlerini yazmıyor

 

[Tarkan VURAL]

ListBox'ın columncount' unu arttırın belki orada takılıyordur

 

[slhttntgb]

allah razı olsun üstat valla cok isime yaradı peki bu süzme olaylarını comboboxlar icinde uygulayabilirmiyim
cok oldum kusura bakma

 

[Tarkan VURAL]

Aşağıdaki kodları yazın ve Medeni hali ComboBox'ından herhangi birini seçip deneyin.

Dim con As Object, rs As Object

Private Sub ComboBox1_Change()
Set rs = con.Execute("select * from [sayfa1$] where [MEDENİ HALİ]='" & Me.ComboBox1.Text & "'")
Me.ListBox1.Column = rs.getrows
End Sub

Private Sub TextBox1_Change()
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=yes"""
Set rs = con.Execute("select * from [sayfa1$] where ucase([ADI SOYADI]) like '%" & UCase(CStr(Me.TextBox1.Text)) & "%'")
Me.ListBox1.Column = rs.getrows
Set rs = con.Execute("select distinct([KAN GURUBU]) from [sayfa1$]")
Me.ComboBox3.Column = rs.getrows
Set rs = con.Execute("select distinct([ÇALIŞTIĞI KISIM]) from [sayfa1$]")
Me.ComboBox6.Column = rs.getrows
Set rs = con.Execute("select distinct(EHLİYETİ) from [sayfa1$]")
Me.ComboBox4.Column = rs.getrows
Set rs = con.Execute("select distinct(GÖREVİ) from [sayfa1$]")
Me.ComboBox7.Column = rs.getrows
Set rs = con.Execute("select distinct([ÖĞRENİM DURUMU]) from [sayfa1$]")
Me.ComboBox5.Column = rs.getrows
Set rs = con.Execute("select distinct([MEDENİ HALİ]) from [sayfa1$]")
Me.ComboBox1.Column = rs.getrows
Set rs = con.Execute("select distinct([DOĞUM TARİHİ]) from [sayfa1$]")
Me.ComboBox10.Column = rs.getrows
End Sub

Diğer alanların Change olaylarını da kendiniz geliştirebilirsiniz.
İyi çalışmalar.

 

[esun333]

tasarım güzel elinize sağlık.

 

[slhttntgb]

tesekkurler isin gücün rast gelsin sayenizde gün güne gelistiyiroum

 

[slhttntgb]

üstat görevi combobox change olayı için şu kodu yazdım listboxda bir filtreleme yapıyor ama hangi kritere göre filtreliyr onu anlamadım

Private Sub ComboBox7_Change()
Set rs = con.Execute("select * from [sayfa1$] where [GÖREVİ]='" & Me.ComboBox7.Text & "'")
Me.ListBox1.Column = rs.getrows
End Sub

Bu kod dogrumu?

 

[slhttntgb]

Bu kodu diğer comboboxlar için uyarladım ama şöyle bir durum var öğrenim durumu lise medeni hali evli olanları secince sadece evli olanları dikkate alıyor diğer kriteri dikkate almıyor

 

[slhttntgb]

dosyam ektedir en son hali bu bu kodlar hakkında yardımcı olacak bir üstadımız yok mu?