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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي الإسم =IFERROR(INDEX(A!B$3:B$1000, SMALL(IF(A!$A$3:$A$1000=$E$4, ROW(A!$A$3:$A$1000)-ROW(A!$A$3)+1), ROW()-5)), "") التشخيصي =IF(B6<>"", INDEX(A!C$3:AD$1000, MATCH(B6, A!B$3:B$1000, 0), MATCH($G$4, A!C$1:AD$1, 0)), "") التقويم =IF(B6<>"", INDEX(A!C$3:AD$1000, MATCH(B6, A!B$3:B$1000, 0), MATCH($G$4, A!C$1:AD$1, 0) + 1), "") A.xlsx

السلام عليكم 🙂 الاكسس معروف بنقطة ضعفه مع الصور ، وبغض النظر عن قوة كرت الشاشة. اعطيك الصافي ، للحركة انس الصور ، و استعمل الخطوط والمربعات والدوائر لعمل شكل معين ، لان فيه نقاط x و y واللي الاكسس ممكن يرسمهم فوق صورتك ، وتلقائيا كل نقطة من هذا الشكل سيتحرك (يعني ارسم الشكل المعقد مرة واحدة بإحداثيات x و y ، ومن ثم لما تغير مكان الشكل ، تلقائيا كل نقاط الشكل ستتحرك) ، ومن الرابط التالي تقدر تتعلم كيف تعمل بعض الاشكال الغير معقدة 🙂 هذا موقع (لصاحبته crystal وهي احد محترفي الاكسس) فيه ما لذ وطاب من طرق استعمال الخطوط والمربعت والدوائر: https://msaccessgurus.com/VBA/ReportDraw_Reference.htm?ref=nolongerset.com وبعد ما تاخذ لفة على الصفحة ، اختم الموضوع بتنزيل لعبة تنس الطاولة من : الكود: https://controlc.com/ac9f4c3b الفيديو: جعفر

ههههههههههههههههه , اخي Foksh عملية الولادة انتهت , الرضيع في غرفة الرعاية , سوف نختبره في الصباح الباكر لعدم وجود جهاز السكنر هنا شكرا لردك و تجاوبك😅

استاذى الغالى الله الله عليك استاذ ودكتور فى اكسس بمعنى الكلمة تمام عليك شرح وافى وواضح ووفيت بكل شئ ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب تعتقد ما السبب فى هذه الرعشة ـ وان لم اجد لها حل فسوف اتركها مرعوشة ربنا يبارك فيك وفى اولادك وفى صحتك وعافيتك لا يوجد حدث عند الوقت وانا طبقت كل ما حضرتك اشرت اليه وفعلا يتلون الصف واضفت DoCmd.Echo False ولكن الرعشة مازالت على العموم انا مكتفى وسوف اترك الرعشة الان اشكرك استاذى العزيز

استاذى الغالى الله الله عليك استاذ ودكتور فى اكسس بمعنى الكلمة تمام عليك شرح وافى وواضح ووفيت بكل شئ ولكن عند التطبيق فى برنامجى النموذج الفرعى يرتعش صف بعد صف بسرعة ما ادرى ما السبب تعتقد ما السبب فى هذه الرعشة ـ وان لم اجد لها حل فسوف اتركها مرعوشة ربنا يبارك فيك وفى اولادك وفى صحتك وعافيتك

معك حق ، اختلطت علي الأمور يا صديقي ، هل هذا ما تقصده ؟؟

وعليكم السلام ورحمة الله وبركاته .. يمكنك استخدام الحدث عند التركيز والحدث عند فقدان التركيز لمربعات النص التي في الفرعي .. جرب هذا التعديل البسيط حيث استخدمت النمط التالي فقط بتغيير اسم مربع النص :- Private Sub itemcod_GotFocus() Me.itemcod.BackColor = &H808080 'لون رمادي وتستطيع تغييره كما تريد End Sub Private Sub itemcod_LostFocus() Me.itemcod.BackColor = vbWhite End Sub تلوين الفرعى.accdb

وما زلت تقع في نفس الخطأ !!!!!!! أرفق ملف اذا سمحت

هدفي التوجيه وليس الإنتقاد يا صديقي سامر

@Foksh استاذي وافتخر اشكرك جدا علي المساعدة الكريمة بس اكيد الخطا عندي لاني معرفتش اوضح المشكلة بعتذر

أخي سامر ، ارجو منك مستقبلاً أن تركز في طبيعة المعلومات التي تقدمها لنا . ففي المشاركة الأولى كان النموذج اسمه "الحركة" ، وهو بعد ارسالك للمرفق يقوم بفتح التقرير "حركة حالية" من خلال زر "الطباعة" . وبعد ارسالك للكود التالي :- توضح بعد المرفق انك قفزت لموضوع آخر مختلف في نموذج آخر وتقرير آخر .. على العموم بالنسبة للطلب الأخير وهو بخصوص الكود ؛ فقد تم تصويب الكود بوضعه في المكان الصحيح - وليس في حدث عند تحميل التقرير ، ودون الإعتماد على مربع النص "نوع الحركة" في التقرير نفسه ؛ بل بالقائمة المنسدلة "نوع الحركة" من النموذج "التقرير" - إلى الحدث عند التنسيق للقسم الموجود فيه المربعين ( w , m ) . المرفق بعد التعديل . الخزينة test.accdb

ادن جرب هدا Private Sub CommandButton24_Click() Dim a(2) As Long, b(2) As Double, arr As Variant Dim total(1) As Double, sum As Double, i As Integer arr = Array(200, 100, 50) For i = 0 To 2 If Not IsNumeric(Controls("TextBox" & (i + 1)).Value) Or Val(Controls("TextBox" & (i + 1)).Value) <= 0 Then MsgBox "الرجاء إدخال أعداد صحيحة موجبة فقط": Exit Sub End If a(i) = Val(Controls("TextBox" & (i + 1)).Value) b(i) = a(i) / 2 Controls("TextBox" & (4 + i)).Value = Int(b(i)) Controls("TextBox" & (7 + i)).Value = a(i) - Controls("TextBox" & (4 + i)).Value Controls("TextBox" & (16 + i)).Value = Controls("TextBox" & (4 + i)).Value * arr(i) Controls("TextBox" & (19 + i)).Value = Controls("TextBox" & (7 + i)).Value * arr(i) total(0) = total(0) + Controls("TextBox" & (16 + i)).Value total(1) = total(1) + Controls("TextBox" & (19 + i)).Value Next i sum = total(0) + total(1) If sum <> 0 Then Controls("TextBox11").Value = Format(total(0), "$#,##0.00") Controls("TextBox12").Value = Format(total(1), "$#,##0.00") Controls("TextBox10").Value = Format(sum, "$#,##0.00") Else MsgBox "حدث خطأ: الإجمالي الكلي يساوي صفرًا" End If Me.TextBox58 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) Me.TextBox59 = Val(TextBox4) + Val(TextBox5) + Val(TextBox6) Me.TextBox60 = Val(TextBox7) + Val(TextBox8) + Val(TextBox9) MsgBox "تم التوزيع بنجاح" End Sub توزيع فئات نقدية.xlsm

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