عبد الفتاح كيرة

وفقكم الله

أتابع

للخروج من هذا المأزق أقوم بإنشاء استعلام إنشاء جدول من استعلام التجميع و من الجدول المنشأ نعمل ما نريد و تكون البيانات محدثة فى الجدول المنشأ بالاستعلام لأنه ينشأ كل مرة بعد حذف القديم عملية ديناميكية رائعة

https://www.officena.net/ib/profile/145359-husamwahab/ مبارك لك أستاذ حسام

الحمد لله قمت بحل المشكلة فوجدت لزاما أن أنشر الطريقة للنفع العام دالة dlookup المستخدمة فيها 3 شروط رقم الموظف تاريخ بداية تاريخ نهاية قمت بعمل استعلام لشرط التاريخ و بعد ذلك استخدمت نفس الدالة للبحث فى هذا الاستعلام بشرط واحد هو رقم الموظف وجاءت النتائج سليمة

شكرا لكم جزاكم الله خيرا

تمام أنا أراسلكم من الهاتف لأن جهازى عطلان ومثال على تاريخ يعطى خطأ 15/2/2018 و هو تاريخ الجزاء محل البحث Gazadate وشكرا

شكرا لك لكن ما الفارق بينها و بين الأصل؟

نفكر شوية و نساعد بعض 😴 هل لصيغة التاريخ علاقة بهذا الخطأ؟ أقصد تنسيق التاريخ ممكن نستخدم دالة formate قبل حقل التاريخ؟ أدلو بدلوكم...جزاكم الله خيرا

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

غير هذا السطر حسبما تريد

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Dim old As Integer Me.textold = 0 olld = DSum("[debit]", "t", "[id-client]=" & [id] & " and [date] < from ") - DSum("[Credit]", "t", "[id-client]=" & [id] & " and [date] < from ") If IsNull(olld) Then Me.textold = 0 Else Me.textold = Me.textold + olld Me.Text49 = DSum("[debit]", "t") End If End Sub لاحظ السطر الأخير Database2 (1).rar

Private Sub mdate_BeforeUpdate(Cancel As Integer) Dim myletter As String myletter = "غير مسموح بتاريخ غير تاريخ اليوم" If Me.mdate < Date Then MsgBox myletter Cancel = True End If End Sub هل هناك حقل للشهر؟

فعلا شكرا لك لاحظت بعض البطء فى التنفيذ

شكرا جزيلا أخانا الأستاذ @jjafferr و النتائج صحيحة لكن الطرق مختلفة سأشرح - لمن يريد - خطوات أخرى أوصلتنى للناتج و سأرفق ملفا إن شاء الله أولا : نصمم استعلاما للحصول على أعلى تاريخ ( الأحدث) من الجدول t1 باسم مستعار ss و هو استعلام 2 و ذلك باستخدام top1 و نرتب حسب حقل التاريخ taqfrom تنازليا ليكون أحدث تاريخ بالأعلى . و نحصل على جملة sql التالية SELECT TOP 1 ss.taqFrom FROM t1 AS ss ORDER BY ss.taqFrom DESC; ثانيا نأخذ جملة ال sql السابقة و نضعها كمعيار فى حقل taqfrom للاستعلام الجديد و هو استعلام 1 و هنا نرتب جملة sql كالتالى SELECT t1.taqemp, t1.taqFrom, t1.taqTo, t1.taq_deg FROM t1 WHERE (((t1.taqFrom) In (SELECT TOP 1 ss.taqFrom FROM t1 AS ss where ss.taqemp = t1.taqemp and ss.taqfrom <> (SELECT TOP 1 ss.taqFrom FROM t1 AS ss where ss.taqemp = t1.taqemp ORDER BY ss.taqFrom DESC) ORDER BY ss.taqFrom DESC; ))); الشرح قدر الإمكان SELECT t1.taqemp, t1.taqFrom, t1.taqTo, t1.taq_deg FROM t1 أدرج الحقول السابقة فى الاستعلام بصورة عادية من جدول ف1 و من بينها طبعا حقل taqfrom الخاص بتاريخ بداية تقرير الموظف ( التقرير هو تقرير الكفاءة السنوى للموظف يؤخذ كل عام من 1 سبتمبر حتى 31 أغسطس ) WHERE (((t1.taqFrom) In بشرط أن تكون قيمة حقل التاريخ ضمن مايلى : (SELECT TOP 1 ss.taqFrom FROM t1 AS ss و هو جملة sql الخاصة باستعلام 2 و التى استخرجنا بها أعلى قيمة للتاريخ كما سبق where ss.taqemp = t1.taqemp and ss.taqfrom <> بشرطين هامين الأول تساوى حقل رقم الموظف الثانى أن يكون حقل التاريخ لا يساوى ما يلى (SELECT TOP 1 ss.taqFrom FROM t1 AS ss where ss.taqemp = t1.taqemp استعلام فرعى آخر وهنا تحتاج مثلى لقدرة عظيمة على التخيل للاستعلامات الفرعية المركبة يعنى ( حقل التاريخ يكون مثل أعلى قيمة التى بدورها لا تساوى ؟أعلى قيمة ..) و ORDER BY ss.taqFrom DESC) ORDER BY ss.taqFrom DESC; الترتيب تنازليا مرتين مرة لكل استعلام فرعى لاحظ النتيجة التاريخ الثانى لكل موظف ثم سجل واحد لكل موظف هو الثانى هذا هو الملف أرجو أن أكون وفقت فى الشرح و أن يكون فيه النفع لمن يريد و شكرا مرة أخرى لمساعدة الأخ @jjafferr sample2.accdb نسيت هذه الجزئية و هى هامة لربط الاستعلام الفرعى بالرئيسى