kingskull

تم التعديل على المرفق حيث اتضح لدي ان ممكن المشكلة في خاصية التحديد وحدها وخففت من الشروط في الماكرو اظن اساس المشكلة في هذا الكود ليس دقيق اي انه يحدد اكثر من نتيجة بمجرد ورودها في كلا الحقلين في اي سجل والمطلوب توافق الفرز مع التحديد UPDATE Base SET Base.ysno = true WHERE (((Base.[نوع الموافقة])=[Forms]![Base]![مربع_تحرير_وسرد110] AND (Base.[حالة الدارس])=[Forms]![Base]![مربع_تحرير_وسرد115])) Scholars_New.rar

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

وفقك الله ابو عبدالله ممتاز جدا اسعدك الله

السادة الكرام تحية طيبة لدي مربع تحرير وسرد به قيم واريد وضعها في دالة الشرط if منشئ تعبير ماكرو اي اذا كانت احد القيم التالية فقم بالعمل التالي انا عرفت اضيف قيمه واحده ولكن عدت قيم لا اعرف الصيغة مثال [forms]![formname]![fieldname]= "محمد" اريد مع اسم محمد مثلا عدت اسماء كيف الصيغه هل هي هكذا ؟ [forms]![formname]![fieldname]= "محمد, خالد,علي" لانها لم تنجح معي اذا اضفتها بهذا الشكل وشكرا لكم

بيض الله وجهك يالغالي والاخوان جميعا

با اختصر السالفه واعذروني 🙏 عندي نموذج به سجل مستمر واريد فقط ان يتم اختيار تحديد السجلات بعد التصفيه حسب مربع تحرير وسرد طبعا كما ذكر استاذي ازهر موجود مربع التحرير انا نجحت عن طريق الماكرو عمل زر تحديد واستخراج السجلات بعد التصفيه كملف اكسل لكن لو اردت مثلا اصفي السجلات ثم عند اختيار تحديد الكل اريده يحدد الذي تم تصفيته وليس كل السجلات استخدمت دالة if في vba ولكن لم تنجح معي وهذا الكود المستخدم Private Sub cmdMark_Click() DoCmd.SetWarnings False If [Forms]![Base]![مربع_تحرير_وسرد110] = "إيفاد" & "إبتعاث" & "إجازة دراسية" & "موافقة مسائية" & "موافقة نهاية الأسبوع" & "دراسة عن بعد" Then DoCmd.ApplyFilter "", "([Base]![نوع الموافقة] = [Forms]![Base]![مربع_تحرير_وسرد110]" DoCmd.RunSQL "UPDATE Base SET Type.ysno = true" DoCmd.RunSQL "UPDATE Base SET Base.ysno = false" DoCmd.ShowAllRecords ElseIf [Forms]![Base]![مربع_تحرير_وسرد110] = "الكل" Then DoCmd.RunSQL "UPDATE Base SET Base.ysno = true" Else End If DoCmd.SetWarnings True End Sub Scholars.rar

كيف اجعل الماكرو يشغل هذا الكود لا اريد وضعه كـ vba

وفقك الله اجرب واشوف يالغالي

السلام عليكم ورحمة الله وبركاته تحية طيبة لكم جميعا هل هناك امر ماكرو لتحديد جميع السجلات بوضع علامة صح على مربع التحديد لكل السجلات في نموذج سجلات مستمر لدي كود vba لكن اود استخدام الماكرو استخدمت خيار SetproPerty واعطيت القيمة -1 لكن يحدد سجل واحد فقط مع خالص التقدير

اظن انني حللت المشكلة نسخة الجدول وحذفت الاساسي واسميته باسم الاول والان يعمل بشكل جيد لكن اخاف ان تعود نفس المشكلة

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بالمسرات لدي قاعدة بيانات بها نموذج سجلات مستمر وقد اضفت فيها اكواد تصفيه حسب نوع القيمة في حقل معين وكذلك مربع اختيار وكذلك كود اعادة ترتيب الارقام حيث عند حذف سجل او اضافة سجل يعيد ترتيب السجلات لكن عند فرز البيانات او اضافة سجل يتم حذف الحقل "رقم" من الجدول وهو مضاف في الفهرسه تصاعديا ولا يمكن اعادته حيث يظهر الخطأ تم تعريف حقول كثيره Too many fields are defined لا ادري مالمشكلة بالرغم ان البرنامج كان يعمل دون مشاكل لكن بعد ما عدلت على خيارات التصفيه بحيث فقط يستخرج السجل المصفى حسب النوع والذي تم وضع علامة صح عليه على شكل اكسل ظهرت هذه المشكله Scholars.rar

تماما كما هو مطلوب بارك الله فيك وفي عملك ام عبدالله

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

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

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

ايها الاخوة ستحل مشكلتي لو تم تصحيح الخطأ في هذا الكود Me![text27] = DSum("[ertbat_last1]", "all", _ "[yes] = 'نعم'" And _ "[b_no] = & Me.b_no & '") هذا الكود يعمل بصفة سليمة Me![text27] = DSum("[ertbat_last1]", "all", _ "[yes] = 'نعم'") كذلك هذا يعمل بصفة سليمة Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & Me.b_no & "'") اريد كلاهما مع بعض في كود و احد

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

السلام عليكم اعمل اخي مربع تحرير و سرد و اختر سوف اكتب القيم بنفسي ثم اكتب اسماء النماذج التي تريد فتحها بعدها موافق ثم انقر على مربع التحرير و السرد الذي انشأته واختر خصائص ثم اختر حدث ثم من القائمة اختر بعد التحديث و اختر من السهم الصغير اجراء حدث و سفتفتح لك نافذة الفيجول بيسك و اكتب الامر هذا stDocName = Me.مربع_تحرير_وسرد22 DoCmd.OpenForm stDocName طبعا تغير مربع_تحرير_وسرد22 باسم مربع التحرير والسرد الذي تستخدمه وهذا مثال مرفق combo.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله و بركاته اخواني كيف من الممكن اضافة شرط او معيار اضافي الى دالة Dsum Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'") اريد اضافة المعيار b_no من نفس الجدول الى الدالة مالصيغة الصحيحة في ذلك هذا الجزء الاول الجزء الثاني ايها السادة ان لدي حقلان field1 و field2 ولدي المعيار مربع تحرير وسرد فيه القيمتين نعم ولا اذا كان السجل يأخذ القيمة نعم فانه يجمع حقول field1 واذا لا يجمع الحقل field2 استخدم هذه الدالة Private Sub أمر17_Click() If yn = "نعم" Then Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'") Else Me.text1 = 0 If yn = "لا" Then Me![text2] = DSum("[field2]", "tab", "[yn]='" & Me.yn & "'") Else[/size] [size=5] Me.text2 = 0[/size] [size=5]End If End If Me.Refresh Me.Requery End Sub المشكلة ان الناتج يظهر فقط للسجل الذي امامه الاشارة و عند اختيار آخر يظهر كذلك السجل المحدد فقط بينما اريد مجموع السجلات yn هو combobox مربع التحرير و السرد ولكم خالص المودة و التقدير test.zip

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

اخي اسعد الله اوقاتكم بالمسرات بخصوص المعرف فهو جمجمة ملك هههههههه لا تهتم فانا استخدم هذا المعرف حتى يسهل علي تذكره فقط واعتذر ان كان فيه اساءه للمنتدى الامر الاخر سبب فصل الهللات عن الريالات بسب اعتراض احد المسؤولين في احد الوزارات على التقرير المطبوع بشكله العادي اي يريد ان تُفصل الهلالات والريالات في التنسيق حتى يسهل قراءتها وطبعا الملف المرفق يتبع نفس الالية للبرنامج الذي اري ان اعد عليه عموما اخي ابشرك الاخوان في منتدى آخر قاموا بالواجب وهنا التعديل بالكامل كما ترى في المرفق حتى تتضح الفكر ايداع_الايرادات _الحكومية_غرام .rar

السلام عليكم ورحمة الله وبركاته اعمل على برنامج يختص بالامور المالية قد طًلب منا فصل الهللات عن المبلغ بالريال ووجدت مثال وقمت بالتطبيق عليه لكن بقي اشكالية ان خانة الهلل تقبل عدد غير محددود من الارقما مثلا 165 في حين اريد اذا كان المجموع فوق 99 يتم اضافة ريال الى المبلغ باختصار اريد خانة الهلل تقبل من 1 الى 99 فقط وان زاد اي 100 - فما فوق تضيف ريال الى المبلغ فلو مثلا كان حاصل جمع الهلل 200 تصفر خانة الهلل ويضاف ريالين على المبلغ وهنا المثال المرفق الذي استخدمته حيث لو تلاحظون اعزائي ان خانة اجمالي الهلل فيها 168 فاريد المائة تكون 1 ريال تضاف الى المبلغ و يبقى في خانة الهلل 68 ولو تلاحظون ان هناك خانة اخرى فيها المبلغ بوضعه الطبيعي والغرض منه للتفقيط لكن لابد من فصل الهلل و المبلغ المعذرة على الشرح المطول example.zip

تم حل مشكلة التكرار بستبد"حالتها" بالقيم ممنونين اخينا Bluemind

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

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