نجوم المشاركات

السلام عليكم ورحمة الله إليك هذا الحل باستعمال "الذكاء الاصطناعي" (بالمعادلات وبالأكواد -بتصرف-) أرجو أن يفي الغرض المطلوب... ملف العمل.xlsm

نعم الفكرة واضحة .. وجميلة .. وجديدة على كاتب هذه الكلمات .. جزيت خيرا

اولا شكرا لدعاؤك لي ثانيا الكود في الملف السابق يقوم بترتيب الصفحات ذات الارقام وبالتالي ستجد الصفحات الاخرى ذات الحروف وليس الارقام مستثناة وتجدها بجانب بعضها ولكن هناك احتمال الرغبة في استثناء صفخة او صفحات رقمية مثلا تريد استثناء صفخة 4 من الترتيب . هنا سيتم التعديل على الكود باظافة مصفوفة لتجميع الصفخات المستثناة كل ما عليك فعلة هو التعديل في هذا الجزء من الكود حيث اضفت لك صفحات افتراضية في الكود وليس في المصتف مثل "ملخص", "إعدادات", "تعليمات يمكنك تعديلها باي اسم او اظافة صفحات اخرى باي عدد تشاء excludedSheets = Array("الرييييسية", "تجميع", "ملخص", "إعدادات", "تعليمات") اليك الملف بالتعديل ترتيب الصفحات1.xlsm تحياتي

اعجني الموضوع من اول انشغالي بالاكسيس تيقنت ان الاكسيس من اضغف الحمايات لكني قكرة بان اسال الذكاء الصناعي سالت CHATGPT عن فكرة مجنونة لم يفكر بها احد لحماية الجداول ادعوا اخواني لتجربة الفكر المقترحة وانا ساجربها معكم مع توفر الوقت لدي سارفق الاجابة والسؤال الذي سالته انقر هنا

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

السلام عليكم 🙂 ولو اني مشغول لقمة رأسي ومسافر غدا ان شاء الله ، ولكني اردت المشاركة تفاعلا مع اخي ابوخليل 🙂 . وطريقتي: بالاشارة الى موضوعي ، الجزء الاول: واليك الجزء الثاني من الموضوع: 1. عملت ملف اكسس فارغ، وعملت فيه الاستعلام التالي لقراءة جدول MSysObjects برنامجك ، والذي يحتوي على جميع جداول البرنامج : SELECT MSysObjects.* FROM [D:\temp\1642.HideTBL V1-32.accde].MSysObjects ORDER BY MSysObjects.DateUpdate DESC; . والسبب في الفرز التنازلي ، هو لحقل تاريخ تحديث الجداول ، يعني اخر جداول عملت عليها التحديث (فقط علشان سهولة الوصول للجدول المطلوب). وحتى لو ما عملت الفرز ، فكان بإمكاني عمل كود لفحص الجداول فردا فردا 🙂 وحصلت على الجداول التالية: . ومنها جربت الجدول AccessTbl : SELECT AccessTbl.* FROM [D:\temp\1642.HideTBL V1-32.accde].AccessTbl . وحصلت على النتيجة 🙂 جعفر

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

هو الآن كذلك لا يتقيد بشفت معين .. فقط سنجري بعض التعديلات مدير الموقع عليه الاعلان للموظفين فقط ان الحضور الساعة كذا والانصراف الساعة كذا ... ومهم جدا ان يدخل في فورم التحكم وقت الدخول ووقت الخروج و عدد ساعات العمل فقط هذا كل شيء ساعات العمل تحتسب من وقت الدخول الرسمي وليس من وقت توقيع الموظف أسعدني مرورك قبل المحدد ( فترة العمل ) متاح له الخروج والدخول أكثر من مرة اما بعد فلا يمكنه التوقيع مطلقا ... والبرنامج يطبق عليه لائحة النظام المتبعة اما بالنسبة لما قبل وقت الدخول فهذا يرجع لصاحب العمل ان اراد تقييده .. فهذا ممكن

