+- 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ığı: Sadece Seçilen Malzemeyi Sildirme (/konu-sadece-secilen-malzemeyi-sildirme.html)
Sayfalar:
1
2
Sadece Seçilen Malzemeyi Sildirme - untouchable - 11/09/2019
Merhabalar,
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 no, malzeme_kodu, malzeme_adi, malzeme_birimi, fiili_stok, kullanılan_miktar, is_emri_detayi FROM kullanici_girisi WHERE (((malzeme_adi)= Eval('[Forms]![malzeme_giris]![lstMalzeme].Column(2)')));")
DoCmd.SetWarnings True
Me.lstMalzeme.Requery
Else
Exit Sub
End If
End SubCvp: Sadece Seçilen Malzemeyi Sildirme - berduş - 11/09/2019
benzersiz ID alanı var mı liste kutusunda, hangi sütunda? Ayrıca "delete " kullanırken tek tek alan yazmanıza gerek yok
"delete from ….." yeterli
Cvp: Sadece Seçilen Malzemeyi Sildirme - untouchable - 11/09/2019
Hocam benzersiz alan kimlik kısmı var sadece
Cvp: Sadece Seçilen Malzemeyi Sildirme - berduş - 11/09/2019
o zaman liste kutusuna kimlik alanını da ekleyip silme işlemini ona göre yapmayı deneyebilirsiniz?
Cvp: Sadece Seçilen Malzemeyi Sildirme - untouchable - 11/09/2019
Hocam Column(2) haricinde değiştirince silme yapmıyor kimlik kısmını Column(0) ekledim ve kodda o şekilde düzelttim fakat silmiyor
Cvp: Sadece Seçilen Malzemeyi Sildirme - berduş - 11/09/2019
"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