26/03/2020, 01:17
Metin kutusunun içindeki kaydı silebilir miyiz.? Şöyle kodu çalışmama entegre etmek istiyorum?
metin kutusunun adı: txtadsoyad
Tablo adı: tbl_ogrenciler
tablodaki alan adi: adi_soyadi
metin kutusunun adı: txtadsoyad
Tablo adı: tbl_ogrenciler
tablodaki alan adi: adi_soyadi
Dim GItem As Variant
For Each GItem In txtadsoyad.ItemsSelected
If MsgBox(Me.txtadsoyad(GItem) & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE adi_soyadi FROM tbl_ogrenci WHERE (((adi_soyadi)='" & Me.txtadsoyad.ItemData(GItem) & "'))"
DoCmd.SetWarnings True
End If
Next GItem