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

ارسل المرفق حتى نعرف اين المشكلة يا اخي الكريم ,,,,

السلام عليكم... اضافة لما تفضل به الاستاذ @Foksh لديك طريقتان : 1- تجعل خاصية popup =نعم و خاصية Modal =نعم ..بالنسبة للتقرير 2- تضع في زر فتح التقرير في النموذج السطر التالي: Docmd.Openreport "YourReport", acViewPreview, WindowMode:=acDialog

تفضل بالتوفيق INSERT INTO tbmor ( [or] ) SELECT DISTINCT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr WHERE (((Exists (SELECT 1 FROM tbmor WHERE tbmor.[or] = [tbmr.mr] & "-" & [tbmo.mo] ))=False)) ORDER BY [tbmr.mr] & "-" & [tbmo.mo]; شكراً أستاذى @Foksh

وعليك السلام ورحمة الله وبركاته المهندس @Foksh 🙂 ما شا الله تبارك الله .. هذه سابقة لك ما رأيت أحد عرض هذه الفكرة قبلك .. أسأل الله العظيم أن يجعلها في ميزان حسناتك وأن يتقبل منك صالحات أعمالك 😊🤲🏻🌹🌷 الموضوع يستحق التجربة .. ولكن الخوف من أن يؤثر الحجم على أداء الهاتف 😁🖐🏻

تفضل أخي الكريم .. مشاركة مع الأستاذ @محمد احمد لطفى INSERT INTO tbmor ( [or] ) SELECT tbmr.mr & tbmo.mo AS [or] FROM tbmr, tbmo ORDER BY tbmr.mr & tbmo.mo; mor.accdb

اخي الكريم تكمن المشكلة ان البرنامج يفتح بوضعية Maximize وفي هذه الحالة تصبح التقارير خلف النموذج الرئيسي ، لذا افضل حل لديك الان هو عرض التقارير أيضاً بخاصية Maximize ، وإلا فلتستغني عن خاصية ملئ الشاشة للنماذج. من وجهة نظري 😊

السلام عليكم ورحمة الله أخي طارق لك وحشة... إن شاء الله تكون بخير وعافية... وهذه محاولة في الملف المرفق... 555.xlsx

