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

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

الفكرة ليست في انتاج الصور الـ 360 .. الفكرة في مساحة النموذج بعد إدراج الصور . أما الفكرة الثانية فهي ما ابحث عنه ؛ وبدعمكم وافكاركم وتوجيهاتكم سنتوصل الى حل بإذن الله

السلام عليكم القريب لطلبك هو الاستفادة من الاكواد الخاصة بالساعة .. حصرا عقرب الثواني فقط .. واستبدال المصفوفة في المتغير بدلا من ( 0 الى 60 ) الى ( 0 الى 360 ) وبدلا من حدث التايمر (التاريخ والوقت) يكون قيمة ثابتة عند النقر اذكر اني محتفظ بمثال للساعة ولكن جهازي بعيد ، ومؤكد لو بحثت عنه هنا ستجده

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

أول خطوة تعملها عند نقل الكود هي نقل الوحدة النمطية CreateFolder الى مشروعك ثاني خطوة استدعيها في اول نموذج يعمل لديك أو من اي مكان تريده أخي @abouelhassan بهذا السطر CreateDataFolder في حدث عند الفتح فقط 😊

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

وعليكم السلام ورحمة الله وبركاته ,, للسجل التالي :- DoCmd.GoToRecord , , acNext للسجل السابق :- DoCmd.GoToRecord , , acPrevious

إن شاء الله سهلة عليك مهندسنا الكبير ,, أما بالنسبة لفكرتي فسأذكر سبب حاجتي لهذه الفكرة ، وهي أنني سأضيف فكرة اتجاه القبلة الى برنامجي ( صلوات ) ، وتعتمد الفكرة في تنفيذها على عملية حسابية تستند الى خطي الطول والعرض لكل موقع . 😁 حاضر يا سيدي ، حال انتهائي سأدرجها هنا وهذا يا مهندسنا @Moosak الكود الذي خلصت به لتنفيذ فكرتي Dim ctrl As Control Dim secValue As Integer Dim Rx As Integer Rx = Abs(Me.Txt_Sec.Value) secValue = Abs(Round(Me.Txt_Sec.Value / 6, 0)) If Me.Txt_Sec.Value < 0 Then secValue = (360 - Rx) \ 6 End If For Each ctrl In Controls If Left(ctrl.Name, 1) = "s" Then If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then Me(ctrl.Name).Visible = True Else Me(ctrl.Name).Visible = False End If End If Next

لم افهم اي خطأ أخي الكريم ، اذكره بالتحديد أو صورة عنه

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

انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 360 درجة ، حتى أنني دعمت فكرة الزوايا التي تكون قيمتها أقل من 0 ( -250 ) مثلاً ، وقد انتهيت منها الى حد ما

مجهود رائع جداً ولا شك فيه .. ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!

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

وعليكم السلام ورحمة الله وبركاته ،، أهلاً بصاحب الأفكار العبقرية 😀 ، حمداً لله على سلامتك معلمي الفاضل @ابوخليل . والله ما تطرقت للتشبيه في ردي على الأستاذ @Moosak إلا من وحي هذه الفكرة الخاصة من مثال الساعة . سأجرب وأخبركم بالنتيجة 🤗

أهلاً بأستاذنا الكبير @Moosak ، بارك الله فيك على الإستجابة السريعة 🥰 . أنا أعلم أن اكسيس لا يوفر هذه الخاصية ، ولكن تبادر لذهني تنفيذ الفكرة بشكل برمجي إن كان ممكناً . كفكرة عقارب الساعة مثلاً أنها تدور حول مركز محدد 😉 . اما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 . واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁 .

السلام عليكم تحديد اوائل القسم في امتحان نهاية العام يعتبر من اللمسات الفنية لاي شهادة وهذا الملف مفتوح المصدر . لتعم الفائدة يمكن التعديل على الملف حسب احتياجاتك اللهم اجعل هذا العمل خالصا لوجهك الكريم Awael.xlsm

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

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

وعليكم السلام ورحمة الله تعالى وبركاته Sub Merger() Dim srcWS As Variant, _ WS As Worksheet, _ I As Long, nCount As Integer Const rCrit As String = "دمج" Const P As String = "%" nCount = 4 Set WS = Sheets("dmg1"): srcWS = Array("1", "2", "3") Application.ScreenUpdating = False WS.Range("b4:f" & WS.Rows.Count).ClearContents For Each arr In Worksheets(srcWS) a = arr.Range("A2:G" & arr.Range("A" & arr.Rows.Count).End(xlUp).Row).Value tmp = arr.[C1] For I = 1 To UBound(a) If a(I, 2) > 0 And a(I, 5) = rCrit _ And a(I, 6) > 0 Then WS.Range("b" & nCount).Resize(1, 5).Value _ = Array((a(I, 1)), (a(I, 2)), (a(I, 6)), _ (a(I, 7) & P), tmp) nCount = nCount + 1 With WS.Range("B4:B" & WS.Cells(Rows.Count, "C").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-3") End With End If Next Next arr Application.ScreenUpdating = True End Sub وفي حدث ورقة (dmg1) Private Sub Worksheet_Activate() Merger End Sub ahmed v2.xlsb

تفضل اخى ارسال واتساب.xlsm

بفضل الله تعالى تم التعديل على الملف حسب طلب حضرتك ولو فى اى استفسار ان شاء الله اساعد قدر المستطاع حمل النسخة المعدلة باسم teacher-mz teacher-mz.xlsx