mbdeon

مازلت في انتظار مساعدتك أخي الكريم

وكما لايخفى عليك أخ جعفر أن زر حفظ الفاتورة موجود في النموذج الرئيسي وبنود الفاتورة في النموذج الفرعي

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

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

وهذا يأخذنا إلى سؤال آخر !! هل يمكن تنفيذ شرط يستند إلى مربع اختيار ضمن نموذج مستمر ؟؟ مثلا بوضع شرط كود الصنف مثلاً (لأنه حقل فريد) إذا نعم أرجو الإفادة بالكود المناسب

أيضاً مفيد في حفظ الفاتورة بحيث لو وجد مربع بدون تحديد تظهر رسالة تفيد بعدم حفظ جميع بنود الفاتورة وبالتالي إما إزالة البند من الفاتورة وإما حفظه قبل تفعيل الحفظ عندها يتم تفعيل الطباعة وبدون ذلك لن يتم الحفظ وفي حال عدم الحفظ لن تتم الطباعة

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

أهلا بك أخي الكريم أرجو أن أكون فهمت بشكل صحيح تقصد ان الكود يصير بهذا الشكل؟ If Me.dd = -1 Then Dim t t = MsgBox("?? ??E ?E??I ?? ?UEE? ??? ?C?E C????C? ?? C??CE??E?", vbYesNo, "??? C????C? ?? C??CE??E") If t = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "C?E??C? ??? ?CE??E" Me.dd = 0 DoCmd.SetWarnings True ElseIf t = vbNo Then MsgBox "E? C?E?C?? ?? C????" End If Else Dim r r = MsgBox("?? ??E ?E??I ?? ?UEE? ??C?E C???? ???CE??E?", vbYesNo, "??U C????") If r = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" Me.dd = 1 DoCmd.SetWarnings True ElseIf r = vbNo Then MsgBox "E? C?E?C?? ?? C???U" DoCmd.CancelEvent End If

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

لدي مربع Checkbox اسمه dd أضفت له الكود التالي ليقوم بتنفيذ استعلام ولكن لم ينجح معي علماً أني مستجد في اكسس If Me.dd = 1 Then Dim t t = MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÑÛÈÊß ÍÐÝ ßÇÝÉ ÇáÃÕäÇÝ ãä ÇáÝÇÊæÑÉ¿", vbYesNo, "ÍÐÝ ÇáÃÕäÇÝ ãä ÇáÝÇÊæÑÉ") If t = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "ÇÓÊÚáÇã ÍÐÝ ÝÇÊæÑÉ" Me.dd = 0 DoCmd.SetWarnings True Else If t = vbNo Then MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÍÐÝ" End If If Me.dd = 0 Then Dim r r = MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÑÛÈÊß ÅÖÇÝÉ ÇáÕäÝ ááÝÇÊæÑÉ¿", vbYesNo, "ÍÝÙ ÇáÕäÝ") If r = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.OpenQuery "Q2" Me.dd = 1 DoCmd.SetWarnings True Else If r = vbNo Then MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÍÝÙ" DoCmd.CancelEvent End If End If End If End If End If End Sub أرجو المساعدة ولكم كل الشكر