Moosak

شكرا لك أستاذ خليفة ، طبعا الكود يقوم بتدوير الصورة الأصلية من مصدرها (للعلم) 🙂

حسب ما فهمت أنك تسأل عن الحدث الذي يوضع عليه كود معين عندما ينتقل النموذج من سجل إلى آخر .. وهذا يحصل عند الحدث ( في الحالي - On Current ) للنموذج مع الانتباه إلى أن أكواد هذا الحدث تنطلق أيضا عند فتح النموذج

في الوقت الحالي هذا العداد من 1 إلى 160 .. ولو تم إدخال رقم أقل من الصفر أو أعلى من 160 فسيقف عند الحد الأدنى أو الأعلى .. أما لو كنت تقصد أن الحالة لديك تستدعي ترقيم مختلف ، حينها سنحتاج لإعادة التصميم والأرقام المخزنة 😁 (وهذا سهل إن شاء الله ) .. ولكني سأقف هنا حتى أستمتع بالنظر إلى فكرتك 😄

وهذه مغامرتي وتجربتي بعد العديد من المحاولات 😊 قابلة للتطوير كما تحب 🤗 ‏‏Meter -Moosak _ Final.accdb

الحين مع البرمجة صار إنتاج 360 صورة ما ياخذ ثواني 😄✌ عليك بالفكرة الثانية إذا .. وسنحتاج إلى صورة عداد وخط واحد فقط إذا عرفنا (فهمنا) الخوارزمية اللي على أساسها يدور العقرب . 🙂 تصور للنتيجة :

وعليكم السلام ورحمة الله وبركاته باش مهندس @Foksh 🙂 حسب علمي .. لا أعلم أن هناك خاصية لتدوير الصور في الأكسس .. ولكن يتبادر في ذهني هذه البدائل : 1 - تصميم عدة صور ( أسهم ) بزوايا مختلفة وميلان مختلف ، وعند كل نتيجة تستدعي الصورة المناسبة . 2- تستعيض عن صورة السهم بأداة الخط المتاحة من ضمن أدوات الأكسس ولكنها بدون رأس مدبب (السهم) وهذين الحلين تطبيقهما يسير بعون الله 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل Nationalities جدول الجنسيات.xlsx

هذا يعمل عندي بكفاءة 👍🏻

وعليكم السلام ورحمة الله وبركاته باش مهندسنا الحاضر الغائب @ابو جودي 🙂 دا شكلي وأنا ببص على الأكواد 😂😂😂 وأنا بقول دام الموضوع تحدي بينك وبين نفسك .. مش عايز أخش بينكم أخاف يكبر الموضوع بينكم ويجيني بوكس من هنا ولا هناك 😅👊🏻 لكن أنا شايف أنك طولتها وهي قصيرة يابوحميد .. 😁🖐 دامك رجعت تعتمد على التاج Tag والـ TabIndex للأزرار فأعتقد أنك في غنى عن هذي السلسلة الطويلة من الأوامر .. فممكن بكود قصير يتعرف على التاج وأيضا تعيد ترتيب مسميات الأزرار بشكل متسلسل ممكن تحقق النتيجة اللي أنت عاوزها

أخي @jo_2010 أنصحك باستخدام منسق الأكواد عند كتابة مواضيعك لكي لتسهل قراءة الكود 🙂 👈🏻 وبالنسبة للحل يمكنك عكس معناها بكتابتها بعدة صيغ هكذا : If Not IsNull(Me.PNAME) Or Me.PNAME <> "" Then أو If IsNull(Me.PNAME) = False Or Me.PNAME <> vbNullString Then

أنظر هنا : وهنا :

تابع هذا الموضوع سيفيدك إن شاء الله 🙂

يجب أن تنتبه وتكون دقيقا عند كتابة المعيار لأنه حساس لحالة الأحرف .. والأصل أنك تصمم نموذج خاص بالبحث بحيث تضع المواد المراد البحث عنها في قائمة منسدلة بدل كتابتها يدويا.. 🙂

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

وعليكم السلام ورحمة الله وبركاته أخي @مالك الحرايزة 🙂 فقط أضف هذه العلامة <> (وتعني لا يساوي ..) هكذا : "مكتب" <> أو هكذا : "*مكتب*" Not like قبل الكلمة الغير مرغوب فيها في الاستعلام .. والنتيجة : تجريبي.rar

وعليكم السلام ورحمة الله وبركاته 🙂 Database12.accdb

نعم هو نفسه .. لا لم أجرب أكثر من مرة 🙂

دالة Round تقرب الأعداد الفردية للأعلى والزوجية للأسفل مثال: 1.2 > 1 1.5 >2 1.9 > 2 2.2 > 2 2.5 >2 2.9 >3 ----------------------------------------------------- ولجعل هذه الدالة ترفع دائما للأعلى نستخدم الصيغة التالية : -Int(-Number) حيث Number هو الرقم أو الحقل المطلوب 1.2 > 2 1.5 >2 1.9 > 2 2.2 > 3 2.5 >3 2.9 >3 ------------------------------------------------- دالة Int تقرب للأسفل مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 ------------------------------------------------- دالة Fix تقرب للرقم الأقرب للصفر بمعنى الأعداد الموجبة تنزلها والسالبها ترفعها مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 -1.2 > -1 -1.5 >-1 -1.9 > -1 -2.2 > -2 -2.5 >-2 -2.9 >-2 ------------------------------------------------- دالة Fix تقرب للرقم الأقرب للصفر بمعنى الأعداد الموجبة تنزلها والسالبها ترفعها مثال: 1.2 > 1 1.5 >1 1.9 > 1 2.2 > 2 2.5 >2 2.9 >2 -1.2 > -1 -1.5 >-1 -1.9 > -1 -2.2 > -2 -2.5 >-2 -2.9 >-2

تفضل عمي @Foksh 🙂 : Replace(Replace(Format(Time, "hh:mm:ssAM/PM"), "PM", ""), "AM", "") والنتيجة :

🙂

وعليكم السلام 🙂 بدل نقلها ملف ملف .. أنقل المجلد كاملا بما فيه هكذا : FileCopy "C:\1", "C:\2"

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

ما شاء الله تبارك الله 🙂 شكرا لك يا @طير البحر على الهدية الرائعة والجهد المبذول 👍🏻😊 موضوع متميز ويستحق التثبيت 😉👌🏻

اعرض الملف 🎁✨ :: الرسائل الإبداعية :: 🌼🌷 :: استبدل الرسائل العادية برسائل قمة في الجمال 😊👌🏻 السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹 صاحب الملف Moosak تمت الاضافه 13 أبر, 2024 الاقسام قسم الأكسيس