مشكلة في كود الحفظ عدم اضافة سجل جديد بعد الحفظ

[Bshar]

مساء الخير اصدقائي وزملائي ,,

عندي مشكله عندما اضفت نموذج ms4 الى كود الحفظ في نموذج recept_a_q  لايقوم بفتح سجل جديد والاستمرار  وعند الغاء النموذج الذي اضفته يعمل القيد بشكل طبيعي 

ارجو المساعده منكم

مرفق

test.accdb

[Bshar]

...

[Foksh]

أخي الكريم @Bshar ..

 في الحالتين سيتم فتح سجل جديد عند Yes أو No ، لذا انقل مكان السطر المسؤول عن فتح سجل جديد لما قبل فتح MS4
 

 On Error Resume Next
If [Forms]![recept_a_q]![w1]![n3] <> 0 Then
DoCmd.OpenForm "ms3"
Me.Undo
Else
DoCmd.GoToRecord , , acNewRec
DoCmd.OpenForm "ms4"
Me.mtzn = 1
Me.save = 1
Msg = " ؟ هل تريد طباعة القيد"
Style = vbYesNo
Title = "رسالة تنبيه"
result = MsgBox(Msg, Style, Title)
If result = vbYes Then
DoCmd.OpenReport "recept_qaid", acViewPreview
Else
Me.mtzn = 1
Me.save = 1
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

 

[Bshar]

نعم صحيح في الحالتين سيأخذ سجل جديد ,, اشكرك جزيل الشكر صديقي على نباهتك بارك الله بك 

تم تعديل يناير 16 بواسطه Bshar