kha9009lid

اسهل طريقة اعمل استعلام 1 ثم ضع فيه معيار تصفية Between Nz([forms]![FQin]![f2];"01/01/1900") And Nz([forms]![FQin]![t2];"01/01/2100") ثم اعمل استعلام 2 ويكون فيه التجميع واجعله مصدر للنموذج FF.accdb

وعليكم السلام للاسف انني استخدمت الطريقة الاولى في برنامجي نقطة بيع (خاص بالمشاريع الصغيرة) وهذه الطريقة فيها لزوم مالا يلزم ومما زاد الخطأ انني استخدمت جداول مؤقتة لتنفيذ عمليات الارجاع وتحديث الكميات في المستودع غلطة خالد بـ 100 لذا فقد دارت نقاشات مع الجهة المسئولة عن المبادرة لتكون الاصدارة النهائية كما اشرتم اي الطريقة الثانية ولكن هذه الاصدارة لن تكون تحديث وانما بناء من الصفر ان كتب الله لنا ذلك ودمتم

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

لا توجد مشكلة استاذي @ابوخليل في جدول بيانات الطلاب استخدم رقم كبير وبالتالي لعمل البرنامج نحتاج الى اصدار 2016 البناء 16.0.7812 او احدث

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

وهذا المأمول

السلام عليكم لولا اختلاف الآراء لأصبح الناس نسخاً مكررة يتزاحمون على نفس الطريق ونفس الهدف والاتجاه اعتقد ان لدينا مشكلة في قبول الرأي والرأي المخالف ودمتم

وعليكم السلام اخي احمد نعم لا يحتاج تكبير

وايضا على دقة 4k يعمل بشكل جيد

يعمل بشكل ممتاز اخي ازهر

وانت بخير اخي محمد امين اللهم بلغنا شهر رمضان الكريم، ونحن فيه لا فاقدين ولا مفقودين فنحن لك نعبد ونسجد ونركع وندعوك ونحمدك، فنحن بك آمنا، ونحن لرحمتك نرجوا، فلا تحرمنا رحمتك ومغفرتك يا الله والف شكر على الهديه الرائعة

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

فعلا التنسيق الان افضل انت غيرت 100 الى aclabel فانت وضعت اسم العنصر مباشرة وانا وضعت قيمته وكلاهما يؤدي الغرض ولزيادة الاثراء اضع قيمة العناصر في النماذج فقد يستفيد منها احدهم Name Value Description acAttachment 126 Attachment control acBoundObjectFrame 108 BoundObjectFrame control acCheckBox 106 CheckBox control acComboBox 111 ComboBox control acCommandButton 104 CommandButton control acCustomControl 119 ActiveX control acEmptyCell 127 EmptyCell control acImage 103 Image control acLabel 100 Label control acLine 102 Line control acListBox 110 ListBox control acNavigationButton 130 NavigationButton control acNavigationControl 129 NavigationControl control acObjectFrame 114 Unbound ObjectFrame control acOptionButton 105 OptionButton control acOptionGroup 107 OptionGroup control acPage 124 Page control acPageBreak 118 PageBreak control acRectangle 101 Rectangle control acSubForm 112 SubForm control acTabCtl 123 Tab control acTextBox 109 TextBox control acToggleButton 122 ToggleButton control acWebBrowser 128 WebBrowserControl control جميله جدا ولكن هل ستعمل لو اضفنا تسميات اخرى في النموذج وكان احدهم لا يساوي صفر

هذه الطريقة تفي بالغرض تماما ولكن .... ماذا لو كان عدد التسميات كبير جدا هل نقوم بكتابتها من رأيي المتواضع ممكن نجعل الكود يمر على التسميات واحد بعد الاخر فاذا كان احدهم لا يساوي 0 ينهي الاجراء والا يتحقق الشرط Dim ctli As Control For Each ctli In Me.Controls If ctli.ControlType = 100 Then If ctli.Caption <> 0 Then Exit Sub End If End If Next ctli MsgBox "////////////////" لم اجرب الكود لعدم وجود اكسس لدي ووضعت المشاركة استجابة لرغبت استاذي الفاضل باثراء النقاش

وفي جميع الاحوال لاحتساب نهاية او لاحتساب عدد الاشهر لا نحتاج الى استعلام تحديث استعلام التحديث نحتاجة في حالات معينة مثلا لاحتساب عدد الاشهر من خلال كتابة تاريخ النهاية يكون على النحو التالي DateDiff("m", [f], [end]) اما لاحتساب تاريخ النهاية من خلال ادخال عدد الاشهر فيكون على النحو التالي DateAdd("m",[ascor],[f]) امر اخير استخدام عبارة end لاسم الحقل خطأ لانها من الكلمات المحجوزة لاكسس الكلمات الممنوع استخدامها تسميات للحقول الخ...

بالتوفيق استاذ سيد والشكر لله سبحانه

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

على راسي كلكم اخي واستاذ ابو خليل واستاذي جعفر واخي وزميلي الحبيب ازهر 🌹

جزاك الله خير يا ابا عبدالله

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

يا هلا باخي ازهر اولا امل تغيير افضل اجابة لاخي واستاذي الفاضل ابو خليل لانه هو صاحب الاجابة الحقيقي ودوري مجرد تعديل بسيط ثانيا ليبقى العداد كماهو عند التوقيف في زر امر ايقاف بدل j = 0 A = 0 B = 0 Y = 0 الى j = 0 A = A B = B Y = Y وكذلك ايضا للعداد الاخر مع مراعات اسماء الحقول مع الاعتراف باني لم افهم الهدف من هذا العمل timer11.accdb اعتذر منك اخي ابو خليل كنت اجري التعديلات اوف لاين ولم انتبه لردك تحياتي وتقديري لك اخي ومعلمي 🌹

بعد اذن اخي واستاذي ابو خليل شوف اخي ازهر الخطا بسبب me.j و me.t لكونهما متغيران وليسا حقلين في النموذج timer11.accdb

لانك جعلت مصدر بيانات الحقل عملية حسابية واصبح غير منظم جرب الان نقلنا عملية احتساب المدة بعد ادخال تاريخ النهاية وكذلك الاجمالي يحسب بعد ادخال قيمة الكاش tb1.accdb

وممكن ايضا عن طريق كود بسيط If Me.tx_2 = 0 Then Me.frm_2.Form.AllowAdditions = False Else Me.frm_2.Form.AllowAdditions = True End If tx_2 هو الحقل الموجود في الرئيسي في الطريقة الاولى لا نستطيع اضافة او تعديل او حذف وفي الثانية ممنوع الاضافة فقط ويمكن منع التعديل والحدف باستخدام اضافة للكود AllowDeletions للحذف AllowEdits للتعديل

تقصد لا يسمح باضافة اصناف على الفاتورة او تعديل اصناف بعد الدفع ؟ اذا كان فهمي صحيح الامر يمكن عمله بتنسيق شرطي ضلل حقول النموذج الفرعي ثم من قائمة تنسيق اختار تنسيق شرطي ثم قاعدة ثم تعبير = [Forms]![invoices2]![txt57]="تم الدفع" طبعا بدل اسماء النموذج والحقل حسب مالديك وكذلك تم الدفع ضع بدلا عنها 0 ثم اختيار عدم التمكين رقم 3 في الصورة