ناقل

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

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

انظر <<<<<<<<<<<<<<<<<<<< Me.fonction_encadreur = DLookup("[fonction]", "[tbl_Teachers]", "[TeacherName] ='" & [Forms]![fm_heure_effectue_raport]![nom_prenom] & "'")

طيب انا ماشي حسب طلبك .... لأن المفترض تجعل البيانات الخاصة بالموظفين وخاصة الثابتة منها كلها في جدول واحد ... على العموم ممكن تستخدم Dloock up لجلب البيانات المطلوبة مثل الوظيفة من الجدول الخاص بها الى النموذج الملطلوب ... جرب وان لم تستطع اعلمني للتطبيق على مثالك ... بارك الله فيك ... طبعا تجعلها فب حدث عند تحديث الاسم المختار في النموذج ... لنا رجعة .....

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

غير الحدث الموجود لديك بهذا .... 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