النجاشي

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

استاذي الفاضل ابو خليل استاذي ابو احمد وكل المشاركين باذن الله تتحسن حالتي الصحيه اتواصل معاكم كوني حاليا في التنويم بالمستشفى أجريت عمليه باذن الله بأقرب فرصه اتواصل معاكم دعواتكم لي بالشفاء حفظكم الله أستاذتي الكرام كما أنا ممنون لكم يا من أرشدوني وتساندوني بأي عمل تقوم ب مشكورين موفقير حفظكم الله اينما كنتم

سبجان الله تمنيث هذا الكود وكاننا حاس اننا احصل على كود مثله بدون اعدادت فشكرا استاذي القدير ابو احمد الكود نعم ممتاز ولكن ياليت استاذنا موسي يقوم بتجربته على المثال الذي عمل عليه كون انا في خليه واحده ما تظبط معي اول خليه وهل يا استاذ احمد لازام ما هي شروط النموذج لاننا جرب علي نموذج جديد ونموذجي الحالي وجد فرق على كل حال كود روعه ممتاز جدا راح ننتظر الاستاذ موسي او احد من الزملاء يقوم بتجربنه ووضع المثال هنا تحياتي

استاذي الغالي موسي رفع الله قدرك كم انت طيب القلب حفظك الله استاذي اينما كنت اطلعت على عجله على المثال مبدئيا لكن رأيته رووووووعه مشكور استاذ موسي يالغالي أستاذا الغالي حفظك الله ورعاك راح اطلع على المثال ابلغك بالنتائج مشكوررررر

للرفع

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

السلام عليكم ورحمه الله استاذتي الكرام حاولت ان اجعل الحقول والكائنات في وسط النموذج علما بان الحقول تزيد ونتقص حسب عدد سجلات الورثاء خفظكم الله احبتي ‏‏‏‏‏‏AA - 3-4 .accdb

استاذي القدير @AbuuAhmed استاذي القدير @ابوخليل حفظكم الله ورعاكم اقول لاستاذي ابو احمد🌹 بان الكود لا تدمر تدمير او بدون ركام بل يحفظ في مكتبتي من مقتطفات وابداعات ابو احمد نور الله دربه ويشكر ابو احمد الذي ابدع وتجمل لا يمكن الاستغناء عنه ابدا وبالنسبه لوالدي ومعلمي القدير أبو خليل اثمن كوده ومشاركته وأرشادتة الجميلة واعتذر نيابة عنه وعن نفسي للهامة استاذنا ابو احمد كون صار التباس او سو فهم في الموضوع وابشركم راح تطيب خاطركم بأذن الله عن قريب فانا الان راح افتح مشاركه بشان تقسيم الميراث حسب الشريعة الاسلامية بشكل كامل بأذن الله ابتداء بقدارتي المتواضعه ثم بمساندة احبتي وبما اقتطفه من فضيلة القاضي العلامة رئيس محكمة المقاطرة مجيب السبعة حفظه الله ورعاه الذي اتسع صدره وتحمل جلوسنا معاه لفترات طويله وكل سوال الا تجد الجواب منه مع الابتسامه العريضة فاسال الله ان يطيل في عمره ويحفظه قاضينا السبعه المتواضع ويتحمل منا الكثير من التساولات بهذا الشان واسال الله العظيم ان ينفع بنا وبكم الاسلام والمسلمين فشكرا منتدانا والقائمين فيه اعذروني احبكم جمعيا

