اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

    
'   End With

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

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

22tblm

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

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

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

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

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

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

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

  • Thanks 2
رابط هذا التعليق
شارك

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

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

السلام عليكم

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

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

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

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

أستاذي @AlwaZeeR

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

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

رابط هذا التعليق
شارك

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

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

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

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

::

تحياتي

  • Thanks 1
رابط هذا التعليق
شارك

  • 3 months later...
في 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

 

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

تم تعديل بواسطه Khalf
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information