السلام عليكم تفضل المرفق 555.xlsx

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) لكثرة الطلبات على برنامج إدارة الحضور والإنصراف للموظفين ، وددت مشاركتكم النسخة الأولى الغير مفتوحة المصدر حالياً ، لحين الإنتهاء من التعديلات التي ستتم على البرنامج . دون الإطالة في المقدمة ؛ سأشرح لكم بعض ميزات البرنامج :- أولاً سيتم إضافة الإعدادات الضرورية للبرنامج وهي :- تصنيف الموظفين ( ولكل تصنيف سيتم تحديد عدد أيام الإجازات السنوية له ) . تصنيف الإجازات ( طارئة ، مرضية ، ..... إلخ ) . تحديد وقت بداية ونهاية ساعات العمل الرسمي ، و تحديد مدة السماح للتأخير ( المرونة في العمل ) ، تحديد عدد مرات التأخير ليتم احتساب يوم إجازة في اليوم الأخير من المدة . ثانياً ومن الطبيعي وجود موظفين في قاعدة البيانات ، سيكون قسم لإدخال بيانات الموظفين بشكل بسيط من المعلومات ( ولكم حرية التوسع حسب رغبتكم وحاجتكم كمستخدمين ) ، وطبعاً لكل موظف رقم وظيفي خاص به اعتمد على سلسلة مكونة من التاريخ والوقت الحالي بدون مسافات بهذا التنسيق YYYYMMDDhhmmss ، بحيث لا يكون هناك تكرار نهائي لأي رقم موظف . ثالثاً لوحة تسجيل الحضور والإنصراف عن طريق الرقم الوظيفي ، وتدعم القراءة من الباركود الموجود على باجة الموظف ( طبعاً لاحقاً سيتم إضافة طباعة باجة أو بطاقة للموظف ) ، وفي هذه اللوحة لن تحتاج تحديد الحالة ( حضور أو إنصراف ) فقط أدخل رقم الموظف وسيتم احتساب وقت الحضور وتسجيل مدة التأخير بالدقيقة في الجدول ، وكذلك الأمر للإنصراف . رابعاً لوحة تسجيل الإجازات ، وطبعاً بناءً على المعطيات التي تم إدخالها في نماذج البيانات الأساسية في الإعدادات - سيكون الأمر بسيطاً جداً وتم اعتماد رقم الموظف في المرحلة الأولى من البرنامج وسيتم اعتماد اسم الموظف أيضاً لجلب البيانات لاحقاً . بخطوات بسيطة بعد ادخال رقم الموظف نحدد تاريخ بداية الإجازة ، ثم عدد الأيام المطلوبة كإجازة ، ثم سيتم تلقائياً احتساب يوم نهاية الإجازة ، وطبعاً نوع الإجازة المطلوبة ستقوم باختياره من قائمة نوع الإجازة . خامساً لوحة التقارير ، بحيث سيكون لدينا في المشروع تقرير واحد فقط لكنه سيخدم جميع الطرق التي تريدها كمستخدم ( تقرير للموظفين جميعاً مع وبدون تحديد فترة ، تقرير لموظف واحد مع وبدون تحديد فترة ) . *وطبعاً ما زالت قيد التطوير بشكل خاص ملاحظة:- تم حفظ البرنامج بصيغة Accde كونه قيد التطوير والتعديل حالياً اقترب عيد المسلمين مودعين به شهرهم الفضيل أعاده الله علينا وعليكم باليمن والبركات . وتقبل الله منا ومنكم الطاعات وصالح الأعمال . وسأختم به آخر تعديل على هذا المشروع البسيط ؛ متمنياً أن يكون على قدر الجهد المبذول فيه . وأعتذر بداية عن التأخير في انهاء العمل عليه ، ولكن لضيق الوقت ليس إلا . اليوم انهيت تأسيس الأساسيات في برنامج إدارة الحضور والإنصراف الذي يعمل بنظام بصمة الـ QR . وسأذكر بالتفصيل البسيط ما تم إضافته . الإضافات في النماذج :- ربط قارىء QR يعمل عن طريق الـ USB أو عن طريق الجوال بالنظام . دعم كامل لللغة العربية في قراءة رمز الإستجابة السريعة QR . اعتماد اسم الموظف بالإضافة الى رمز الـ QR . نظام التنبيه لضبط الإعدادات الرئيسية في البرنامج عند تشغيله أول مرة . إحصاء لعدد الموظفين ، الحضور ( على رأس عملهم ) ، المجازين ، المغادرات خلال اليوم . ترحيل بيانات الإجازات والمغادرات والحضور بشكل شهري ( بداية كل شهر ) . الإضافات في الأكواد :- تمت مراجعة جميع الأكواد من أي خطأ محتمل في التنظيم أو آلية العمل . تم إضافة فكرة تثبيت برنامج الربط Barcode2Win من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كثيراً منا حاول تشغيل تطبيقات ومشاريع آكسيس على الجوال ؛ ولكن دون نتيجة حقيقية أو فعالة . اليوم وبعد تجربة شخصية لتشغيل برامج آكسيس على الجوال بكل بساطة . دون مقدمات طويلة وعريضة لمبدأ بالمطلوب والأساسيات لتنفيذ هذه الفكرة . البرامج المطلوبة :- برنامج Limbo-x86 ؛ وهو البرنامج الوسيط لإنشاء جهاز كمبيوتر على الجوال . ويتم تثبيته على الجوال . ( APK ) نسخة Windows7 تم تثبيتها على الهاتف من نوع Huawei Y9s بمواصفات عادية ( ! ) . وتم تفعيل اللغة العربية بشكل كامل . ولم يتم حذف أي من مكوناتها . أيضاُ تم تثبيت نسخة أوفيس 2010 كاملة . ( QCOW2 ) برنامج ISO Craft-1.6 ، وسيتم ذكر وظيفته لاحقاً . أيضاً يتم تثبيته على الجوال ( APK ) طريقة العمل :- بعد نسخ الملفات التي تم تحميلها . يتم تثبيت التطبيق الأول Limbo-x86 وفتحه . لا بد من ضبطه بشكل بسيط كالآتي :- من النقاط الثلاثة أقصى اليمين نختار Settings . ثم نفعل الصلاحية للوصول لمدير الملفات ، وكذلك الأمر بالنسبة للـ Orientation نجعلها تساوي Landscape . كما في الصورة . ثم ننزل لأسفل عند الجزء Advanced ومنها الخيار High Priority نقوم بتفعيلها . ثم رجوع لواجهة البرنامج . الآن سنقوم بإنشاء جهاز كمبيوتر وهمي من خلال المثلث الصغير None ثم New ، ثم اكتب أي اسم تريده ( مثلاً Win7 ) . الآن سنقوم بضبط بعض الأمور ليعمل الجهاز الوهمي بأقل المواصفات ( حسب مواصفات الجوال ) . بالصور في الصورة التالية ، تستطيع تجربة أي الخيارات أفضل لك حسب نوع ومواصفات جهازك للتوضيح في هذا الجزء المهم . Machine Type & CPU Model & Enable MTTCG يجب تحديدهم كما هم بالصورة ( بعد عدة تجارب طبعاً ) الآن سنقوم بتحديد مسار نسخة الويندوز التي تم تحميلها ونسخها إلى ذاكرة الهاتف في Hard Disk A الآن بعد إتمام الإعدادات المطلوبة ، وقمنا بتشغيل الكمبيوتر الوهمي الذي تم إنشاءه . هذا الفيديو توضيحي للنسخة المرفقة في الروابط . طبعاً إجابةً لعدة استفسارات سيتم السؤال عنها وهي ( بطئ النسخة ، حجم الشاشة هل ستساعد ، الفكرة غير ناجحة لأسباب أخرى ما السبب ؟ .... ) كلها تعتمد على أن كرت الشاشة في التجربة هو السبب لأنه كرت شاشة وهمي ويعتمد على الذاكرة العشوائية للجوال . فعند تجربتي على جوالي الـ Huawei Y9s استغرق التشغيل والإقلاع الكامل تقريباً 6 دقائق ، بينما على جوال Samsung Note +10 استغرق التشغيل والإقلاع تقريباً 3 دقائق . ( ليست دعاية أو تسويق لأي منتج أو شركة ؛ وإنما توضيح للتجربة أين تم تطبيقها ) الآن نأتي لبرنامج ISO Craft-1.6 وما هي وظيفته وحاجته ؛ هذا البرنامج يستخدم لإنشاء ملفات الـ ISO على الجوال لإستخدامها كمحرك أقراص CD داخل البرنامج ونسخة الويندوز التي تم انشائها . وكتوضيح ؛ بما أن الويندوز الذي تم تشغيله مستقل بذاته عن الهاردوير ( القطع ) في الجوال فسنحتاج الى محرك أقراص وهمي ، وسيتم اختياره من هذا الخيار في البرنامج الرئيسي Limbo . أشكر لكم سعة صدركم إن كان الموضوع طويلاً . وإن فاتني نقطة لم ألتفت لها أرجو التنبيه بالتعليقات والمشاركات وسيتم العمل على التوسع في الفكرة بحيث تشمل الفكرة التطبيق على نسخة Windows 10 و أيضاً نسخة Windows XP

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

