personel silme ve arama

Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
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
 

Ekli dosyalar

Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
UserForm2 için ,
Kod:
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.
 
Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
ü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
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
ListBox'ın columncount' unu arttırın belki orada takılıyordur ;)
 
Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
allah razı olsun üstat valla cok isime yaradı peki bu süzme olaylarını comboboxlar icinde uygulayabilirmiyim
cok oldum kusura bakma
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
Aşağıdaki kodları yazın ve Medeni hali ComboBox'ından herhangi birini seçip deneyin.

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

Ekli dosyalar

Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
tesekkurler isin gücün rast gelsin sayenizde gün güne gelistiyiroum
 
Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
ü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?
 
Son düzenleme:
Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
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
 
Son düzenleme:
Katılım
29 Eylül 2007
Mesajlar
21
Excel Vers. ve Dili
eksec
dosyam ektedir en son hali bu bu kodlar hakkında yardımcı olacak bir üstadımız yok mu?
 

Ekli dosyalar

Üst