Skip to main content

AccessTr.neT


Silinecek Veri Seçilmeden Sil Butonuna Tıklanması

Silinecek Veri Seçilmeden Sil Butonuna Tıklanması

Çözüldü #1
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.
Cevapla
#2
If Me.lstMalzeme.ItemsSelected.Count < 1 Then Exit Sub 
"If MsgBox("" & Me.lstMalzeme.Column(2)..." kodunun hemen üstüne ekleyerek dener misiniz? ""
Cevapla
#3
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da