اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


kaser906

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

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

بالمرفق

نموذج Forme_InsertAndEdit

وهو خاص  بمتابعة من قام باضافة او تعديل السجلات

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

الى هنا كل شي تمام

اردت استدعاء النموذج من النموذج f_1  أو  f_2  أو  f_3 مع تغيير مصدر السجلات حسب النموذج ورقم المعرف الفريد في النموذج

وهو يختلف من جدول الى جدول أخر فالنموذج f_1 والذي مصدر بيانات Tab_1 رقم المعرف Auto_id

والنموذج f_2 والذي مصدر بياناته Tab_2 رقم المعرف الفريد هو id

والنموذج f_3 والذي مصدر بياناته Tab_3 رقم المعرف الفريد هو id_f

قمت بعمل زر أمر في كل نموذج لفتح نموذج Forme_InsertAndEdit  مع تغيير مصدر بيانات النموذج ورقم المعرف

حسب الكود التالي

DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, "", "[Masder_record]=" & Me.RecordSource, "[Auoto_id]=" & Me.Auoto_id, acReadOnly, acNormal

ولكن لم ينجح الأمر

أمل المساعدة في تنفيذ المطلوب .

Openformresors.rar

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

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

اردت استدعاء النموذج من النموذج f_1  أو  f_2  أو  f_3 مع تغيير مصدر السجلات حسب النموذج ورقم المعرف الفريد في النموذج

اتفضل
اليك قاعدة بها طريقتين
اي منها تريد اختاره
 

DoCmd.OpenForm "Forme_InsertAndEdit", acNormal
' طريقة الاولى
Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_3"
Form_Forme_InsertAndEdit.Masder_record_AfterUpdate
DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, , "[id_f]=" & Me.id_f, acReadOnly, acWindowNormal
' طريقة الثانية
'Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_3.*, Tab_3.id_f FROM Tab_3 WHERE (((Tab_3.id_f)=[Forms]![f_3]![id_f]));"

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

Openformresors.rar

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

وزيادة بسيطة على كود الاستاذ شفان .. ضع 

Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_2"

في كود الطريقة الثانية في الفورم الثاني بعد كود 

Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_2.*, Tab_2.id FROM Tab_2 WHERE (((Tab_2.id)=[Forms]![f_2]![id]));"

لكي يتم فتح النموذج Forme_InsertAndEdit وفيه مصدر السجلات = Tab_2 

 

^_*

تحياتي

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

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