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
Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı:
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