كل ما ستحتاج اليه فتح قاعدة البيانات وانشاء جدول
وليكن باسم lowsanf او كما تشاء
ويكون المحتوى بالداخل وليكن كما فى الصورة
ويتم تعبئة محتوى الجدول بالاصناف وقيمة الحد الادنى
لكل صنف كما فى الصورة بدون تكرار الاصناف
من ثم قم بتطبيق كود الاستعلام التالى
كود :
SELECT * FROM lowsanf INNER JOIN items ON (lowsanf.Sanf = items.[اسم الصنف]) AND (lowsanf.LowSanf <= items.lowitems);
يمكنك اختبار الكود بعد انشاء كما سبق خلال ملف الاكسس
وسيكون الناتج كما يلى
وبكده انت بتتحكم لكل صنف الحد الادنى قيمة محددة
من خلال الجدول الذى تم تكوينه
اتمنى ان يكون الشرح مبسط
تحياتى لك
وتمنياتى لك التوفيق
قم بتطبيق بالنهاية كود الاستعلام بعد الانتهء من قاعدة البيانات
خلال السطر التالى فى زر الحد الادني
كود :
Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM items WHERE lowitems > 10", Conn)
ليصبح
كود :
Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM lowsanf INNER JOIN items ON (lowsanf.Sanf = items.[اسم الصنف]) AND (lowsanf.LowSanf <= items.lowitems)", Conn)
تحياتى لك
وتمنياتى لك التوفيق
لمحو اعمدة خاصة الجدول الذى تم انشائه
فقط فى كود الاستعلام حول * الى items.*
تحياتى