Skip to main content

AccessTr.neT


Sadece Seçilen Malzemeyi Sildirme

Sadece Seçilen Malzemeyi Sildirme

#6
"kullanıcı_girisi" tablosundaki malzemeyi tanımlayan alanın "Kimlik" alanı olduğu ve liste kutusunda ilk sütunda yer aldığı varsayılmıştır
dilerim işinize yarar
Kod:
Private Sub Komut13_Click()
If MsgBox("" & Me.lstMalzeme.Column(2) & "  Malzemesini Listeden Çıkarmak İstediğinize Emin Misiniz ?", vbCritical + vbYesNo, "VEDAŞ Bakım Onarım") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE  FROM kullanici_girisi WHERE  [Kimlik]=" & me.lstMalzeme.column(0)
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End Sub

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sadece Seçilen Malzemeyi Sildirme - Yazar: untouchable - 11/09/2019, 10:00
Cvp: Sadece Seçilen Malzemeyi Sildirme - Yazar: berduş - 11/09/2019, 13:54
Task