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.