AccessTr.neT
Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - Baskı Önizleme

+- 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ığı: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 (/konu-guncellestirilemedi-su-anda-kilitli-hatasi-3218.html)

Sayfalar: 1 2 3


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - magmar - 13/07/2020

çok teşekkürler


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - berduş - 13/07/2020

rica ederim iyi çalışmalar)


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - magmar - 13/07/2020

şimdi tekrar tabloları inceledim. tblOrder formunda ilgili kaydı silmiş. ama ilişkili tblOrderDetail tablosundaki kayıtları silmemiş. 

biraz daha inceleyim


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - berduş - 13/07/2020

eğer üst kayıt silindiğinde alt kayıtların da silinmesini istiyorsanız tabloları ilişkilendirip oradan ilişkili kayıtları ard arda sil seçeneğini aktifleştirebilirsiniz. Ama dikkatli olun bu durumda üst kaydı silme onayı verdiğinizde alt kayıtları otomatik siler onay istemez!!!
[Resim: do.php?img=10424]


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - magmar - 14/07/2020

aslında öyleydi, tekrar kontrol ettim yine aynı ama şimdi düzeldi Img-grin


RE: Güncelleştirilemedi Şu Anda Kilitli Hatası - 3218 - magmar - 14/07/2020

txtOutPut alanı dolu olduğunda bu hatayı veriyor sanırım. şöyle bir düzenleme yaptım bu sefer de run-time 2046 hatası verdi. alttaki mantıkta bir hata var mıdır sizce?

 
If Me.frmOrderDetail!txtOutPut > 0 Then
MsgBox ("Bu Siparişe Ait Çıkış Yapılmış! Kaydı Silemezsiniz!")
Else

If MsgBox("Kaydı Silmek istediğinizden Emin misiniz?", vbYesNo, "Dikkat") = vbYes Then

DoCmd.RunCommand acCmdDeleteRecord
DoCmd.OpenQuery "srgOrderDelete"
Me.frmOrderDetail!txtRezerve = 0


DoCmd.GoToRecord , , acLast
TumDenetimlerPasif

Exit Sub
Else
Me.Undo
End If
Exit Sub
End If
End Sub