• 0
sayedaaa

تحديث مربع نص النموذج الفرعى

سؤال

مرفق مثال للتعديل علية

لماذا لم يتم تحديث بيانات شرح القيد فى الصف الاول

بمعنى اخر لماذا لم تظهر كلمة المشتريات فى الصف الاول وظهرت فى الثانى والثالث

ما اريدة ان تظهر فى الثلات صفوف

 

post-239600-0-22316700-1415640729_thumb.

yyyy.rar

 

post-239600-0-64115100-1415640986_thumb.

تم تعديل بواسطه السيد الجوهرى
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

22 إجابة على هذا السؤال .

  • 0

وعليكم السلام :)

 

القيمة الافتراضية Default value تظهر فقط للسجل الجديد :)

 

هناك بعض الاشياء التي لا تستطيع القيام بها في النماذج المستمرة ، فالافضل لك ان تجعل الحقل مضّمن (تربطه بحقل من الجدول او الاستعلام Control Source) :)

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استاذ جعفر

المشكلة تظهر في : حاول اضافة فاتورة جديدة في الاعلى ثم اضف تفاصيل في الفرعي . السجل الاول في الفرعي لا ياخذ القيمة الافتراضية له وهنا المشكلة.

جاري محاولة الحل .

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

Private Sub For_AfterUpdate()

Me.Refresh

End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

انا دائما احاول اتفادى me.Refresh ، وذلك لأنها تعمل وميظ في النموذج ،

لذا انا استبدله بـ me.requery :)

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جرب الطريقتين استاذ جعفر وعند فتح سجل ثاني جديد للرئيسي!!!!

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته

أخي العزيز،

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

والسلام عليكم ورحمة الله وبركاته.

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته

أخي العزيز،

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

والسلام عليكم ورحمة الله وبركاته.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

سم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته

أخي العزيز،

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

والسلام عليكم ورحمة الله وبركاته.

 

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته

أخي العزيز،

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

والسلام عليكم ورحمة الله وبركاته.

تم تعديل بواسطه السيد الجوهرى
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عفوا أخي خضر ، تعليقي ﻻ علاقه له بالسؤال ، وانما كان تعقيب فني على me.refresh :)

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم أخي العزيز جعفر

أعلم ذلك، كنت أحاول الإجابة على السؤال فقظ.

منكم نستفيد أخي العزيز (في الحقيقة، أنا لا أعرف منطق المجاملات) عندما أقول منكم نستفيد أخي جعفر يعني فعلا منكم نستفيد.

والسلام عليكم ورحمة الله وبركاته.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياكم الله

سنقوم بالغاء القيمة الافتراضية

=[Forms]![Cheq_Voucher]![entryexpln]

post-239600-0-19212400-1415865928_thumb.

yyyy1.rar

post-239600-0-31635700-1415865649_thumb.

post-239600-0-05579600-1415865875_thumb.

تم تعديل بواسطه السيد الجوهرى
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم أخي العزيز السيد جوهري

تقبل اللع أعمالكم

أحسنت أخي العزيز، وشكرا لأنك وضعت إسمي في المشروع.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ظهرت مشكلة

وهى عند الذهاب الى اعلى النموذج وتعديل من خضر  الى اى اسم اخر

ثم الضغط فى اى مكان على النموذج الفرعى

تختفى سجلات النموذج الفرعى

هل من حل

ارجو التعديل

وشكرا للجميع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله المستعان

المشكلة تم حلها وبالرد رقم 5 .

ان المشكلة تكمن في ان الاكسس بشكل عام عند فتح النموذج يقوم بتحضير النموذج ومصدره في الرام فاي تحديث في النموذج ينعكس على المصدر مباشرة ثم على الملف الموجود بالهرد ديسك وفي نفس اللحظة لوجود الكل بالرام . عكس البرامج المتخصصة الاخرى وهي لا تنتقل البانات للملف الذي بالهارديسك الا بامر محدد او سيناريو حسب التقنية المستخدمة .

 

هنا المشكلة انه عند فتح النموذج يتم فتح الفرعي معه وهنا في هذه اللحظة القيمة التي بالنموذج الرئيسي فارغه وفي نفس اللحظة اخذها النموذج الفرعي وفي العنصر المخصص له القيمة الافتراضية. 

لذلك عملت كود رفريش لاخذ القيمة الافتراضية مرة اخرى وهنا لم تعد فارغة .

 

يمكن وضع الكود السابق كذلك كحدث عند عند الادخال للنموذج الفرعي.

-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخى الفاضل

ليس حلا  بالمرة

ارجو ان تطبق على المثال

وترفعة لنا كى نستفيد

 

وشكرا لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا الحل لمشكلة القيمة الافتراضية والتي باول مشاركة.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا الحل لمشكلة القيمة الافتراضية والتي باول مشاركة.

yyyy.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بناء على كل ما تقدم

تم وضع الكود التالي فى حدث بعد التحديث لمربع النص  For

On Error Resume NextDim rst As DAO.RecordsetDim DateUpdate As DateDim UpdateStr As VariantSet rst = [GLTRANS Subform].Form.RecordsetClonerst.MoveFirstDo While Not rst.EOF    DateUpdate = rst![entryexpln]    UpdateStr = Me.For    rst.Edit    rst![entryexpln] = UpdateStr    rst.Update    [GLTRANS Subform].Form.Bookmark = rst.Bookmarkrst.MoveNextLooprst.CloseSet rst = Nothing

yyzyy.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عزيزي

لقد كانت المشكلة تكمن في عدم اخذ القيمة الافتراضية للسجل الاول في النموذج الفرعي . وقد تم الحل .

الان وبعد اطلاعي على الكود الجديد وجدت انك تريد عند التعديل على العنصر for وهو شرح لراس القيد يتم تلقائيا التعديل على شرح القيد التفصيلي وبنفس الشرح. هنا يمكنك وضع مصدر البيانات نفس العنصر for ويصبح حقلا محسوبا .

هذا ويمكنك استخدام الكود التالي لعدم وضع مجموعة سجلات في الرام وانما ما هو الا اتمتة تعديل القيمة بالنموذج الفرعي.

Private Sub For_AfterUpdate()Me.GLTRANS_Subform.SetFocusDoCmd.GoToRecord , , acFirstFor i = 1 To Me.GLTRANS_Subform.Form.RecordsetClone.RecordCountMe.GLTRANS_Subform.Form!entryexpln = Me.ForDoCmd.GoToRecord , , acNextNext iEnd Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

او هذا السطر من الكود مع التنبيه على ان تسمية العناصر باسماء محجوزة مخالف . مثلا for :

Private Sub For_AfterUpdate()DoCmd.RunSQL "update GLTRANS set entryexpln='" & Me.For & "' where entryn=" & VouchernoEnd Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

او هذا السطر من الكود مع التنبيه على ان تسمية العناصر باسماء محجوزة مخالف . مثلا for :

Private Sub For_AfterUpdate()DoCmd.RunSQL "update GLTRANS set entryexpln='" & Me.For & "' where entryn=" & VouchernoEnd Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .