husamwahab

تفضل هذا المثال ارجو ان ينفعك aaa.rar

تفضل هذه المحاولة وارجو ان تكون طلبك ترقيم تلقائى-2.rar

تفضل هذه المحاولة ملاحظة : تم اضافة حقل المبلغ المسدد في حالة اختيار سداد لتكون العمليات الحسابية صحيحة تم الاعتماد على تسميات النموذج لان بعض التسميات تختلف بين النوذج والجدول aaa.rar

عليكم السلام استاذ Ahmed_J تفضل هذه المحاولة ارجو ان تكون طلبك ملاحظة : ادخال البيانات يكون عن طريق النموذج Ahmed.rar

تسلم ايدك استاذ kha9009lid فعلا ادوات جميلة ومفيدة

جزاكم الله خير اساتذتي الاجلاء استاذ jjafferr استاذ صالح حمادي

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

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

بالخدمة استاذ AhmedEmam

بالخدمة استاذ Ahmed.IQ والفضل لاستاذ صالح على هذا الكود الجميل

السلام عليكم من رخصة استاذي العزيز صالح حمادي تفضل استاذ Ahmed.IQ التعديل علما ان التعديل جرى على نفس كود استاذ صالح Dim frm As Form Dim fc As Control Dim RowData As String Set frm = Me RowData = "" For Each fc In frm.Controls If fc.ControlType = 104 Then RowData = RowData & "," & fc.Name End If Next fc Me.Comb1.RowSource = Right(RowData, Len(RowData) - 1) Set frm = Nothing ملاحظة : Row Source Type = Value List

بالخدمة استاذ Ahmed_J

عليكم السلام استاذ Ahmed_J بالنسبة لتسريع عمل نموذج فلا اعرف الاجابة اما بالنسبة لايجاد طريقة للتحديث كان ينتقل مباشرة الى اخر سجل ممكن لكن طريقة عمل قاعدة بياناتك لا تسمح لانك تريد اي تغيير في ادخال المبلغ يؤثر على سجلات النموذج من اول سجل الى اخر سجل وعذرا للاطالة

بالخدمة استاذ AhmedEmam بالنسبة للالوان ضع الكود التالي بدل كود خلفية النموذج Forms(str).FormHeader.BackColor = vbRed Forms(str).Detail.BackColor = vbBlue Forms(str).FormFooter.BackColor = vbGreen

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

تفضل التعديل ارجو ان يكون طلبك Compressed.rar

تفضل التعديل ارجو ان يكون طلبك 0123-11.rar

طلب اخ cckills2010 ارجو عمل مشاركة جديدة لتجنب مخالفة قوانين المنتدى

لا يوجد اي تعب استاذ ٌRayan Zakho واعتذر لكثرة تساؤلاتي لكن السبب هو للوصول لافضل حل يرضيك

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

عليكم السلام اخي العزيز الافضل وضع حقل للقدم حتى يتم التعرف على بيانات هذا الحقل ويتم التسلسل

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

الشكر لله استاذي العزيزي وانا بالخدمة

حياك الله استاذي الحبيب استاذ الفلاحجى والله مشتاقين

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