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

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

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

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

جعفر

استاذ جعفر

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

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

تحياتي

:)

Private Sub For_AfterUpdate()

Me.Refresh

End Sub

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

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

جعفر

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

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

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

أخي العزيز،

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

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

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

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

أخي العزيز،

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

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

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

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

أخي العزيز،

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

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

Khodor1985 كتب:

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

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

أخي العزيز،

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

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

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

جعفر

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

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

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

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

حياكم الله

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

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

yyyy1.rar

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

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

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

ظهرت مشكلة

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

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

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

هل من حل

ارجو التعديل

وشكرا للجميع

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

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

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

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

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

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

اخى الفاضل

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

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

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

وشكرا لك

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

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

yyyy.rar

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

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

On Error Resume Next
Dim rst As DAO.Recordset
Dim DateUpdate As Date
Dim UpdateStr As Variant

Set rst = [GLTRANS Subform].Form.RecordsetClone
rst.MoveFirst
Do While Not rst.EOF
    DateUpdate = rst![entryexpln]
    UpdateStr = Me.For
    rst.Edit
    rst![entryexpln] = UpdateStr
    rst.Update
    [GLTRANS Subform].Form.Bookmark = rst.Bookmark
rst.MoveNext
Loop
rst.Close

Set rst = Nothing

yyzyy.rar

عزيزي

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

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

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

Private Sub For_AfterUpdate()
Me.GLTRANS_Subform.SetFocus
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.GLTRANS_Subform.Form.RecordsetClone.RecordCount
Me.GLTRANS_Subform.Form!entryexpln = Me.For
DoCmd.GoToRecord , , acNext
Next i
End Sub

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

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

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

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