السلام عليكم ورحمة الله راجع المعادلات في الأعمدة المخفية من العمود B إلى العمود K من شيت "دفتر اليومية" لأن منها ظهر المشكل، وقمت بتصحيح هذه المعادلات بالسحب إلى الأسفل حسب ما فهمت في الملف المرفق. اليومية_034849.rar

السلام عليكم ورحمة الله تم التعديل على معادلاتك (معادلات الصفيف) في الملف لتتماشى مع طلبك دون استخدام الفلترة أو ماكرو... ألق نظرة على الملف المرفق. ID.xlsx

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

السلام عليكم ,, اعتذر منكم جدا جدا على التاخير اخي @منتصر الانسي شكرا لك ولمشاركتك بارك الله بك وزادك علما ,, ولكن لم تنجح الفكره لانني بحاجه لجميع حقول الاستعلام في الجدول وليس فقط حق الرقم والتاريخ , عند اضافة باقي الحقول في استعلام الجدول الخاص بالنموذج لا يتم التنقل بين السجلات . اخي وصديقي الطيب @Foksh احسنت العمل تم بشكل جيد جدا مع العلم انه لازال في خانة المسميه ek الخاصه بالبحث امر Requery ولكن يعمل بشكل جيد , كل الاحترام والتقدير لك فوووكش ❤️

قمت بالبحث وتصفح مواضيع الحماية خاصة لتجديد التفعيل والاشتراك . بحيث تكون آمنة وقوية لحاجتي الحالية لذلك لم اجد الا موضوعا احترافيا واحدا لأستاذنا ومعلمنا الخبير @Foksh ولكنه يشترط استخدام الانترنت هنا فاجتهدت على نفسي لتحقيق الفكرة وبفضل من الله تمكنت من عمل منظومة تجمع بين منع النسخ الى اجهزة أخرى وايضا تفعيل الاشتراك لفترة محددة الفترة حسب حاجة العمل .. قد تكون نسخة تجريبية لمدة شهر او شهرين أو تكون نسخة دائمة سنوية يتم تجديدها كل سنة العناصر المعتمد عليها : 1- رقم العتاد ( هارد دسك او معالج او اللوحة الأم ) الذي من خلاله يتم اعداد رقم النسخة 2- دالتي توليد .. لـــ (منع النسخ) دالة ، و لـــ (فترة الاشتراك) دالة 3- جدول يحتوي على حقلين واحد يخص الفترة الزمنية للاشتراك والآخر لضبط التلاعب بتاريخ الجهاز 4- دالة تشفير .. لتشفير التواريخ في الجدول العمل متقن تماما خالي من الاخطاء المحتملة عندما يكتمل سوف أوافيكم بنسخة لمن يرغب في التجربة

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب. ألق نظرة على الملف المرفق عبدالحي توزيع نسب (1).xlsx

اخي الكريم من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات ارفق لك ملفك بعد إضافة إستعلام والذي إذا فتحته جنبا الى جنب مع الجدول فلن تجد أي فرق إلا آخر عمود والذي يحتوي الإجمالي المطلوب بالتالي يمكنك إستخدام هذا الإستعلام بدلا من الجدول تحياتي Database.accdb

قريباً .. التحدي الصعب بتطبيق لعبة الدومينو بواسطة آكسيس بأسلوب السحب والإفلات وتطبيق اللعبة الحقيقية على أرض آكسيس 😅 لمحة مصورة من اللعبة :-

جميل جدا تحدي الذات والتنافس معها .. 😊👌 أحييك على هذي الروح المثابرة 😊🌹

السلام عليكم نعم الان اتضح المطلوب بارك الله فيك الحل تم حذف النطاق من ادارة الاسماء فصل شيفت'!$A$8:$R$283 من ادارة الاسماء وجعلنا النطاق مباشرة في الكود فاصبح الكود بهذا Sub filter_D() Dim Q1 As String Dim rng As Range Set rng = Sheets("فصل شيفت").Range("$A$8:$R$283") Q1 = Sheets("فصل شيفت").Range("A7").Value If Q1 = "" Then rng.AutoFilter Else Q1 = "*" & Q1 & "*" rng.AutoFilter Field:=1, Criteria1:=Q1, Operator:=xlOr, Criteria2:="=" End If End Sub نموذج حركة جرديوميه 15-11.xlsm

