ناقل

وعليكم السلام طيب هل النموذجين مفتوحين في نفس الوقت؟؟؟؟ وهل النموذج المنقول لها الوظيفة يكون على نفس اسم الموظف في النموذج الاول المضاف لها الوظيف ؟؟؟؟

غير الحدث الموجود لديك بهذا .... Me.fonction_encadreur = Me.nom_prenom.Column(1)

لم اجربها ولكن اتبع هذه الخطوات ... https://support.microsoft.com/ar-sa/office/إضافة-حساب-gmail-إلى-outlook-70191667-9c52-4581-990e-e30318c2c081

الملف يعمل لدي بدون مشاكل لا يحتاج اي مكتبة

لا ... اجعله شفاف

نفضل مثالك مطبق عليه المطلوب ........ Database1 (22).accdb

هل تصوري لمطلوبك صحيح ؟؟؟؟؟

لم افهم عليك هل تريد جدول للدائن والمدين لكل منطقة حسب الفئات ؟؟؟؟ انظر الصورة .... مبلغ الدائن ومعروف هي الخلاصة السابقة أما المدين اين هي من الجدول السابق ؟؟؟؟ عذرا على عدم الفهم ... ممكن توضيح !!!! 🙃

مشاركة مع اخي @mohamed_ets هل هذه الصورة المطلوبة ؟؟؟؟

انظر هنا ......

جرب المرفق <<<<< Database32.accdb

هل جربت مثالي اخي الكريم

جرب المرفق ..... Database32.accdb

جرب الزر الاول للتعديل .... frm.SourceObject = "frm_1" frm.Form.AllowEdits = True وهكذا للبقية ..............

طلبك هنا غير مفهوم .... هل تقصد ان الحقل الاول يظهر فقط النموذج1 والنموذج2 والحقل الثاني تظهر اسماء بقية النماذج ... يعني النماذج التي تظهر في الحقل الاول لا تظهر في الحقل الثاني مثلا ... أم ماذا ؟؟؟ وضح رجاءا !!!!!

تفضل <<<<<<<<>>>>>>>>>

ما شاء الله تبارك الله تستاهل @دروب مبرمج الترقية واعانك الله ... الى الامام

بارك الله بك .. ممكن تزودنا بمثال تقريبي للمطلوب حتى نفهم ...

الحمد لله رب العالمين ...

وهذه طريقة اخرى من الذكاء ..... يجب وضع هذا الكود في النموذج الذي ترغب في تغيير رسالة التكامل المرجعي الخاصة به. عندما يحدث خطأ 3200 الذي يشير إلى رسالة التكامل المرجعي، ستظهر الرسالة الجديدة المحددة في الكود بدلاً من الرسالة الافتراضية. Private Sub Form_Error(DataErr As Integer, Response As Integer) ' رسالة التكامل المرجعي - Reference Integrity Message If DataErr = 3200 Then ' قم بتعديل الرسالة الجديدة هنا MsgBox "رسالة جديدة" Response = acDataErrContinue End If End Sub

جرب هذا الكود من خلال الذكاء الاصطناعي ولم اجربه ........ يتم وضع هذا الكود في قسم VBA للنموذج الذي ترغب في تغيير رسالة التكامل المرجعي له. Private Sub Form_Error(DataErr As Integer, Response As Integer) Const conReferenceNotSet = 3420 If DataErr = conReferenceNotSet Then MsgBox "تم تعيين الرسالة الجديدة هنا", vbInformation, "رسالة جديدة" Response = acDataErrContinue End If End Sub

نعم اذا كان هناك علاقة بينهما ....

لانك في بداية حديثك اشرت الى عدم الرضا بحجم القاعدة لدى المحصلين طيب اخي الكريم الموضوع اختلف هنا عن سؤالك فكلي رجاء فتح موضوع بعنوان يتناشب مع طلبك الجديد ... وابشر بالمساعدة من اعضاء المنتدى ... وملف الاستيراد بالمناسبة جاهز ...

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

طيب جرب المرفق :::: التعديلات هي كالاتي ::::: كونا جدول من جدولك للبيانات Needed_Table كونا جدول باسماء المنتجات تسحبا لزيادة او نقصان المنتجات tbl_ProductData اضفنا شيفرة في الزر في النموذج ويجب الضغط عليه في بداية التنفيذ ثم استقي الاستعلامات التي تريد من الجدول تحويل صفوف الجدول الى اعمدة.accdb