نموذج ملء اصناف الفاتوره يغلق مع كل صنف

[beLaL 100]

صباح الخير الاخوه الاعضاء والاساتذه المشرفون

اليكم قاعدتين

رقم 1 يتم ملء الفاتوره ببيانات الاصناف ونموذج الملء يظل مفتوح حتي اغلقه

وفي رقم 2 يغلق مع كل صنف واعاود فتحه مرة اخري فأين الخطأ

اود من حضراتكم ان يكون التطبيق النهائي علي القاعده رقم 2 لانها هي المطلوبه الان

وشكرا لحضراتكم

1.rar

2.rar

[beLaL 100]

اجتهدت في الوصول الي الخل فغيرت السطر 'Form.Visible = True الي Form.Visible = True بدون علامة التنصيص فظل الفورم مفتوح ولم يغلق 

ولكن يظل امر اخر متبقي وهو ان ينتقل الادخال في الفاتوره من سجل الي اخر واعتقد انه لن يتم ذلك الا بالامر DoCmd.GoToRecord , , acNewRec
او ما يشابهه الغريب ان هذا الامر يعمل في القاعده رقم 1 فما السبب  

2.rar

[beLaL 100]

للرفع

[beLaL 100]

في ٥‏/٤‏/٢٠٢٠ at 01:02, beLaL 100 said:

اجتهدت في الوصول الي الخل فغيرت السطر 'Form.Visible = True الي Form.Visible = True بدون علامة التنصيص فظل الفورم مفتوح ولم يغلق 

ولكن يظل امر اخر متبقي وهو ان ينتقل الادخال في الفاتوره من سجل الي اخر واعتقد انه لن يتم ذلك الا بالامر DoCmd.GoToRecord , , acNewRec
او ما يشابهه الغريب ان هذا الامر يعمل في القاعده رقم 1 فما السبب  

2.rar 73.52 kB · 31 تنزيلات

اتمني من الاخوة الكرام حل هذه المشكله في اقرب فرصة

[beLaL 100]

للرفع

[beLaL 100]

اقتباس

 

للرفع

[Shivan Rekany]

في ٤‏/٤‏/٢٠٢٠ at 16:02, beLaL 100 said:

اجتهدت في الوصول الي الخل فغيرت السطر 'Form.Visible = True الي Form.Visible = True بدون علامة التنصيص فظل الفورم مفتوح ولم يغلق 

ولكن يظل امر اخر متبقي وهو ان ينتقل الادخال في الفاتوره من سجل الي اخر واعتقد انه لن يتم ذلك الا بالامر DoCmd.GoToRecord , , acNewRec
او ما يشابهه الغريب ان هذا الامر يعمل في القاعده رقم 1 فما السبب  

2.rar 73.52 kB · 51 تنزيلات

حسب ما فهمت انا اتفضل اليك هذا

Private Sub Nu_Vo1_Click()
Forms![Ha_rkat2]![Mharkt2]![Nu_Vo1] = Me![Nu_Vo1]
Forms![Ha_rkat2]![Mharkt2]![na_Br] = Me![na_Br]
Forms![Ha_rkat2]![Mharkt2]![St_ew] = Me![St_ew]
Forms![Ha_rkat2]![Mharkt2]![Di_sp] = Me![Di_sp]
Forms![Ha_rkat2]![Mharkt2]![Le_ng] = Me![Le_ng]
Forms![Ha_rkat2]![Mharkt2]![pr_Pu] = Me![pr_Pu]
Forms![Ha_rkat2].SetFocus
'Forms![Ha_rkat2].Form.SetFocus
Forms![Ha_rkat2]![Mharkt2].SetFocus
DoCmd.GoToRecord , , acNewRec
Me.Form.SetFocus
End Sub

والتعديل على المرفق

 

2.rar