جرب المرفق بعد التعديل لعله المطلوب OK3 الكشوف.xlsb

المطلوب الأول هو من جنس المطلوب الثاني ولا داعي لتكرار الجداول المعادلات المستخدمة هي من نوع الصفيف وليست معادلات عادية تفضل example1.xlsx

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة قيد الإختبار ، بحيث يوجد في قاعدة البيانات الحالية المرفقة جدول باسم Table1 . يحتوي سجلات محمية . وأريد تجربة إن كان بالإمكان استيراد هذه السجلات أو معرفة القيم التي فيها ، و بأي وسيلة أو طريقة تخطر على بال من يحاول التجربة بالتعرف على السجلات . الهدف حماية السجلات من العبث ومنع استيرادها بتاتاً . 1. القاعدة غير محمية بكلمة مرور أو حتى أنها غير محفوظة بصيغة Accde ... 2. ما يهمني هو الطريقة التي تم بها الكشف عن الجدول . وليس النتيجة ذاتها Hide TBL.accdb

بسيطة إستخدم هذا الإستعلام من أي قاعدة بيانات أخرى SELECT MSysObjects.Flags, MSysObjects.Name, MSysObjects.Type FROM MSysObjects IN 'D:\HideTBL V1-64.accde' WHERE ( ((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.Type) = 1) ); وذلك على إفتراض أن الملف موجود تحت القرص D مباشرة وإلا قم بتعديل المسار تحياتي

الفترتين منفصلتين تماما عند التوقيع وما ينطبق على واحدة ينطبق على الاخرى فدعونا نتحدث عن واحدة منها : تعتمد الفكرة على وجود وقت الدخول + ساعات العمل + الوقت الاضافي ان وجد من خلال البيانات اعلاه نستخرج : 1- وقت الخروج الرسمي 2- صنع وقت احتياطي قبل وقت الدخول ووقت احتياطي بعد وقت الخروج بمقدار ساعة مثلا لكل واحد منهما اي ساعة متاحة قبل وساعة متاحة بعد هذان الوقتان + معرف الفترة .. هي معايير قبول التوقيع من عدمه النتيجة : لو كان حضور الصباح الساعة التاسعة صباحا والخروج الساعة الخامسة مساء ففي الامكان جعل الفترة المسائية تبدأ في الساعة الرابعة مساء . ولن يحدث تضارب بينهما كل ذلك من خلال فورم واحد وشاشة واحدة للجميع لا بأس يمكننا اضافة حقل يحمل القيمة كرقم

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

عذرا لم انتبه ان قي طلبك طباعة متعددة الطريقة الاولى زر print all اكتب كود الشركة بداية الطباعة في الخلية P2 ونهاية الطباعة في Q2 الطريقة السابقة لطباعة الارقام المتسلسلة وراء بعضها الطريقة الثانية عن طريق فورم زر طباعة خسب الاختيار وهي تغنيك عن كل الازرار وعن الطريقة الاولى حيث يمكن الطباعة لموظف واخد او الطباعة للكل او الطباعة المتعددة خسب الاختيار سواء الارقام متصلة ام منفصلة اختر ما تراه متاسب لطلبك مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm

تم تعديل المشروع بطريقة مختلفة تماما عن ما كنت افكر به سابقا يمكننا القول الآن ان العمل احترافي الوصف للتعديل الجديد : 1- يدعم فترتين مختلفتين مفتوحتين 2- لا يوجد حد فاصل بين الصباح والمساء .. كل فترة تعمل بشكل مستقل من خلال شاشة واحدة 3- الفترة تبدأ قبل وقت الدخول بساعة وتنتهي بعد وقت الانصراف بساعة ايضا .. 4- لا يمكن التوقيع خارج الوقت المعتبر للفترة .. 5- اذا لم يوقع الموظف خروج .. عند الحضور من الغد يسجل حضور ويبقى حقل خروج الأمس فارغا 6- تم التطبيق على شاشة توقيت الانترنت وعلى شاشة التوقيت المحلي الضوابط : مهم جدا : 1- ادخال البيانات الصحيحة كاملة في فورم التحكم : وقت الحضور الصباحي/وقت الحضور المسائي/ عدد ساعات العمل الصباحي والمسائي والوقت الاضافي ان وجد اكسس هو من يحدد وقت الخروج بناء على وقت الحضور + ساعات العمل 2- تعيين الفترات للموظفين في فورم الأسماء عند انتقال الموظف من الصباح الى المساء فقط يتم تغيير وقته في فورم الاسماء . اذا اردنا ان يعمل الموظف في الفترتين كليهما عليك تسجيله بمعرف جديد ................................. جرب كثيرا ووافني بالنتيجة اذا كل شيء تمام خبرني كي اهديكم المخرج النهائي ChkInOut_NetUp3.rar

تفضل جرب مثال1.xlsx

السلام عليكم ورحمة الله وبركاته اشكرك بشمهندس FOKSH عدلت ملف الاكسل كما طلبت مني والحمد لله تمت العملية بنجاح اشكرك بارك الله فيك وزادك الله علما

xx هي فعلاً فرق الرقم بين 14 و 16 حسب إصدارات الأوفيس لديك . وبما أنك لديك أوفيس 2010 ، فالقيمة XX ستكون 14 كما ذكرت . على العموم ، قم بضبط و تعديل ملف الأكسل بحيث تنقل الجدول الى الخلية A ، كما في الصورة ، ثم استخدم الأداة وستجد أنها جلبت القيم لك من جدول اكسل الى جدول اكسيس .

مشاركة مع اخي @Foksh استخدم هذا Dim rpt As Variant Dim ReportsList As Variant ReportsList = Array("Report1", "Report2", "Report3") For Each rpt In ReportsList DoCmd.OpenReport rpt, acViewNormal Next rpt