ابداع ليس له حدود من مبدع مثلك .... سلمت يمينك يا رجل .

يعمل عندي بشكل جيد ولا يوجد مشاكل أوفيس 2010 32 بت

حاضرين أخي وفي أي وقت . رمضان كريم .

تفضل استاذنا @abouelhassan طلبك بالمرفق . ولا تنسى الضغط على أفضل اجابة حتى نغلق هذا الموضوع . MahdiPermissionsTemp.rar

هذا البرنامج معمول اليه صلاحيات وفورم دخول وانا ما أريد أعبث به بل اريد برنامج عادي ( جداول - استعلامات - نماذج - تقارير .......... ) .

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

هل جربت هذه الفكرة 🤔 Dim db As DAO.Database Dim strSQL As String Set db = OpenDatabase("D:\System\zx\Database.accdb", False, False, ";PWD=YourPassword") strSQL = "DELETE * FROM tbe" db.Execute strSQL db.Close

ما شاء الله تبارك الله

شكراً لمروركم العطر أخونا @abouelhassan

ماشاء الله تبارك الله حفظكم الله

جزاك الله كل الخير أستاذنا @Moosak ، وأسأل الله أن ينفعنا وإياكم بعلمه الذي علمنا . أتمنى أن تكون سابقة كبداية للفكرة مع أمل تطوير أدائها بشكل أفضل . الحجم لا يؤثر على أداء الهاتف أبداً ؛ مساحة النسخة بعد فك الضغط عنها وتثبيتها تقريباً 4.5 جيجا . وجاري العمل على تقليل حجم النسخة بإزالة التطبيقات الغير ضرورية من النسخة في التعديل الجديد ؛ طبعاً دون التأثير على استقرار نسخة الويندوز .

