استفسار بتغير قيمه حقل وعدم تفعيل نموذج فرعى لو الرئيسى فارغ من البيانات

[Lotfy14]

الساده / اعضاء منتدى أوفيسنا

عند فتح فورم ( frm_kushif_allijan ) واختيار اسم من مربع سرد وتحرير وقبل كتابه اي بيانات يعطينى حق [ دمغه نسبيه ]  -0,30

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

ما اريده

1- عندما يتم اختيار عضو وحقل [ عدد الجلسات] = 0 

يصبح حقل [دمغه النسبيه] =0

وعند اختيار عضو ويتم تسجيل فى حقل [عدد الجلسات] اي رقم اخر اكبر من الصفر تشتغل معى معادله الدمغه النسبيه طبيعي

ويصبح حقل [ الدمغه النسبيه ]يعمل مع المعادله

2- هل من الممكن ان اجعل البيانات الموجوده فى النموذج الفرعى او النموذج الفرعى نفسه بنفس الفورم المذكور ( frm_kushif_allijan )

غير مفعله حتى يتم تسجيل البيانات ( التاريخ ، عن شهر ، سنه ، اسم اللجنه ) بالنموذج الرئيسى ( frm_kushif_allijan )
 

ارجو ان اكون استطعت ان اشرح طلبى هذا ,,,, ولكم منى جزيل الشكر لو امكن فى الحل

Allijan0016.rar

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

 

تحياتي

Allijan0016_2.rar

[Lotfy14]

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

اخى الفاضل محمد أبوعبدالله

تسلم ايدك ,,, هذا هو المطلوب ,,,, شكرا جزيلا لك ولتعبك معى فى الفترة السابقة

فى حل مشاكلى واكون سعيد دايما بوجودك بحلول سريعه معى

تقبل تحياتى

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي

[Lotfy14]

اخى محمد ابو عبدالله
وجهتنى  مشكله بسيطه فى الكود المرفق 
هو فعلا شغال معى تمام بس لابد من حفظ النموذج او الخروج والدخول اليه مره اخرى
كي يتم تفعيل النموذج الفرعى
رغم انى اضفت على الكود Me.Refresh
ولكن نفس المشكله
هل يمكن عند امتلاء الحقول فى النموذج الرئيس يتم تحديث الحقول الفرعية من غير خروج من النموذج الرئيسى او الذهاب للتالي او الحفظ ؟
برجاء الافاده ؟

[محمد أبوعبدالله]

4 ساعات مضت, Lotfy141414 said:

لابد من حفظ النموذج او الخروج والدخول اليه مره اخرى

لم تواجهني هذه المشكلة انظر الصورة

 

برجاء توضيح اكثر اخي الكريم

تحياتي

[Lotfy14]

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

    On Error Resume Next

    If Len(Me.alttarikh & vbNullString) = 0 Or Len(Me.ean_shahr & vbNullString) = 0 Or Len(Me.Allijan_name & vbNullString) = 0 Then
    Me.w1.Enabled = False
    Else
    Me.w1.Enabled = True
    End If

ولكن لم يفلح معى نهائى
هل يوجد شئ اخر غير الكود ؟؟

تم تعديل يونيو 27, 2020 بواسطه Lotfy141414

[محمد أبوعبدالله]

اعتقد الخطأ سيكون في اسماء الحقول او النموذج الفرعي

عموما احذف السطر التالي

    On Error Resume Next

ثم افتح النموذج ونفذ الخطوات

اذا ظهر خطأ صوره هنا

واعتقد انه في اسماء الحقول او النموذج الفرعي

تحياتي

[Lotfy14]

هجرب واوفيك بالرد يا بوحميد

[Lotfy14]

عزيزى محمد بك
لم يفلح معى ,,, ولكن لقيت حل اخر
حذفت الفورم الاصلى واخذت الفروم اللى فى الـ test
ونقلته للبرنامج واشتغلت تمام
يمكن اكون فعلا اضفت شئ اخر وهو اللذى لم يعمل معى

شكرا للاهتمام وتعبك معى ,,,, بارك الله فيك

[محمد أبوعبدالله]

موفق دائما اخي الكريم

ولو ارسلت الملف الاساسي لساعدنك باذن الله اين مكان الخطأ

تحياتي