Skip to main content

AccessTr.neT


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

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

Çözüldü #7
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.
Cevapla
Çözüldü #8
Teşekkürler Üstad.

İyi akşamlar
Cevapla
Çözüldü #9
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.
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task