[VBA] Silme Problemi Hk.

aktepes · 08-05-2020, 21:01

Merhaba,
Bir konuda sizden talebim olacaktır. Şöyle ki aşağıdaki kodlama sorunsuz çalışıyor. Silme işlemlerinde listeden seçim yapılmadığı zaman silme işlemi gerçekleşmiyor ve uyarı veriyor. Ancak benim istediğim; listeden seçim olmadığı zaman sadece 'Listeden Kayıt Seçiniz' uyarısının gelmesi , seçim yapılmış ve BORC>0 ise sadece "Borç Görünen Kayıt Silinemez" uyarısının gelmesi. Kodlamada nasıl bir yol izlemem gerekir? Şimdiden yardımlarınız için teşekkürler.

Private Sub Komut57_Click()
Me.Liste47.Visible = False
Dim SAV As Long, LES As Long
For SAV = 1 To Me.Liste63.ListCount
If Me.Liste63.Selected(SAV) And BORC = 0 = True Then LES = LES + 1
If SAV = 1 And BORC > 0 Then MsgBox "Borç Görünen Kayıt Silinemez", vbExclamation, ""
Next SAV
If LES = 0 Then
MsgBox "Listeden Kayıt Seçiniz", vbExclamation, ""
Else
If MsgBox("Seçili Kayıt Silinsin mi?", vbCritical + vbYesNo, "") = vbYes Then CurrentDb.Execute "delete * from Tablo1 where Kimlik=" & Liste63
Liste63.Requery
End If
End Sub

dsezgin · 09-05-2020, 03:40

Visual Basic
Option Compare Database
Private Sub Komut2_Click()
Dim Ctl As Variant, Sec As String
If Me.Liste63.ItemsSelected.Count = 0 Then MsgBox "Listeden Kayýt Seçiniz", vbExclamation, "": Exit Sub
For Each Ctl In Me.Liste63.ItemsSelected
Sec = Sec & Me.Liste63.Column(0, Ctl) & ","
Next Ctl
If MsgBox("Seçili Kayýt Silinsin mi?", vbCritical + vbYesNo, "") = vbYes Then
Sec = Mid(Sec, 1, Len(Sec) - 1)
CurrentDb.Execute "delete * from Tablo1 where Kimlik In(" & Sec & ") And BORC=0"
Liste63.Requery
End If
End Sub
Private Sub Liste63_AfterUpdate()
Dim sw As Long
sw = Me.Liste63.ListIndex
If Me.Liste63.Column(1) > 0 Then MsgBox Me.Liste63.ListIndex & " Borç Görünen Kayýt Silinemez", vbExclamation, ""
'1=>"BORC" Sorgudaki sirasi
End Sub

Prosedurleri ile yapilabilir.

aktepes · **Kayıt Tarihi:** 20.04.2020

Teşekkürler bilgi için, ancak Liste 'ye alt komut (AfterUpdate) verildiği zaman Form'da normal işlem yaparken de Silme Uyarısı geliyor. Bununla ilgili bu yol üzerinden düzenlemeye çalışacağım. Eğer sonuç alamazsam tekrar size danışacağım.
Teşekkürler

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Dsum Yavaslik Problemi	Serdarcann	1	208	10-10-2025, 01:08 Son Mesaj: dsezgin
	Liste Arama Kutusundan Kayıt Silme	CarpeDiem	12	863	21-07-2023, 10:31 Son Mesaj: onur_can
	[VBA] Iki Tablo Arasında Eşleşmeyen Kayıtları Bulup Kayıttaki Dosyaları Ve Datayı Silme	Mr.Midnight	3	616	22-11-2022, 15:09 Son Mesaj: alperalper
	Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme	Mr.Midnight	2	556	19-11-2022, 22:46 Son Mesaj: alperalper
	Access Te Tabloya Eklenen Verileri Forma Konulan Bir Butonla Silme	kursun	4	582	10-11-2022, 21:29 Son Mesaj: kursun
	[FONKSiYON] çok Sayıda Silme Sorgusunu Tek Butonda çalıştırma	Ahmet51	2	414	08-11-2022, 17:48 Son Mesaj: Ahmet51
	Yoklama Defterinde Ay Ve Yıl Problemi	omergenc7	16	1.311	22-09-2022, 13:54 Son Mesaj: omergenc7
	[SORGU] Son 10 Kayıt Hariç Tabloda Satır Silme	hedefkaya	9	841	03-09-2022, 17:59 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL