13/07/2020, 17:41
13/07/2020, 17:44
rica ederim iyi çalışmalar)
13/07/2020, 17:45
şimdi tekrar tabloları inceledim. tblOrder formunda ilgili kaydı silmiş. ama ilişkili tblOrderDetail tablosundaki kayıtları silmemiş.
biraz daha inceleyim
biraz daha inceleyim
13/07/2020, 18:01
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!!!
14/07/2020, 08:13
aslında öyleydi, tekrar kontrol ettim yine aynı ama şimdi düzeldi
14/07/2020, 08:53
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
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