Listview de seçilen satırın mdb databaseden silinmesi

[ogoktas]

Herkese merhaba ,
İstediğim userformda hepsini şeç butonundan sonra listview'e gelen bilgilerden seçilen satır veya satırların access databaseden silinmesi işlemi.
konuyla ilgili dosyalar ektedir.
yardımlarınız için çok teşekkürler. iyi çalışmalar.

 

[ogoktas]

herkese tekrar merhaba,
konu ile ilgili bir çözüm önerisi olan var mı acaba?
ilginiz için teşekkürler

 

[halit3]

baya uğraştım küçük bir çözüm buldum.

bu kadu denermisiniz.

Private Sub CommandButton16_Click()
For i = 1 To Liste.ListItems.Count 'Sıra numarası için dönüyor
If Liste.ListItems(i).Checked = True Then
yer = Liste.ListItems(i).ListSubItems(1).Text
On Error Resume Next
Set rs = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [ocak] ORDER BY departman "
rs.Open strSQL, adoCN, 1, 3
rs.MoveFirst
Do While Not rs.EOF
If yer = rs(1) Then
rs.Delete
End If
rs.MoveNext
Loop
Set rs = Nothing
End If
Next i
CommandButton14_Click
End Sub

 

[ogoktas]

sayın Halit3 tekrar merhaba,
ilginiz için çok teşekkür ederim, fakat kodu uygulayınca tüm verilerim silindi sadece istediğim satır değil. bununla ilgili farklı bir öneriniz var mı acaba?
tekrar teşekkürler. iyi akşamlar.

 

[halit3]

sayın Halit3 tekrar merhaba,
ilginiz için çok teşekkür ederim, fakat kodu uygulayınca tüm verilerim silindi sadece istediğim satır değil. bununla ilgili farklı bir öneriniz var mı acaba?
tekrar teşekkürler. iyi akşamlar.

dosya bende güzel çalıştı

 

[ogoktas]

hocam çok teşekkürler. şuan çalışıyor. ilgin ve yardımın için birkez daha teşekkür ederim.
iyi akşamlar.

 

[ogoktas]

Halit3 hocam tekrar slm,
listview'de checkbox'ı seçince sadece seçilen satır siliniyor. fakat checkbox aktif edilmezse tüm veriler siliniyor. fakat checkbox ile satır seçildiğinde ise bir üstteki veri seçilmiş gibi görünüyor. bu normal bir durum mudur?
ayrıca listview'de chekbox kullanmadan sadece istediğimiz satırı silme şansımız var mı?
tekrar teşekkürler.

 

[halit3]

dosyana eklemeler yaptım Microsoft Office Access' e yabancıyım bu dosyada soracığın soruları yeni konu başlığı altında Access bölümünden sormanı tavsiye ederim.
iyi çalışmalar.

 

[ogoktas]

çok teşekkür ederim. ellerinize saglık. size de iyi çalışmalar. kolay gelsin.

 

[ogoktas]

hocam tekrar slm,
peki kaydedeceğim bilginin mükererer olmaması için ne yapabilirim. biliyorsunuz ki database access . istediğim kayıt mevcut ise msjbox ile msj oluşturbileyim. bunu yapma şansım varmıdır?
tekrar teşekkür ederim.

 

[halit3]

dosyayı yeniden derledim mükerrer kayıtlar SKU_NO 1. sütunda kontrol ediyor