تفضل أخي هذا الكود لجميع أزرار الـ F في الكيبورد ، ولكن يجب التنبيه الى تعديل قيمة Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Select Case KeyCode Case vbKeyF1 KeyCode = 0 MsgBox "You Press F1", , "" Case vbKeyF2 KeyCode = 0 MsgBox "You Press F2", , "" Case vbKeyF3 KeyCode = 0 MsgBox "You Press F3", , "" Case vbKeyF4 KeyCode = 0 MsgBox "You Press F4", , "" Case vbKeyF5 KeyCode = 0 MsgBox "You Press F5", , "" Case vbKeyF6 KeyCode = 0 MsgBox "You Press F6", , "" Case vbKeyF7 KeyCode = 0 MsgBox "You Press F7", , "" Case vbKeyF8 KeyCode = 0 MsgBox "You Press F8", , "" Case vbKeyF9 KeyCode = 0 MsgBox "You Press F9", , "" Case vbKeyF10 KeyCode = 0 MsgBox "You Press F10", , "" Case vbKeyF11 KeyCode = 0 MsgBox "You Press F11", , "" Case vbKeyF12 KeyCode = 0 MsgBox "You Press F12", , "" End Select End Sub Keys.accdb

جزاكم الله كل خير الاستاذ @Foksh و الاستاذ @محمد احمد لطفى المثالين تمام طلب اخر لو تفضلتم عند الضغط على الاستعلام لا اريد ان يكرر الموجود سابقا بمعنى لو اضفت اسم اخر في الجدول tbmr يكون الاجراء فقط على هذا الاسم بدون نكرار ما تم الحاقة في الجدول سابقا

تفضل هل هذا ما تريد INSERT INTO tbmor ( [or] ) SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr; mor.accdb

وعليكم السلام اخي تقدر من نفس مربع النص الذي عملته للبحث ... اخر الكود تضيف "" = me.text1 في حال اسم مربع النص text1

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

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

تشريف أخي العزيز الوزير 😊🌹 والحقوق متاحة للجميع .. موافق تقابلها ok نعم تقابلها yes موافق تجدها مقرونة بإلغاء الأمر أو وحدها.. ونعم تجدها مقرونة ب لا وأحيانا ( نعم - لا - إلغاء الأمر )

استاذ @ra7yl2006 افتح الفورم في وضع التصميم ثم علم على كل محتويات الفورم ثم كليك يمين عليهم بيفتح لك ديالوج انزل الى (Anchoring) ثم اول اختيار (Top left) ووافني بالرد . اليك الشرح .

مشاركة مع اخي خليفة اسهل طريقة لترقيم حقل نصي هي الاستفادة من حقل الترقيم التلقائي الخاص بالجدول ... ويصبح الكود هكذا id = "RV." & Me.autoNmber على اعتبار Me.autoNmber هو حقل الترقيم التلقائي وهنا لست بحاجة الى اضافة اصفار .. لأن الترقيم التلقائي سيمتد الى مئات الآلاف

تفضل ‏‏OE2.rar

تفضل اطلع اولا العمل هذا في بدايات تعلمي .. قبل ما يقارب 25 سنة صممت التقرير من واقع العمل على الارض .. صورة طبق الأصل من الحافلات التي تنقل الطلاب تركت لك كود جلب اسم الطالب في الكراسي الثلاث الأمامية .. للأستئناس Bus.accdb

اذكر اني عملت مثل هذا في النقل المدرسي سأبحث لك عنه

وكملاحظة أخرى ، إذا كان النموذج الفرعي فقط لعرض البيانات فقط . فتستطيع عمل خاصية التمكين = لا ، والقفل = نعم (Enabled = No , Locked = Yes)

حصلت عندي قاعدتان يمكن يكون فيهما ضالتك . إخفاء واظهار الجداول والكائنات.rar

تفضل وياريت يكون هو المقصود (خاص بكل الكائنات في الاكسس) شامل إخفاء واظهار الجداول والكائنات.mdb

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