kaser906 قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 (معدل) السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج 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 تم تعديل مارس 3, 2018 بواسطه kaser906
Shivan Rekany قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 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 2
kaser906 قام بنشر مارس 3, 2018 الكاتب قام بنشر مارس 3, 2018 11 دقائق مضت, Shivan Rekany said: كل الطريقين ستستخدمه بعد فتح النموذج الف تحية والف شكر لك استاذ شفان هذا هو المطلوب 1
sandanet قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 وزيادة بسيطة على كود الاستاذ شفان .. ضع 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 ^_* تحياتي 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.