AccessTr.neT
Silinecek Veri Seçilmeden Sil Butonuna Tıklanması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Silinecek Veri Seçilmeden Sil Butonuna Tıklanması (/konu-silinecek-veri-secilmeden-sil-butonuna-tiklanmasi.html)



Silinecek Veri Seçilmeden Sil Butonuna Tıklanması - untouchable - 12/09/2019

Merhaba,

Kod:
If MsgBox("" & Me.lstMalzeme.Column(2) & "  Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "Deneme") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE  FROM kullanici_girisi WHERE  [no]=" & Me.lstMalzeme.Column(0)
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If

Yukarıdaki kod bloğu ile listedeki seçilen malzemeyi sildiriyorum kod çalışıyor fakat hiç bir malzeme seçmeden sil butonuna tıkladıklarında program hata veriyor. Bunu önlemek için ne yapmam gerekiyor.


RE: Silinecek Veri Seçilmeden Sil Butonuna Tıklanması - berduş - 12/09/2019

If Me.lstMalzeme.ItemsSelected.Count < 1 Then Exit Sub 
"If MsgBox("" & Me.lstMalzeme.Column(2)..." kodunun hemen üstüne ekleyerek dener misiniz? ""


RE: Silinecek Veri Seçilmeden Sil Butonuna Tıklanması - untouchable - 12/09/2019

(12/09/2019, 13:57)berduş yazdı:
Kod:
If Me.lstMalzeme.ItemsSelected.Count < 1 Then Exit Sub
  "If MsgBox("" & Me.lstMalzeme.Column(2)..." kodunun hemen üstüne ekleyerek dener misiniz? ""

Hocam çalıştı teşekkürler