اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


beLaL 100
إذهب إلى أفضل إجابة Solved by Shivan Rekany,

الردود الموصى بها

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

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

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

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

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

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

1.rar

2.rar

رابط هذا التعليق
شارك

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

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

2.rar

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة
في ٤‏/٤‏/٢٠٢٠ 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

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information