+- 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ığı: Bir tablodaki değeri diğerine aldığımızda 1. nin silinmesi (/konu-bir-tablodaki-degeri-digerine-aldigimizda-1-nin-silinmesi.html)
Sayfalar:
1
2
Cvp: Bir tablodaki değeri diğerine aldığımızda 1. nin silinmesi - ozanakkaya - 02/01/2012
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 Ifaçılan kutudan veri seçtiğinizde silmeden önce sorar, onayınıza göre siler.
Cvp: Bir tablodaki değeri diğerine aldığımızda 1. nin silinmesi - manager1954 - 02/01/2012
Teşekkürler Üstad.
İyi akşamlar
Cvp: Bir tablodaki değeri diğerine aldığımızda 1. nin silinmesi - mehmetdemiral - 02/01/2012
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.