Bir tablodaki değeri diğerine aldığımızda 1. nin silinmesi

bu şekilde açılan kutudan yanlış veri seçtiğinizde düzeltemeden Tablo1'den silinecek, kodu aşağıdaki gibi yazarsanız;

If (Me.Dirty = True) Then

If MsgBox("Seçili Veri Tablodan silinsin mi?", vbYesNo, "Onay ...") = vbYes Then

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.SetWarnings False

    DoCmd.RunSQL ("DELETE [BARKOD NO] FROM Tablo1 WHERE ((([BARKOD NO])=[Forms]![FORM1]![BARKODNO]));")

    DoCmd.SetWarnings True

    Else

    Me.Undo

End If

End If

açılan kutudan veri seçtiğinizde silmeden önce sorar, onayınıza göre siler.

Teşekkürler Üstad.

İyi akşamlar

Bu arada #silindi# biçiminde satırlar göreceksiniz. Bunları engellemek için de uygun bir yerde aiağıdaki kodu kullanın.

Me.ADISOYADI.SetFocus
Me.BARKODNO.Requery
Me.BARKODNO.SetFocus

Böylece her ürün silindiğinde açılan kutu yeniden sorgulanır ve sadece tablo 1'de kalanlar görüntülenir.