تعبئة حقل في نموذج فرعي بكبسة زر في نموذج رئيس

[Alhaithm]

في قاعدة البيانات المرفقة يوجد زر طباعة على نموذج رئيس ، أريد أن يقوم هذا الزر بعد الكبس عليه بتعبئة جميع أسطر حقل في نموذج فرعي واسم الحقل Printed وأريد تعبئته بأي قيمة 

مع تحياتي وتقديري

DataUpdate.rar

[بحار الاكسس]

بعد الضغط على طباعة اضغط tab

اتفضل التعديل التعديل لو عجبك التعديل اضغط like

DataUpdate.rar

[Alhaithm]

مع شكري وتقديري

هذا لا يفيد مع كل كبسة زر Print  لازم تعمل Tab

وكان مطلبي واضح كبسة زر واحدة تعبأ جميع الحقول مرة واحدة

[بحار الاكسس]

اتفضل التعديل اضغط على طباعة ثم اذهب على واضغط F5

DataUpdate.rar

تم تعديل مايو 1, 2016 بواسطه بحار الاكسس

[ابوخليل]

السلام عليكم 

وبعد اذن بحار جزاه الله خيرا

تفضل ضع الكود  في حدث زر  الطباعة 

Me.Refresh
Dim r, i As Integer
Dim rs As Recordset
Set rs = Me.SExtendedDetails3.Form.RecordsetClone
rs.MoveLast
r = rs.RecordCount
rs.MoveFirst
For i = 1 To r
rs.Edit
rs!Printed = "s"
rs.Update
rs.MoveNext
Next
rs.Close
Set rs = Nothing

سيتم تعبئة الحقول بحرف s  ويمكنك تغييره  الى الرقم او النص الذي تريد

[Alhaithm]

شكرا أستاذنا أبو خليل

بعد تركيب الكود أعلاه في الزر Print ظهرت رسالة خطأ عدم وجود حقل لم يتم تنفيذ المطلوب

ياحبذا لو جربت الكود عندك على النموذج المرفوع والإفادة

جزاك الله خيرا

[ابوخليل]

تفضل

DataUp2.rar

[Alhaithm]

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

فراجعت ووجدت أن حقل Printed المقصود تعبئته قد غيرت إسمه ونسيت فلذالك لم يعمل الكود ، فتنبهت وتم الأمر بنجاح ، وقد حليت لي بهذا الكود مشكلة أخرى في نفس النموذج فجذاك الله خيرا وبارك لك.