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

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

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

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

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

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

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

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

السلام عليكم 🙂 ولو اني مشغول لقمة رأسي ومسافر غدا ان شاء الله ، ولكني اردت المشاركة تفاعلا مع اخي ابوخليل 🙂 . وطريقتي: بالاشارة الى موضوعي ، الجزء الاول: واليك الجزء الثاني من الموضوع: 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- دالة تشفير .. لتشفير التواريخ في الجدول العمل متقن تماما خالي من الاخطاء المحتملة عندما يكتمل سوف أوافيكم بنسخة لمن يرغب في التجربة

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

وعليكم السلام تفضل هذا الملف ربما يفيدك ويكون به المطلوب ان شاء الله وبالتوفيق المحطة.xlsm

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

تفضل استاذ @Emad.85 طلبك حسب ما فهمت .اليك الشرح والمرفق . ولو حابب توسع النماذج ارفقها وأنا حاضر . ووافني بالرد . Emad.85.rar

ملفك بعد التعديل 20251124.rar

تفضل استاذ @Abdelaziz Osman 'طلبك حسب ما فهمت . اختار الاوردر من النموذج ثم افتح التقرير من الزر وطالع التقرير. ووافني بالرد . اليك المرفق بطلبك. quirytreble-1.rar

هذا هو التطبيق PrintMultipleCopies.accdb

إضافة إلى ما ذكره الأساتذة يمكنك استخدام هذه الدالة: Public Function PrintMultipleCopies(strReportName As String, _ bytNumberOfCopies As Byte) Dim bytCounter As Byte For bytCounter = 1 To bytNumberOfCopies DoCmd.OpenReport strReportName Next bytCounter End Function وطريقة الاستدعاء: Call PrintMultipleReports("[اسم التقرير]", 2) ' حاليا تم التعيين نسختين ويمكنك التعديل حسب ما تريد

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

بسيطة إستخدم هذا الإستعلام من أي قاعدة بيانات أخرى 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- صنع وقت احتياطي قبل وقت الدخول ووقت احتياطي بعد وقت الخروج بمقدار ساعة مثلا لكل واحد منهما اي ساعة متاحة قبل وساعة متاحة بعد هذان الوقتان + معرف الفترة .. هي معايير قبول التوقيع من عدمه النتيجة : لو كان حضور الصباح الساعة التاسعة صباحا والخروج الساعة الخامسة مساء ففي الامكان جعل الفترة المسائية تبدأ في الساعة الرابعة مساء . ولن يحدث تضارب بينهما كل ذلك من خلال فورم واحد وشاشة واحدة للجميع لا بأس يمكننا اضافة حقل يحمل القيمة كرقم

عجيبة اجهزتك هذه .. انا لم اغير القاعدة .. هي هي من اول مشاركة على كل حال قمت بتجديدها ونقلها الى قاعدة بيانات جديدة انا اعمل على اوفيس 2010 .. والافضل ان تعمل على مثله ايضا .. ChkInOut_NetUp4.rar

الحمد لله على نجاح الفكرة 😇🤗

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

طلبك غير مفهوم .... ارفع مرفقك موضحاً عليه طلبك ..............

مشاركة مع اخي @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

كما تفضلتم أخي @منتصر الانسي تماماً .. نجاح السطر الذي ارفقته وشاركته دليل على أنه أحد خصائص آكسيس التي يمكن من خلالها فعلاً تحديد عندد النسخ من خلال تمرير القيمة داخل سطر الإستدعاء . لكن يبدو من خلال بعض التجارب أن الأمر مرهون بعدة عوائق منها نوع الطابعة ، تعريف الطابعة نفسه ، نظام التشغيل الويندوز أو بمعنى ادق التحديثات التي تُـحدِثــُها مايكروسوفت . لذا توجهت فعلاً إلى استخدام أمر التكرار كحلقة لتكرار أمر الطباعة . وهذا الموضوع الخارجي لتوسيع الفكرة لطباعة تقرير من خلال آكسيس .

هو المطلوب بعينه ، ولكن إن لم يكن معلمي يدري ، فمن يدري !!!

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

بعد اكتمال البرنامج واصلاح جميع الملاحظات .. سأوافيك بالمخرج النهائي الذي لا تتخيله الآن

تقصد ان كنت اقدر اعرف البيانات ال فى الجدول المخفي زذ كده ؟

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

وعليكم السلام ورحمة الله وبركاته .. بعد الإطلاع مرتين على الملف المرفق وطريقة عملك عليه ، جرب الحدثين التاليين في الأزرار .. Private Sub a1_Click() Dim curID As Long Dim nxt As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece + 1 Else curID = CLng(Me.ek) End If nxt = DMin("no_rece", "enar_dman", "no_rece > " & curID) If Not IsNull(nxt) Then Me.ek = nxt Me.Requery Else MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" End If End Sub Private Sub a2_Click() Dim curID As Long Dim prv As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece - 1 Else curID = CLng(Me.ek) End If prv = DMax("no_rece", "enar_dman", "no_rece < " & curID) If Not IsNull(prv) Then Me.ek = prv Me.Requery Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End Sub طبعاً قد تحتاج لزر "سجل جديد" إذا كان النموذج الحالي إدخال البيانات . وهذه الفكرة بدلاً من التكرار للحدثين في الزرين ،يمكن دمجهم في دالة واحدة والإستدعاء فقط من خلال الزرين يميز السابق والتالي :- Private Sub a1_Click() GoToRecord True End Sub Private Sub a2_Click() GoToRecord False End Sub Private Sub GoToRecord(isNext As Boolean) Dim curID As Long Dim newID As Variant Dim fld As String: fld = "no_rece" If Nz(Me.ek, "") = "" Then If isNext Then curID = Me(fld) + 1 Else curID = Me(fld) - 1 End If Else curID = CLng(Me.ek) End If If isNext Then newID = DMin(fld, "enar_dman", fld & " > " & curID) Else newID = DMax(fld, "enar_dman", fld & " < " & curID) End If If Not IsNull(newID) Then Me.ek = newID Me.Requery Else If isNext Then MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End If End Sub test.zip

وعليكم السلام ورحمة الله وبركاته .. جرب في حدث بعد التحديث لمربع النص الغير منضم الفكرة التالية .. Private Sub AMOUNT_AfterUpdate() Dim vAmount As Double vAmount = Nz(Me.AMOUNT, 0) DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET JOR = Nz(US,0) * " & vAmount DoCmd.SetWarnings True DoCmd.Requery End Sub

استاذ @moho58 برفق اليك مرفق من أعمال استاذنا @ابو جودي انا شخصياً بستعمله . ملاءمة عناصر النموذج حسب حجم النموذج.rar

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

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

تمام أستاذ عبد الله مشكووووور جدا تم حل المشكله بالكامل

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