فتح نموذج عبر نموذج آخر على سجل محدد يساوي المعرف مع منع إضافة سجل

[Hamdi Edlbi-khalf]

السلام عليكم

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

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

فالنموذج المخفي يسمح بالإضافة عند ضغط زر التاب أو ملء البيانات في الحقل .

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

النموذج في الرابط

الرابط على ميديا فاير نظراً لحجمه

و شكراً جزيلاً .

[Hamdi Edlbi-khalf]

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

بانتظار مساهماتكم القيمة .

[Hamdi Edlbi-khalf]

حبذا لو نبهتموني إن كان السؤال غامضاً حتى أعيد رفعه مرة أخرى .

و مشكورين مأجورين إن شاء الله .

[AlwaZeeR]

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

استخدم هذا الكود عند النقر المزدوج:

'With CodeContextObject
    '    DoCmd.OpenForm "22tblm", acNormal, "", "[المعرف]=" & .المعرف, acEdit, acDialog
               
               DoCmd.OpenForm "22tblm", acNormal, , "[المعرف]= " & Forms![برنامج الفروع و المؤسسات].tblm1.Form("[المعرف]") & "", acFormEdit

    
'   End With

طبعاً: احذف الكود القديم لديك

بعد ذلك: اذهب الى النموذج 

22tblm

وغير في خصائصه كالتالي:

دورة: السجل الحالي

طريقة العرض الافتراضية: نموذج مفرد

ولو أحببت اجعل منبثق : نعم

شكلي او مشروط: نعم

::: ملاحظة: لم افهم ما المغزى من زر الحذف في النموذج 22tblm

برنامج المجالس الخاص بك

[عبد الفتاح كيرة]

19 دقائق مضت, AlwaZeeR said:

غير في خصائصه كالتالي:

دورة: السجل الحالي

أيضا السماح بالإضافة = لا

[AlwaZeeR]

نعم صحيح أستاذ كيرة

وقد تم عملها في المرفق اعلاه

 

[Hamdi Edlbi-khalf]

2 ساعات مضت, AlwaZeeR said:

::: ملاحظة: لم افهم ما المغزى من زر الحذف في النموذج 22tblm

السلام عليكم

شكراً لك و ألف شكر أستاذي 

لقد وضعت زر الحذف بحال تم إضافة عدد من السجلات أكبر من العدد المطلوب عن طريق الخطأ .

و قد كنت أرغب بجعل الزر بحذف العدد الزائد بحال كان العدد المطلوب أقل من الموجود فعلياً و لكن خشيت من حذف السجلات بالخطأ و هو وارد .

فاكتفيت بجعل الحذف يدوياً .

أستاذي @AlwaZeeR

هذه المرة الثانية التي تلقي فيها طوق النجاة لعملي المتواضع 

جزاك الله كل خير .

[AlwaZeeR]

11 دقائق مضت, Khalf said:

هذه المرة الثانية التي تلقي فيها طوق النجاة لعملي المتواضع

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

نحن دائما في الخدمة بما يسمح لنا الوقت

::

تحياتي

[Hamdi Edlbi-khalf]

في August 11, 2018 at 12:05, AlwaZeeR said:

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

استخدم هذا الكود عند النقر المزدوج:

'With CodeContextObject
    '    DoCmd.OpenForm "22tblm", acNormal, "", "[المعرف]=" & .المعرف, acEdit, acDialog
               
               DoCmd.OpenForm "22tblm", acNormal, , "[المعرف]= " & Forms![برنامج الفروع و المؤسسات].tblm1.Form("[المعرف]") & "", acFormEdit

    
'   End With

 

السلام عليكم

الأستاذ

@AlwaZeeR

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

               DoCmd.OpenForm "22tblm", acNormal, , "[المعرف]= '" & Forms![برنامج الفروع و المؤسسات].tblm1.Form("[المعرف]") & "'", acFormEdit

 

و شكراً لك ... و أعتذر على  الإزعاج 

تم تعديل نوفمبر 19, 2018 بواسطه Khalf