(15/06/2022, 13:21)berduş yazdı: 1 - sorguya kimlik alanı daTeşekkürler emeğinize sağlık
2 - forma "silme" düğmesi eklendi, Silme kodu
Private Sub BtnSil_Click()
If Me.Liste0.ListIndex < 0 Then MsgBox "kayıt seçilmemiş": Exit Sub
xSil = MsgBox("İlgili Kaydı Silmek istediğinize Emin misiniz?", vbQuestion + vbYesNo + vbDefaultButton2, "Kayıt Silme Uyarısı")
If xSil = vbYes Then CurrentDb.Execute "delete * from sayfa1 where [Kimlik]=" & Me.Liste0.Value: Me.Liste0.Requery
End Sub
Listbox Dan Veri Silme
Bu Konudaki Yorumlar |
Listbox Dan Veri Silme - Yazar: yurdalsldrk - 14/06/2022, 11:44
RE: Listbox Dan Veri Silme - Yazar: berduş - 14/06/2022, 11:58
RE: Listbox Dan Veri Silme - Yazar: yurdalsldrk - 14/06/2022, 20:16
RE: Listbox Dan Veri Silme - Yazar: berduş - 15/06/2022, 13:15
Re: Listbox Dan Veri Silme - Yazar: berduş - 15/06/2022, 13:21
RE: Listbox Dan Veri Silme - Yazar: yurdalsldrk - 15/06/2022, 15:09
RE: Listbox Dan Veri Silme - Yazar: berduş - 15/06/2022, 15:11
|
Konuyu Okuyanlar: