Mostafa Metwally

شكرا جزيلا استاذى الفاضل Shivan Rekany شكرا اخى الفاضل alwazeer على مجهودك وتعبك

السلام عليكم ورجمة الله وبركاتة اريد كود عند كتابة يوم تم تسجيل قبل ذلك لا تظهر رسالة التكرار ويتم استدعائة كبحث عنه من خلال حدث before update ومرفق ملف للتوضيح test.rar

السلام عليكم اعضاء المنتدى الغالى كل عام وانتم بخير جميعا برنامج الاقساط مكون من 5 جداول الجدول الاول باسم عميل لتسجيل البيانات الاساسية buy وذلك لتسجيل الشراء لكل عميل الجدول الثانى جدول الثالث مخصص لاسماء الاصناف ويوجد 5 قورم الفكرة غميل اخذ سلعة قسط بفترة محددة بقسط محدد بقائدة محددة وبعد فترة اخذ سلعة ثانية قسط جديد ومدة جديدة مثال لو العميل القسط الخاص بالسلعة الاولى 100 وينتهى فى 10-2017 والقسط الخاص بالسلعة الثانية 150 ينتهى فى 12-2017 ليصبح اجمالى الاقساط 250 المطلوب بعد انتهاء قسط السلعة الاولى بمبلغ 100 يتم عدم احتسابها ويصبح القسط علية 150 ج فقط لو فى تعديل فى الجداول او العلاقات سواء بالاضافة او الحذف واتمنى المشاركة من اجل الاستفادة للجميع يتم انتهاء aqsat.rar

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

شكرا على مرورك ولكن يظهر خطا عند التنفيد مرفق صورة الخطا

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

السلام عليكم ورحمة الله وبركاتة عندي قاعدة بيانات تحتوى على جدول اسمة names وبه عمودين id , name ويوجد فورم به كومبو بوكس غير مرتبط والمطلوب عن الضغط على الاسم الموجود فى الكمبو بوكس يعمل بحث ويظهر بياناتة فى الحدث after update الخاص بالكمبو بوكس ومرفق قاعدة البيانات للتعديل وجزاكم الله خيرا db.rar

Dim x As Date Dim m As String x = CDate(p_date) m = CStr(p_product) Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("select price as ppp from products where" & " tday<=" & "#" & x & "#" & " and product=" & "'" & m & "'" & " ORDER BY products.tday DESC", 2) Set rs1 = db.OpenRecordset("select min(tday) as mday from products") If x < rs1!mday Then MsgBox "لا يوجد اليوم فى القائمة" p_price = "" Else p_price = rs!ppp End If تم عمل كود باستخدام مكتبة DAO

تمام استاذ امير الكود يعمل بكفاءة وهو المطلوب ممكن توضيح للكود

شكرا استاذى الفاضل Shivan Rekany عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية للتوضبح اكثر يوم 20-10-2010 منحصر بين اليومين 10-10-2010 واليوم 12-11-2010 فمجرد كتابة يوم 20-10-2010 بعد التحديت after update يظهر سعر اليوم 10-10-2010 فقط مثال اخر للتوضيح فرضا عندى يوم 1-3-2010 سعره 300 ويوم 4-4-2010 سعرة 320 ويوم 18-4-2010 سعرة 341 ويوم 2-5-2010 سعرة 301 فى حالة لو كتبت فى التكست بوكس يوم 1-5-2010 يظهر سعر يوم 18-4-2010 هو 341 وفى حالة لو كتبت يوم 2-5-2010 يظهر مبلغ 301 جنية لانه موجود فى التسجيلات عندي لو يوم غير موجود فى التسجيلات ياخذ سعر اول يوم اقل منه لو اليوم موجود فى التسجيلات ياخذ السعر كما هو فى نقس اليوم وشكرا جزيلا

استخدمت dlookup ولم تنجح فى استخراج المطلوب

السلام عليكم ورحمة الله وبركاتة الفكرة عندى جدول اسمة products وبه ثلاث اعمدة ( tday نوعة تاريخ + product اسم المنتج نوعة نص + price السعر نوعة قيمة ) عندى فى النموذج اسمة form1 وبه زر كوماند بدون كود المطلوب عاوز كود وظيفتة يستعلم عن السعر فى تاريخ محدد مثال للتوضيح عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية عند كتابة اليوم وليكن كمثال 20-10-2010 يظهر المبلغ المحصور بين اكبر يوم مقارب له واقل يوم مقاربة له والمبلغ هنا 450 جنية ( اكبر يوم مقارب له هو يوم 12-11-2010 واقل يوم مقارب له هو 10-10-2010 ) المطلوب السعر الخاص باقل يوم مقارب له هو يوم 10-10-2010 لان يوم 20-10-2010 منحصر بينهم . تحديد السعر.rar

السلام عليكم ورحمة الله وبركاتة الفكرة عندى ثلاث جداول جدول للمجموعة وجدول للاصناف وجدول للحركة الدمج المطلوب اخذ كل حقل فى الجدول المجموعة ودمجها مع جميع الحقول بجدول الاصناف ووضعها فى جدول الحركة مثال فى جدول المجموعة يوجد بها التسجيلات كمثال وليكن 3 ريكورد ( موس ، لوحة مفاتيح ، سماعات ) فى جدول الاصناف وليكن اربع ريكورد ( درجة اول ، درجة ثانية ، درجة ثالثة ،درجة رابعة ) فى جدول الحركة يجب دمج كل ريكورد من المجموعة مع كل صنف مثل ( موس درجة اولى الركود الثانى موس درجة ثانية حى موس درجة رابعة وبعد ذلك يدخل على لوحة المفاتيح وبعد ذلك سماعات ( سماعات درجة اول - ثانية ثالثة .... سماعات درجة رابعة ) المطلوب تنفيذ عن طريق الكود او تكملة الكود test.rar test.rar Dim db As dao.Database Dim rs1 As dao.Recordset Dim rs2 As dao.Recordset Dim rs3 As dao.Recordset Dim rs4 As dao.Recordset Dim rs5 As dao.Recordset Set db = CurrentDb Set rs1 = db.OpenRecordset("gro", 2) Set rs2 = db.OpenRecordset("select count(nsanf) as sss from sanf", 2) Set rs5 = db.OpenRecordset("select count(ngro) as ggg from gro", 2) Set rs3 = db.OpenRecordset("tran", 2) Set rs4 = db.OpenRecordset("sanf", 2) ''''''MsgBox (Val(rs2!sss) + Val(rs5!ggg)) 'On Error Resume Next 'rs1.MoveFirst For i = 1 To Val(rs2!sss) rs3.AddNew rs3!tra = rs1!ngro & " " & rs4!nsanf rs3.Update rs4.MoveNext Next