AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Silinecek Veri Seçilmeden Sil Butonuna Tıklanması

12/09/2019, 13:17

untouchable

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.
12/09/2019, 13:57

berduş

If Me.lstMalzeme.ItemsSelected.Count < 1 Then Exit Sub
"If MsgBox("" & Me.lstMalzeme.Column(2)..." kodunun hemen üstüne ekleyerek dener misiniz? ""
12/09/2019, 14:23

untouchable

(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