الله يعطيك العافيه استاذي الفاضل ابو خليل ما قصرت يالغالي لكن استاذي الفاضل انا اجريت محاولات بكود ادمجته مع كود تحديث المجاميع عمله لي الاستاذ ابو احمد الله يحفظه ولكن اريدك تطلع عليه لانه لم استطيع وضع الشرط بطريقه صحيحه بحيث يكون صحيحا بعد اذنك اطلع اطلع على المثال وشوف وين الخطاء جرب ادخل قيمه او اعد كتابه رقم يكون متساوي القيمه ستلاحظ اللون ولكن اراه انه لم اتمكن من وضع الشرط بطريقيه صحيحه وفقكم الله استاذتي الكرام وهذا الكود الذي عدلت عليه Function UpdateMe() Dim DayNo As Byte, RowTotal As Integer Dim cDay As Control Dim Sum As Integer Dim S As Integer With Screen.ActiveControl If .ControlSource Like "Day*" Then DayNo = Mid(.ControlSource, 4) If DayNo >= 1 And DayNo <= 50 Then Set cDay = Me("Day" & DayNo) Me("Sum" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay For DayNo = 1 To 50 If Me("s" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay Then Me("D" & DayNo).Caption = DayNo Me("D" & DayNo).BackColor = RGB(255, 64, 61) Me("DDDD" & DayNo).BackColor = RGB(255, 64, 61) Me("Day" & DayNo).BackColor = RGB(255, 64, 61) Me("Sum" & DayNo).BackColor = RGB(255, 37, 92) Me("S" & DayNo).BackColor = RGB(255, 37, 92) Me("s" & DayNo).ForeColor = RGB(255, 255, 255) Me("D" & DayNo).ForeColor = RGB(255, 255, 255) Me("DDDD" & DayNo).ForeColor = RGB(255, 255, 255) Me("Day" & DayNo).ForeColor = RGB(255, 255, 255) Me("Sum" & DayNo).ForeColor = RGB(255, 255, 255) End If RowTotal = RowTotal + Nz(Me("Day" & DayNo), 0) Next DayNo Me.total = RowTotal Set cDay = Nothing End If End If ' End If End With End Function AA.rar

لقد لاحظت عند الضغط على زر يسار يذهب التركيز يمين وكذلك العكس ، فهذا لتصحيح التركيز صحيح استاذي الفاضل ابو احمد عملت لك تعديلات عدة منها تحديث المجاميع من جديد عندما تقوم بالتراجع عند تعديلات الحقل صراحه ابدعت وتجملت رغم اننا دخت في هذا الموضوع ابحث واحاول دون جدوى فلك اجمل تحيه وحفظك الله ورعاك وزادك نورا وعلما مشكوررررررررررررررررررررررررررررررررر وهو المطلوب

ما عاد بيكون احتاج لحدث بعد التحديث ولكن استاذي ابو احمد اضفت هذا الكود If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If للتحرك اعلى واسفل وخاصه بعد ما اغير قيمه بحقل يعمل اما هذا الكود لم افهمه Select Case KeyCode Case 37: KeyCode = 39 Case 39: KeyCode = 37 End Select صحيح شغال ولكن قم تقوم بتغير قيمه بحقل ستلاحظ يبقى مركز بنفس الحقل لم ينتقل معذرتا استاذي الفاضل غلبتك معي ولكن لمساتك الاخيره نكون خلصنا من هذا الموضوع تحياتي

رائع جدا يابو احمد حفظك الله والجميل اعجبني الهدوء بالتحديث استخدمت الاكواد لجلب القيم ممتاز يالغالي بس ممكن اخي تتكرم تدمج كود فيه بحيث استطيع اتحرك بسهم الكيبورد يمين بالسهم اليمين ويسار بالسهم اليسار وهكذا اسفل اعلى بين الحقول المعذره من الاداره ادخلت موضوع اخر غير الموضوع الاساسي بس كي يكون التحديث باي تحرك وتكمل الفرحه حفظك الله ورعاك اما حاليا يعمل الكود لاغبار عليه رغم الاستاذ Barna الله يحفظه ابدي محاوله رائعه مشكورين استاذتي الكرام

باقي الوسط اي نفس الصوره للاستاذ موسي كود الاستاذ موسي يظلل اذا كان يوم جمعه يعطي لون بشكل افقي فالفكره يتعدل قليلا بحيث يصير يعتمد علي القيم المتساوي اعلا النموذج واسفله انت الان قريب من الحل باقي الحقول بالوسط اذا لم تتضح برسم لك صوره اليك الصوره

اخي ابو احمد الله يحفظك أنا صراحه نسيت الموضوع تماما ممكن تذكرني ايش الموضوع كان بارك الله فيك

اذا كان بالضغط على الاشاره علامه صح لم استطيع إلغائها هل بسبب ضعف النت او لها طريقه اخري او أننا عشان أتصفح من الموبيل

استاذي الفاضل اقصد إذا مثلا بالحقل أعلاه قيمه500والحقل للمجموع أسفل النموذج قيمته 500 إذا اعطي لون احمر واللون لخلفيه الحقل بشكل افي راح ارفق لك صوره من مثال الاستاذ موسي كي يتضح لك الامر يكون يمتد اللون بشكل أفقي من سفل الى إعلا كما في الصوره

السلام عليكم ورحمه الله استاذتي الكرام عندي المثال فيه اكواد من استاذنا الفاضل موسي اريد تعديل الكود بحيث يكون اذا تساوت القيم بالحقول(S) اغلاء النموذج مع حقول المجاميغ اسفل النموذج يعطي لون احمر بشكل افقي تحياتي احبتي لون القيم اذا تساوت بشكل افقي .rar

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

استاذي الفاضل جربت ولم يعمل معي حبيت اكد المطلوب تحديث الحقول اسفل النموذج اسمائهاSUM بحيث يكون يتحدث عندما ادخل قيمه انتقل بنفس السجل بشكل افقيا تحياتي استاذي الفاضل ممكن تطبيقه على المثال تحديث المجاميع.rar

استاذي العزيز تقصد المثال يكون باصدار 2007 انظر الي هذا المثال المثال.rar

استاذي الفاضل ابو احمدالله يبارك فيك ممكن تطبق لي الكود على المثال كوني نسخت الكود ولم يعمل معي كوني لم اعرف تبديل الخاصيه كما قلت وأخمن أن التحديث لن يتم بخاصية Value كون القيمة لا تزال في طور التحديث وعليه حاول تبديل الخاصية إلى Text

ربنا يحفظكم ويوفقكم اخي العزيز وجميع المسلمين

كثر الله خيرك استاذي الغالي اذا لم نجد طريقه من احد الاخوه ما معانا الا كودك تحياتي اليك مشكورررررررررر

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

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