كل الانشطه

اهاااا ، وهو بالفعل ما قمت به ولكن بطريقة أخرى

تحديث 1- اضافة استخدام عجلة الماوس للتنقل بين السجلات 2- اضافة فرز مع القائمة ====================( @منتصر الانسي ❤️🌹☕ نسيت الغاء زر الاغلاق (X) ☕ عند آخر نافذة كانت للتسجيل الدخول او واجهة الرئيسية الغاء زر الاغلاق تم تصحيح مع رساله خاصة للاغلاق تحميل المرفق https://www.mediafire.com/file/mhpi70zw439r2ug/V_2_Speed_Read_db_Caption_Filter.rar/file

كما يلاحظ من الصورة رسالة الخطأ ترد الخطأ للفاصلة وتنسيق الرقم يؤكد هذا لذا فأنا أعتقد أن المشكلة سببها هو تنسيق الرقم قمت بتعديل تنسيق الحقل في الجدول بدل أن كان Fixed جعلته #.00 حتى أجبره أن يظهر العلامة العشرية كنقطة وليس فاصلة ان شاء الله تنحل المشكلة اما إذا إستمرت فقد تكرمت أنت بالحل الأخير تحياتي

أيعقل أن يكون اسم مربع ا لنص هو السبب !!!!!

اعتقد أني عرفت المشكلة جرب المثال الان وأخبرنا إذا ظهرت الرسالة أم لا مع تحياتي baseM11.rar

واجهتني مشكلة واحدة أنه عند إغلاق النماذج من علامة X تتبقى شاشة أكسس بدون أي مجال لإغلاقها إلا عن طريق Task Manager

تأكد من تمكين الماكرو. الصور غير واضحة ولو أمكن ترفع الملف لمعاينته

لما بفتح الملف بيجي كده

أرجوا حل لهذه المشكلة لو تكرمتم الملف شغال زي الفل عندي في البيت المشكلة لما أروح الشغل مش راضي يفتح ويجيب الرسالة دي

الجزء الثاني التحكم بملف الاكسل عن mcp server رابط الجزء الثاني

اعادة الموضوع صعب انه يفصل الموضوع فحذف 0-حتى لو كان مواصفات الكمبيوتر سيئه ورديئه يعمل بكفاءه من غير وميض وترميش عند تحريك للسجلات الكل Caption مع الفلترة يمكن اسهل طريقة 1- مع الفلترة عرض غير منضم بسيطه من غير DOA , SQL ونوع Caption 2- اضافة آلية وهمية لسجلات 100000 الى تخلص من مساحة التخزين قاعدة ويمكن تغير عدد السجلات في الكود وتجربة 3- تحسين صندوق الرسائل دائما في الامام كل النوافذ 4- جعل الخلفية في الخلف لكل النوافذ ولكن ناقص ===========( اصبحة النافذة مستقرة مع تضخم البيانات لا يأثر ) بناء مختلف فلتره رئيسي وفرعي Caption تجربة لتحسين طريقة عرض السجلات من غير بطىء وتجنب اعادة التحميل الذي يؤثر عند قرب انتهاء مساحة تخزين قاعدة بيانات وتحميلات ويوجد حلول اخرى Function Run Update Link Map all In Folder(1)

شكرا جدا علي المساعده

عجيب .. المبرمج المحترف لا يستعصي عليه شيء الفكرة جميلة .. الف شكر استاذنا الكريم

مرفق لك مثالك بعد التعديل قمت بإضافة جدول tblDates والإستعلام qryDates النتيجة النهائية ستجدها في الاستعلام Query1 أرجو أن يكون هو ماتبحث عنه مع تحياتي Database1.rar

بارك الله فيكم استاذى

تمام انا احاول انتهج طريقة انسيابية جديدة .. واترك الطريقة التقليدية المتعارف عليها وهي عرض الحالات من جدول الحضور (الحضور والغياب ) فقط سيتم عرض الأيام المستهدفة .. كل معرف وايام عمله الفعلية مع استبعاد عطلة نهاية الاسبوع ( لكل معرف عطلته الخاصة) السجلات الفارغة = غياب .. وسيظهر ( العدد )في الخلاصة وبجانبها عدد ايام الاجازة (ان كان يتمتع باجازته) الخلاصة النهائية عبارة عن ارقام فقط + المعرف .. والفترة من/الى تكون في رأس الخلاصة من اراد تفاصيل الاجازات وتفاصيل التأخر يمكنه ذلك باستعلامات اخرى يتم عرضها من المكان نفسه ( نموذج التقارير)

تجربة تم حذف المسافات والبحث بدالة VLOOKUP تجربة للرفع (2).xlsx

اسم المطلوب / سميحه محمدالسيد سيد اسم الحائز / سميحه محمد السيد

حتى الاسماء المتطابقة لا تعمل المعادلة

هل يوجد حل لها

الاسم المطلوب / محمد متولى سليمان سالم أسم الحائز / محمد متولى سالم سليمان الأفضل البحث بالرفم القومى أو رقم الحيازة مع طلب تعديل البيانات والتأكد من صحتها

اسف نسيت المرفق للرفع.xlsx

السلام عليكم فى الملف المرفق احتاج الى معادلة VLOOKUP ولكنها لا تعمل ارجوا المساعدة وتوضيح سبب عدم عمل المعادلة

بدايةً الخطأ ان اسم مربع النص ID وليس الكود !! ثانياً لازم تمرر مسار واسم النموذج الفرعي اللي موجود فيه الشرط ID . وفي الدالة :- Public Function f11(الكود As Integer) DoCmd.OpenForm "Customer Details", , , "[الكود] = " & الكود End Function لا يتم تمرير الشرط أو المعيار للفلترة . لذا توجهت الى فكرة غريبة نوعاً ما بحيث من خلال الكود يتم البحث عن أول نموذج فرعي يحتوي مربع النص ID كشرط ومعيار للفلترة وتمريره الى جملة فتح النموذج على السجل المحدد . لتصبح الدالة مع مساعد بسيط :- '---------- ( ID تم التعديل هنا بحيث يتم البحث عن أول نموذج فرعي يحتوي مربع النص ) ---------- Public Function f11() On Error GoTo ErrHandler Dim frmMain As Form Dim ctrl As Control Dim frmSub As Form Dim val As Variant Set frmMain = Screen.ActiveForm For Each ctrl In frmMain.Controls If ctrl.ControlType = acSubform Then Set frmSub = ctrl.Form If HasControl(frmSub, "ID") Then val = frmSub.Controls("ID").Value DoCmd.OpenForm "Customer Details", , , "[الكود] = " & val Exit Function End If End If Next ctrl MsgBox ". 'ID' لم يتم العثور على نموذج فرعي يحتوي على الشرط", vbExclamation + vbMsgBoxRight, "" Exit Function ErrHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical + vbMsgBoxRight, "" End Function Private Function HasControl(frm As Form, ctrlName As String) As Boolean On Error Resume Next HasControl = Not frm.Controls(ctrlName) Is Nothing End Function '---------- ( نهاية التعديل ) ---------- ملفك بعد التعديل :- date-2025 - Copy (4).zip

date-2025 - Copy (4).rar كل اللي محتاجه انا اختار من open هيفتح القائمة المختصرة اختار منها تعديل يفتحلي الفورم اللي فيه داتا العميل المختار للتعديل عليها