kaser906 قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 السلام عليكم ورحمة الله وبركاتة كيف استدعي الامر Private Sub Form_Current() الموجود في النموذج الرئيسي Forme_ fatora من داخل النموذج الفرعي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 عليكم السلام اولا تغير Private الى Public حتى تستطيع بقية كائنات الاكسس رؤيتها ، public Sub Form_Current() ثم تستعمل الكود التالي عند مناداة ذلك الحدث: Form_Forme_Fatora. وسيعطيك الاكسس جميع الخيارات التي تستطيع التحكم فيها لذلك النموذج ثم سترى Form_Current() ليصبح الكود عندك Form_Forme_Fatora.Form_Current() . جعفر 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 6, 2017 الكاتب مشاركة قام بنشر ديسمبر 6, 2017 13 دقائق مضت, jjafferr said: Form_Forme_Fatora.Form_Current() مرحبا أستاذ جعفر مع القوسيين تظهر رسالة خطأ بدون الأقواس لاتظهر رسالة خطأ ولكن لا أرى استجابه فوريه للحدث 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 جيد في الحدث Current ، اوقف كل الحدث ، ومجرد جرب msgbox "OK" رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 6, 2017 الكاتب مشاركة قام بنشر ديسمبر 6, 2017 3 ساعات مضت, jjafferr said: جيد في الحدث Current ، اوقف كل الحدث ، ومجرد جرب msgbox "OK" فعلا أستاذ يتم تنفيذ الأمر يبدو أني بحاجة إنعاش للنموذج الله يعطيك العافية رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 9 دقائق مضت, kaser906 said: فعلا أستاذ يتم تنفيذ الأمر ، يبدو أني بحاجة إنعاش للنموذج حياك الله شو قصدك انعاش النموذج؟ جعفر رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 6, 2017 الكاتب مشاركة قام بنشر ديسمبر 6, 2017 20 دقائق مضت, jjafferr said: حياك الله شو قصدك انعاش النموذج؟ جعفر اقصد عمل Refresh لكن حتى هذه الدالة ما جابت نتيجة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 خليني ما اتفاعل ولا اجر نفسي في سؤال جديد المهم ان طلبك تم تنفيذه والحمدلله جعفر 1 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 6, 2017 الكاتب مشاركة قام بنشر ديسمبر 6, 2017 39 دقائق مضت, jjafferr said: خليني ما اتفاعل ولا اجر نفسي في سؤال جديد المهم ان طلبك تم تنفيذه والحمدلله جعفر ما تقصر طال عمرك رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 (معدل) منذ ساعه, kaser906 said: اقصد عمل Refresh لكن حتى هذه الدالة ما جابت نتيجة في البداية انا اتابعكم ارفق نسخة مصغرة من القاعدة وانشاء الله راح نجد الحل 53 دقائق مضت, jjafferr said: المهم ان طلبك تم تنفيذه والحمدلله شکرا لک .. تم تعديل ديسمبر 6, 2017 بواسطه Shivan Rekany 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 في ١٨/٠٣/١٤٣٩ at 17:54, kaser906 said: خليني ما اتفاعل ولا اجر نفسي في سؤال جديد في ١٨/٠٣/١٤٣٩ at 18:02, Shivan Rekany said: في البداية انا اتابعكم ارفق نسخة مصغرة من القاعدة وانشاء الله راح نجد الحل شکرا لک .. تفضل افتح النموذج frm ستجد شرح داخل النموذج Vfrm.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 8, 2017 مشاركة قام بنشر ديسمبر 8, 2017 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 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 منذ ساعه, 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 هل يوجد طريقة أخرى غير حفظ السجل لأن عندي نماذج أخرى يجب إدخالها قبل الحفظ انا اقدر امشي هذا الامر لكن راح يتطلب الموضوع إعادة صياغة النموذج بشكل كامل رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 8, 2017 مشاركة قام بنشر ديسمبر 8, 2017 10 دقائق مضت, kaser906 said: هل يوجد طريقة أخرى غير حفظ السجل لأن عندي نماذج أخرى يجب إدخالها قبل الحفظ يجب ان يتم تحديث البيانات في الجدول لكي يحسبه والا سيحسب بيانات في الجدول قبل تحديث ... اي سيعطيك نتيجة غير صحيحة تقدر تستخدم هذا السطر بدل سطر حفظ السجل لكن لا اظن ان هناك فرق بينهما لهذا الامر DoCmd.RunCommand acCmdRefresh 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 6 ساعات مضت, Shivan Rekany said: يجب ان يتم تحديث البيانات في الجدول لكي يحسبه والا سيحسب بيانات في الجدول قبل تحديث ... اي سيعطيك نتيجة غير صحيحة تقدر تستخدم هذا السطر بدل سطر حفظ السجل لكن لا اظن ان هناك فرق بينهما لهذا الامر DoCmd.RunCommand acCmdRefresh يعطيك العافية الله يعين نغير بالنموذج رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان