Eng.Qassim

بشكل عام .. تعمل حقل في الجدول اسمه مثلا isSelected ونوع بياناته yes/no والقيمة الافتراضية له = NO قم باضافة هذا الحقل الى النموذج .. ثم قم ببناء استعلام من الجدول وضع معيار تحت حقل isSelected= True وسمه ماشئت .. ثم قم بأنشاء تقرير مصدر سجلاته ذلك الاستعلام قمل بعمل زر في النموذج لطباعة او اظهار السجلات المختارة طبعا توجد العديد من الطرق في حالة اختيار السجلات من ال List Box وطباعتها

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

فيما اعتقد يحتاج كود برمجي لايقاف Private Sub a_Exit عند التنقل بالاسهم للاعلى والاسفل فأن هناك تناقض بين عمل الكودين

قم باعادة كود عن الخروج من الرقم لكن هذا سيعمل ومضة سريعة لكنه ينتقل الى سجل جديد بالمناسبة .. حول النموذج الى Continuous Forms

قم بعمل استعلام حذف..وهذا سيحذف الصور من القاعدة فقط

جرب المرفق وحسب مافهمته منك .. وخبرنا بالنتيجة d1.accdb

مرحبا اخي الحرف S=83 الحرف T=84

تفضل اخي .. لكن عملت نموذج اخر لان لم يعمل على النموذج القديم لان السجلات قافلة ولم اراجعها d1.accdb

تدلل

اخي العزيز لايوجد برنامج جاهز .. حاول ان تعمل برنامجك واي سؤال ان شاء الله محد يقصر معاك

تفضل اخي جرب المرفق qqwww.accdb

عملت لك كشف حساب للعملاء في حالة تكرر اسم العميل يتم تجميع المبالغ له .. والرجاء الانتباه للحقول الفارغة في النموذج الرئيسي وحولها الى رقم صفر البرنامج(1).accdb

السلام عليكم .. اخي العزيز انت بالاساس لايوجد لديك حقل لمجموع المبالغ التي تم تسديدها فكيف تعرف المبلغ المتبقي ؟ اما بخصوص سؤالك فتعمل استعلام تجميع حسب الاسم وفي حقل المبلغ الكلي تعمل (جمع) وتحتاج لحقل جمع المبالغ المسددة والمتبقية

السلام عليكم.. عملت مع هذا الكود ولم ينجح معي .. لكن اجعل هذا الكود في مربع نص اخر مصدره الحقل الحسابي لديك والتي تظهر فيه الكسور

مشاركة مع اخي @د.كاف يار ربما يستفاد منها البعض Q2.accdb

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

اعتقد هذا الموضوع يفيدك

عمل رائع وجميل ... بارك الله فيك استاذ @Hawiii

وعليكم السلام.. استخدمت الدالة وكانت النتيجة كماتريد =Round(([Forms]![frmProjects]![frmPaid]![txtpaidTotal])*0.0025)

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

عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية

هذا الحدث لا داع له ..قم بحذفه Private Sub txtIntMaintenItem_AfterUpdate() Me.txtIntMainten.Requery End Sub

قم بالغاء جملة التحديث وكل شي سيكون على مايرام

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

جرب بعد تحديث مربع التحرير والسرد الاول Private Sub cbo0_AfterUpdate() Me.subFormName![cbo1] = Null Me.subFormName![cbo1].Requery End Sub