نقل بيانات من عده مربعات نص غير منضمة إلى نموذج فرعي

تفضل :)

أضف السطرين الاول والثاني للكود ، هكذا:

Forms!Process_id!Process_id_sub.SetFocus
DoCmd.GoToRecord , , acNewRec
Forms![Process_id]![Process_id_sub]![item_n] = Me.sh_item_n
Forms![Process_id]![Process_id_sub]![item_name] = Me.sh_item_name

جعفر

أشكرك أخي جعفر ، لكن مازالت المشكلة كما هى لم يقم الكود بإنشاء سجل جديد 

الحمد لله بعد محاولات كثيرة تم التوصل إلى الحل

و المشكلة هي : كيف أجعل النموذج الفرعى يقوم بإضافة سجل جديد عند إضافة بيانات جديدة

الحل : وضع الكود  DoCmd.GoToRecord , , acNewRec

         فى حدث - عند الإدخال - بالنموذج الفرعى فى حالة عرض التصميم للنموذج الرئيسى

تسلم يد من كل سوء أخي جعفر

الكود شغال و كله تمام

:clapping: :clapping:

:plusone: :plusone:

أخي جعفر

ظهرت عندى مشكلة وهى : أن بعد إدراج الأصناف بالنموذج الفرعى يتم حفظ البيانات المدرجة و عند الرجوع الى رقم العملية لا تظهرالسجلات بالنموذج الفرعى ، ولاحظت ان السبب فى ذلك عدم تسجيل رقم العملية مع كل سجل

فما هو الحل بارك الله فيك

حياك الله :)

انا في الواقع استخدمت معادلاتك ، فالظاهر انك لم تكتب هذه المعادلة :(

رجاء إضافة هذا السطر (في اي مكان بين مجموعته :) ) :

rst![id_no] = Forms![Process_id]![id_no]

واخبرني بالنتيجة لوسمحت :)

جعفر

كله تمام يا أخي جعفر

بس لو فيها إزعاج لك ، ممكن أعرف معنى الجذئيتين من الكود

1 / 
'if the Form inter_Process was NOT MODAL, we could have used this simple code
'Forms!Process_id!Process_id_sub.SetFocus
'DoCmd.GoToRecord acActiveDataObject, , acNewRec
'Forms![Process_id]![Process_id_sub]![item_n] = Me.sh_item_n
'Forms![Process_id]![Process_id_sub]![item_name] = Me.sh_item_name
'Forms![Process_id]![Process_id_sub]![commb4] = Me.sh_commb4
'Forms![Process_id]![Process_id_sub]![in] = Me.sh_in
'Forms![Process_id]![Process_id_sub]![out] = Me.sh_out

2 /

'however, we will have to use this code now
' Dim rst As DAO.Recordset
Set rst = Forms!Process_id!Process_id_sub.Form.RecordsetClone

rst.AddNew
rst![item_n] = Me.sh_item_n
rst![item_name] = Me.sh_item_name
rst![unit] = Me.sh_commb4
rst![in] = Me.sh_in
rst![out] = Me.sh_out
rst.Update
rst.Close: Set rst = Nothing

وهل يمكن أن اعتمد على الجذئية الثانية فقط

ولك كل إحترامي و تقديري

اخي الشاذلي

في الكود ، اذا كان اول السطر كلمة rem او الاشارة '

فإنك سترى ان الكتابة في بقية السطر تحول لونها الى اخضر ، وهذا معناه بأن هذا السطر عبارة عن ملاحظات ، ولا يقرأها البرنامج :)

وفي حالة برنامجنا ، فإن القسم الاول لا يعمل ، والقسم الثاني هو الذي يعمل :)

الملاحظة للجزء الاول قلت فيها: بأن هذا الكود الاسهل ، لا نستطيع استعماله ، لانك تستخدم نموذج منبثق ، والذي لا يسمح بان نجعل التركيز على النموذج الفرعي (النموذج المنبثق يحتفظ بالتركيز دائماً ، لهذا السبب هو منبثق).

الملاحظة للجزء الثاني: بسبب ان النموذج الآخر منبثق ولا يمكن وضع التركيز على النموذج الفرعي ، فلهذا السبب فإننا نستخدم طريقة اصعب لعمل الازم :)

جعفر

ربنا يبارك فيك و يزيدك من علمه الذى لا يعلمه إلا غيره

ولك ولمن تحب  إن شاء الله مثل دعواك :)

تحت أمرك يا باشا :)

جعفر