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

[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]

13 دقائق مضت, jjafferr said:

Form_Forme_Fatora.Form_Current()

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

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

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

[jjafferr]

جيد

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

msgbox "OK"

 

[kaser906]

3 ساعات مضت, jjafferr said:

جيد

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

msgbox "OK"

 

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

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

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

[jjafferr]

9 دقائق مضت, kaser906 said:

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

حياك الله

 

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

 

جعفر

[kaser906]

20 دقائق مضت, jjafferr said:

حياك الله

 

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

 

جعفر

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

[jjafferr]

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

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

 

جعفر

[kaser906]

39 دقائق مضت, jjafferr said:

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

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

 

جعفر

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

[Shivan Rekany]

منذ ساعه, kaser906 said:

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

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

53 دقائق مضت, jjafferr said:

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

شکرا لک ..

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

[kaser906]

في ‏١٨‏/‏٠٣‏/‏١٤٣٩ at 17:54, kaser906 said:

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

 

في ‏١٨‏/‏٠٣‏/‏١٤٣٩ at 18:02, Shivan Rekany said:

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

شکرا لک ..

تفضل

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

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

Vfrm.rar

[Shivan Rekany]

15 دقائق مضت, kaser906 said:

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

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

عند كتابة رقم 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]

منذ ساعه, 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.rar

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

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

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

[Shivan Rekany]

10 دقائق مضت, kaser906 said:

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

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

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

DoCmd.RunCommand acCmdRefresh

 

[kaser906]

6 ساعات مضت, Shivan Rekany said:

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

DoCmd.RunCommand acCmdRefresh

 

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