Soru Listview da optionbutton lar ile filtre yapıp excell sayfasına aktarma?

[s.savas]

Merhaba arkadaşlar.
Ekli çalışmamda veritabanından listview'a verileri alıyorum. Ancak optionbuttonlar ile filtre yapıp filtrelenen veriyi excell sayfasına aktaramadım.
Şöyle ki:
Optionbutton4: tıklanınca listview1 subitems (8) kolonuna bakacak, veri girilmiş ise girilmiş verileri filtreleyecek.
Optionbutton5: tıklanınca listview1 subitems (8) kolonuna bakacak, veri girilmemiş ise girilmemiş verileri filtreleyecek.
Optionbutton6: tıklanınca listview1 subitems (12) kolonuna bakacak, veri girilmiş ise girilmiş verileri filtreleyecek.
Optionbutton7: tıklanınca listview1 subitems (12) kolonuna bakacak, veri girilmemiş ise girilmemiş verileri filtreleyecek.

Aynı prosedürle veya bir buton ile filtrelenen veri boş excell sayfasına aktarılacak.
Yardımcı olacak arkadaşlara minnettar olurum.

 

[s.savas]

Merhaba arkadaşlar.
Dosyamda çeşitli revizeler yaptım ve filtre olayını kendimce çözdüm. Ancak bir noktada takıldım çözüm bulamadım.
Yeni kayıt yaparken bir kural koyuyorum ve bu kural gerçekleşirse veritabanındaki ilgili alana kayıt yaptırmak istiyorum.
Kuralım şu:
Eğer textbox6 da veri yoksa takip_talep tablosundaki talep_sonucu alanına "Satınalmaya Gitmedi" gibi bir veri yazılsın.
Kural normalde veri güncellemesi kodlarında çalışıyor ancak yeni kayıt kodunda çalışmadı.
Yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub cmdKAYDET_Click()

If Not FrameTest Then Exit Sub

If OptionButton1.Value = True Then 'Yeni Kayıt


Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

If ComboBox1.Text = "" Then
ComboBox1.SetFocus
MsgBox ("Lütfen Talebin Geldiği Birimi Seçin ..."), vbInformation, "Süleyman SAVAŞ"
Exit Sub
End If
 
rs.Open "select top 1 * from talep_takip ", baglan, 1, 2
rs.AddNew
rs("talep_no") = TextBox1.Text
rs("talebi_yapan_birim") = ComboBox1.Value
rs("talebin_turu") = ComboBox2.Value
rs("talebin_konusu") = TextBox2.Value
rs("talebin_barkod_numarasi") = TextBox3.Value
rs("talebin_gelis_tarihi") = TextBox4.Value
rs("talebin_gelis_yontemi") = TextBox5.Value

If TextBox6.Value = True Then
rs("talep_sonucu") = "Satınalmaya Gitmedi"
End If

rs("islem_tarihi") = tarih.Value
rs("kullanici") = Sheets("AYARLAR").Range("AY1")
rs("pc_adi") = pc_adi.Value
rs("local_ip") = local_ip.Value
'rs("public_ip") = public_ip.Value
rs("mac_adresi") = mac_adr.Value
rs.Update

 
MsgBox TextBox2 & " adlı kayıt başarı ile yapıldı.", , "Süleyman SAVAŞ"

rs.Close
temizle
listeye_al
End If

If OptionButton2.Value = True Then 'Güncelle
If TextBox2.Text = "" Then
TextBox2.SetFocus
MsgBox ("Lütfen Listeden çift tık ile kişi seçin ..."), vbInformation, "Süleyman SAVAŞ"
Exit Sub
End If

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI
    rs.Open "select * from talep_takip where talep_takip.KIMLIK like '%" & txKimlik.Text & "%'", baglan, 1, 2

If rs.RecordCount > 0 Then
rs("talep_no") = TextBox1.Text
rs("talebi_yapan_birim") = ComboBox1.Value
rs("talebin_turu") = ComboBox2.Value
rs("talebin_konusu") = TextBox2.Value
rs("talebin_barkod_numarasi") = TextBox3.Value
rs("talebin_gelis_tarihi") = TextBox4.Value
rs("talebin_gelis_yontemi") = TextBox5.Value
rs("talebin_satinalmaya_gidis_tarihi") = TextBox6.Value

If TextBox6.Value = True Then
rs("talep_sonucu") = "Satınalmaya Gitti"
End If

rs("talebin_satinalmaya_gidis_yontemi") = TextBox7.Value
rs("talebin_satinalmaya_gidis_barkodu") = TextBox8.Value
rs("talebin_neticesi") = ComboBox3.Value
rs("talebin_satinalma_sonuclanma_tarihi") = TextBox10.Value

 
rs("islem_tarihi") = tarih.Value
rs("kullanici") = Sheets("AYARLAR").Range("AY1")
rs("pc_adi") = pc_adi.Value
rs("local_ip") = local_ip.Value
'rs("public_ip") = public_ip.Value
rs("mac_adresi") = mac_adr.Value

    rs.Update
    MsgBox TextBox2 & " adlı kayıt başarı ile güncellendi.", , "Süleyman SAVAŞ"
End If
    rs.Close
    listeye_al
    temizle
End If

If OptionButton3.Value = True Then 'Sil
If Label58 = "2" Then
MsgBox ("Kısıtlı kullanıcılar işlem yapamaz")
Exit Sub
End If
On Local Error Resume Next
Dim nosil As Integer
Dim perno As String

If txKimlik = "" Then
    MsgBox "Önce listeden çift tıklayarak bir veri seçin.", vbCritical + vbOKOnly, "Süleyman SAVAŞ"
    Exit Sub
End If

Dim kimlik As Integer
kimlik = txKimlik

perno = UserForm1.Controls("txKimlik").Value
sor = MsgBox(TextBox2 & " isimli kayıt silinecek. " & Chr(10) & "Devam edeyim mi ?", vbYesNo + vbCritical + vbDefaultButton2, "Dikkat")
If sor = vbNo Then Exit Sub

Call BAGLANTI
Set rs = baglan.Execute("DELETE FROM talep_takip WHERE KIMLIK=" & kimlik)

Set baglan = Nothing: Set rs = Nothing:
MsgBox TextBox2 & " Kayıt silindi.", vbInformation + vbOKOnly, "Süleyman SAVAŞ"

listeye_al
temizle
End If
End Sub