استدعاء وظيفة في نموذج رئيسي من نموذج فرعي

[kaser906]

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

كيف استدعي الامر 

Private Sub Form_Current()

الموجود في النموذج الرئيسي Forme_ fatora

من داخل النموذج الفرعي

[jjafferr]

عليكم السلام

 

اولا تغير Private الى Public حتى تستطيع بقية كائنات الاكسس رؤيتها ،

public Sub Form_Current()

 

ثم تستعمل الكود التالي عند مناداة ذلك الحدث:

Form_Forme_Fatora.

وسيعطيك الاكسس جميع الخيارات التي تستطيع التحكم فيها لذلك النموذج



ثم سترى

Form_Current()


ليصبح الكود عندك
Form_Forme_Fatora.Form_Current()

.

جعفر

[kaser906]

  في 6‏/12‏/2017 at 08:53, jjafferr said:

Form_Forme_Fatora.Form_Current()

Expand  

مرحبا أستاذ جعفر

مع القوسيين تظهر رسالة خطأ

بدون الأقواس لاتظهر رسالة خطأ ولكن لا أرى استجابه فوريه للحدث

[jjafferr]

جيد

في الحدث Current ، اوقف كل الحدث ، ومجرد جرب

msgbox "OK"

 

[kaser906]

  في 6‏/12‏/2017 at 09:51, jjafferr said:

جيد

في الحدث Current ، اوقف كل الحدث ، ومجرد جرب

msgbox "OK"

 

Expand  

فعلا أستاذ يتم تنفيذ الأمر

يبدو أني بحاجة إنعاش للنموذج

الله يعطيك العافية 

[jjafferr]

  في 6‏/12‏/2017 at 13:31, kaser906 said:

فعلا أستاذ يتم تنفيذ الأمر ، يبدو أني بحاجة إنعاش للنموذج

Expand  

حياك الله

 

شو قصدك انعاش النموذج؟

 

جعفر

[kaser906]

  في 6‏/12‏/2017 at 13:41, jjafferr said:

حياك الله

 

شو قصدك انعاش النموذج؟

 

جعفر

Expand  

اقصد  عمل Refresh
لكن حتى هذه الدالة ما جابت نتيجة

[jjafferr]

خليني ما اتفاعل ولا اجر نفسي في سؤال جديد

المهم ان طلبك تم تنفيذه والحمدلله

 

جعفر

[kaser906]

  في 6‏/12‏/2017 at 14:14, jjafferr said:

خليني ما اتفاعل ولا اجر نفسي في سؤال جديد

المهم ان طلبك تم تنفيذه والحمدلله

 

جعفر

Expand  

ما تقصر طال عمرك

[Shivan Rekany]

  في 6‏/12‏/2017 at 14:02, kaser906 said:

اقصد  عمل Refresh
لكن حتى هذه الدالة ما جابت نتيجة

Expand  

في البداية انا اتابعكم
ارفق نسخة مصغرة من القاعدة وانشاء الله راح نجد الحل 

  في 6‏/12‏/2017 at 14:14, jjafferr said:

المهم ان طلبك تم تنفيذه والحمدلله

Expand  

شکرا لک ..

تم تعديل ديسمبر 6, 2017 بواسطه Shivan Rekany

[kaser906]

  في 6‏/12‏/2017 at 14:54, kaser906 said:

خليني ما اتفاعل ولا اجر نفسي في سؤال جديد

Expand  

 

  في 6‏/12‏/2017 at 15:02, Shivan Rekany said:

في البداية انا اتابعكم
ارفق نسخة مصغرة من القاعدة وانشاء الله راح نجد الحل 

شکرا لک ..

Expand  

تفضل

افتح النموذج frm

ستجد شرح داخل النموذج

Vfrm.rar

[Shivan Rekany]

  في 8‏/12‏/2017 at 13:58, kaser906 said:

افتح النموذج frm

ستجد شرح داخل النموذج

Expand  

عند كتابة رقم 9 او 10 في الحقل Num_brnamge اي في حدث بعد تحديث وايضا في حدث الحالي للنموذج استخدمت هذا الكود

  Tx = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![frm].[Num_brnamge]and[service] =1 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 7or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 8 )")

اي بيحسب سجلات في الجدول تبل فيستوري بشرط ان يكون حقل Num_brnamge في الجدول بيكون يساوي مع المربع  باسم Num_brnamge في النموذج و يكون حقل سيرفايس بيكون يساوي 1 او 2 او 3 او 6 او 7 او 8 وما يحسب الباقي اي 4 و 5

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

DoCmd.RunCommand acCmdSaveRecord
Form_frm.Form_Current

 

Vfrm.rar

[kaser906]

  في 8‏/12‏/2017 at 14:29, Shivan Rekany said:

عند كتابة رقم 9 او 10 في الحقل Num_brnamge اي في حدث بعد تحديث وايضا في حدث الحالي للنموذج استخدمت هذا الكود

  Tx = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![frm].[Num_brnamge]and[service] =1 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 7or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 8 )")

اي بيحسب سجلات في الجدول تبل فيستوري بشرط ان يكون حقل Num_brnamge في الجدول بيكون يساوي مع المربع  باسم Num_brnamge في النموذج و يكون حقل سيرفايس بيكون يساوي 1 او 2 او 3 او 6 او 7 او 8 وما يحسب الباقي اي 4 و 5

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

DoCmd.RunCommand acCmdSaveRecord
Form_frm.Form_Current

 

Vfrm.rarFetching info...

Expand  

هل يوجد طريقة أخرى غير حفظ السجل

لأن عندي نماذج أخرى يجب إدخالها قبل الحفظ

انا اقدر امشي هذا الامر لكن راح يتطلب الموضوع إعادة صياغة النموذج بشكل كامل

[Shivan Rekany]

  في 8‏/12‏/2017 at 15:31, kaser906 said:

هل يوجد طريقة أخرى غير حفظ السجل

لأن عندي نماذج أخرى يجب إدخالها قبل الحفظ

Expand  

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

DoCmd.RunCommand acCmdRefresh

 

[kaser906]

  في 8‏/12‏/2017 at 15:43, Shivan Rekany said:

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

DoCmd.RunCommand acCmdRefresh

 

Expand  

يعطيك العافية الله يعين نغير بالنموذج