توسيـــــــــــــــع 2 واستكمال فقط اختيار اي (صورة خلفية) من عندك او (فيديو خلفية) من عندك تعرض لكافة الانماط -اضافة جديد للقائمة 🧐 1- 41 نمط رقم متحرك 2- 18 نمط حرك تحريك الارقام 3- 5 نمط ارقام ديجتل متحركة 4- 6 ارقام متحركة لبار السفلي للنافذة 5- 22 نمط لتسجيل الدخول 1-1 اضافة نمط تسجيل فيديو جديد 2- اضافة نمط تسجيل دخول جديد3 3- اضافة نمط جديد لتحريك عجلت الماوس لقائمة متحركة ايضا 1 ----------------------------( يمكنك خلط الارقام الديناميكية لعدة الوان فقط ادخالهم في مجلد من الحرف لثواني والدقائق والساعات وتجربة لون اسود واحمر ولون احمر وازرق واسود ومزيد في التحديث مع تقسيم الباكج مرفق للتحميل والادوات مرفق للتحميل 😇 ---------------------------------------------------------------( استاذ @Moosakيمكن تجربة قائمة المتحرك بعجلة الماوس في التسجيل الدخول بلا وميض ولا ترميش 😇 لاستكمال التحديث وزيادة الانماط مع تصاميم بور بوينت يتيح لك المزيد من الابداعات الجديده كل فتره المرفق اسفل الفيديو ومشاهدة ممتعة تحميل المرفق https://www.mediafire.com/file/wrcugm76wskliv1/MS_Access_Devloper_LogIN_IN_V104.rar/file

وعليكم السلام ورحمة الله وبركاته.. إن كنت تقصد أنك تريد استيراد قيم من ملف اكسل الى جدول اكسيس ، فألقِ نظرة على هذا الموضوع:-

جميل جداً هذا التوضيح والطريقة الجميلة أيضاً .. التعرف على أنه إذا كانت Type = 1 وبالتالي النوع 1 = جدول هي بحد ذاتها أيضاً فكرة جميلة . وبما أن قيمة الـتعليمة Flags = -2147483645 وهي قيمة ثابتة في اكسيس لجميع إصدارات أوفيس ، وهي للتوضيح الواجب أنه ليس لأوفيس علاقة بفرضها بهذه القيمة . بل يفرضها نظام التشغيل نفسه ( Windows ) على حد علمي . أما بخصوص السطر والفكرة التالية :- فهي بحد ذاتها جريئة وإلتفاته فتحت لي أفكاراً جديدة في هذا الخصوص . فشكراً لك ولكل من ساهم بإثراء الموضوع بمشاركته الجميلة والقيمة كجوهره

هل هذا هو المطلوب ؟ اذا نعم .. لا تسألني كيف ظهر .. لا ادري كيف ظهر معي

لا يصلح لان date تعني اليوم الحالي بينما الدوام المسائي يشتمل على يومين ايضا نموذجين لا يصلح لأن الفكرة كما تعلم نموذج واحد مفتوح دائما وغير قابل للتدخل لا تقلق سأعالج الأمر بطريقة مناسبة . ما رأيك ؟ من اجل ضبط توقيع الخروج هل نعتمد عدد ساعات العمل ونجعلها هي المعيار ومن اجل المرونة واتاحة مساحة للتوقيع نضيف ساعة اضافية مثلا اذا ساعات العمل 4 ساعات وبدء العمل الساعة الرابعة طبعا نهاية العمل الساعة 8 ...... نضيف ساعة اخرى لما بعد الثامنة من اجل اتاحة التوقيع لمن يتأخر في التوقيع غالبا التأخر لا يزيد عن نصف ساعة ولكننا نأخذ بالاحتياط ... اما بعد ذلك فلا يتمكن من التوقيع انتظر رأيك بهذه الفكرة ؟؟؟

هذا غير ممكن لأن ما تفعله الأداة هو إنشاء صورة وهمية وتعيينها كقيمة لخاصية الصورة Picture الخاصة بالنموذج

الله ................... روعة ما شاء الله 😀👏 هل يمكن تطبيقها على مربع نص مثلا أو ليبل ؟

تم الاصلاح والتعديل جرب ووافني بالنتيجة ChkInOut_NetUp.rar

المهم عندي انها تعمل عندك على الاقل على جهاز واحد المشاكل التي واجهتها ليس للبرنامج دخل فيها .. وها انت ذكرت الاسباب نعم كنت انتظر مثل هذه الملاحظات .. التي هي أساسية وفي صلب الموضوع والسبب بارك الله فيك هو المعيار ( Date ) الذي يحدد أو بمعنى أدق يهيئ السجل للتوقيع فالسجل تم اعداده بحيث يكون : اما يكون فارغا وإما يحتوي على توقيع حضور اليوم وفي المسألة التي عرضتها : تم توقيع الحضور ولكن بتاريخ الأمس هنا أكسس يتجاهل الانصراف الفارغ ويسجل حضور جديد .. لماذا ؟ لأن السجل فارغ بسبب المعيار ...................... سأعالج الأمر وآمل ان يكون التعديل سلسا يسيرا بحيث لا يؤثر على منظومة الضوابط داخل الكود

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

شفاكم الله شفاء لا يغادر سقماً وحفظكم بحفظه

لماذا الاعتذار أخي @kkhalifa1960 بالعكس فإثراء الموضوع بالافكار هي الغاية من المنتدى بحيث تكون الصورة كاملة امام السائل وهو من يقرر اي الإجابات التي تناسب عمله

شكرا استاذ فوكش لحضرتك

بالغ التحية والتقدير مجهود رائع جزيل الشكر سيدي

تفضل استاذ @shiblelayth مرفق من عندي به طريقتي ادخل البيانات بالنموذجان الاولان ثم النموذج الثالث عند اختيار الموظف يعطيق النتائج التي تريدها . ووافني بالرد shiblelayth.rar

هذا مثالي : لن يتم الحذف الا من خلال الزر فقط حتى لو صنعت زرا جديدا للحذف فلن تتمكن FMK2.rar