Alhaithm قام بنشر مايو 1, 2016 مشاركة قام بنشر مايو 1, 2016 في قاعدة البيانات المرفقة يوجد زر طباعة على نموذج رئيس ، أريد أن يقوم هذا الزر بعد الكبس عليه بتعبئة جميع أسطر حقل في نموذج فرعي واسم الحقل Printed وأريد تعبئته بأي قيمة مع تحياتي وتقديري DataUpdate.rar رابط هذا التعليق شارك More sharing options...
بحار الاكسس قام بنشر مايو 1, 2016 مشاركة قام بنشر مايو 1, 2016 بعد الضغط على طباعة اضغط tab اتفضل التعديل التعديل لو عجبك التعديل اضغط like DataUpdate.rar 1 رابط هذا التعليق شارك More sharing options...
Alhaithm قام بنشر مايو 1, 2016 الكاتب مشاركة قام بنشر مايو 1, 2016 مع شكري وتقديري هذا لا يفيد مع كل كبسة زر Print لازم تعمل Tab وكان مطلبي واضح كبسة زر واحدة تعبأ جميع الحقول مرة واحدة رابط هذا التعليق شارك More sharing options...
بحار الاكسس قام بنشر مايو 1, 2016 مشاركة قام بنشر مايو 1, 2016 (معدل) اتفضل التعديل اضغط على طباعة ثم اذهب على واضغط F5 DataUpdate.rar تم تعديل مايو 1, 2016 بواسطه بحار الاكسس رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 2, 2016 مشاركة قام بنشر مايو 2, 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 ويمكنك تغييره الى الرقم او النص الذي تريد 2 رابط هذا التعليق شارك More sharing options...
Alhaithm قام بنشر مايو 4, 2016 الكاتب مشاركة قام بنشر مايو 4, 2016 شكرا أستاذنا أبو خليل بعد تركيب الكود أعلاه في الزر Print ظهرت رسالة خطأ عدم وجود حقل لم يتم تنفيذ المطلوب ياحبذا لو جربت الكود عندك على النموذج المرفوع والإفادة جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 4, 2016 مشاركة قام بنشر مايو 4, 2016 تفضل DataUp2.rar 1 رابط هذا التعليق شارك More sharing options...
Alhaithm قام بنشر مايو 5, 2016 الكاتب مشاركة قام بنشر مايو 5, 2016 شكرا أخي أبو خليل ، الكود يعمل بنجاح ، في قاعدة البيانات التي أرسلت ، فنسخته إلى قاعدة بياناتي للتطبيق فوجدت نفس الرسالة التي ذكرت سابقا بعدم وجود الحقل. فراجعت ووجدت أن حقل Printed المقصود تعبئته قد غيرت إسمه ونسيت فلذالك لم يعمل الكود ، فتنبهت وتم الأمر بنجاح ، وقد حليت لي بهذا الكود مشكلة أخرى في نفس النموذج فجذاك الله خيرا وبارك لك. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.