Moosak

هنا يوجد أحد الحلول 🙂

اطلع على هذا الموضوع أستاذنا العزيز @Foksh 🙂

وهذا ملف آخر من عندي 🙂 كلمة السر : 123 يمكنك تعديلها في الكود .. ‏‏تمكين أو تعطيل زر الشفت SHIFT Enable or Disable - محمي بباسوورد.accdb

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

حسب ما فهمت أنك تسأل عن الحدث الذي يوضع عليه كود معين عندما ينتقل النموذج من سجل إلى آخر .. وهذا يحصل عند الحدث ( في الحالي - 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

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

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