[Hazem1]

(04-09-18, 07:40 PM)elgokr كتب :

اولاً عند الضغط على الـ Tab يوم بالتحقق من الباركود أى رقم المنتج

فى حدث TextBox_KeyDown استخدم الكود التالى

كود :

       If e.KeyCode = Keys.Tab Then
           NameSubForSelectByID()
       End If

ثانياً بخصوص عند التنقل او باصح مغادرة اطار TextBox الى اخر

من خلال حدث TextBox_Leave استخدم الكود التالى

كود :

           NameSubForSelectByID()

انتى فى الخطوة الاخيرة وهو عمل Sub كما هو التالى

كود :

   Sub NameSubForSelectByID()
       ' ضح كود الاستعلام بقاعدة الباينات ى جدول امنتجات
       ' ثم م بعمل التحقق اذا كان امنت موجود بالاستعلام
       ' يتم ظهور رسالة كما ذكرتها فى موضوعك
       ' وباقى الاجراءات التى مطلوب فعها تخيلها تماماً لو بتنشاء مستخدم جديد للبرنامج
   End Sub

يسر الله أمرك يا أخي الغالي، صدقاً الشرح واضح لكن لا أدري ماسبب وجود الخطأ معي بمجرد كتابة الكود
تصنيف البيانات عندي كالتالي:
بالنسبة لاسم المُنتج في قاعدة البيانات تحت اسم P Name  ( المسافة غير مسموح بها في كتابة الكود )
ورقم الباركود Barcode
وال ID يُمثل الرقم التلقائي أثناء تسيجل المُنتجات

أرفقت لحضرتك ثلاث صور

---

---

(05-09-18, 12:44 AM)asemshahen5 كتب : جرب هذا الكود

كود :

For I = 0 To DataGridView1.Rows.Count - 1
          If DataGridView1.Rows(I).Cells(0).Value = TXT_IDPRODUCT.Text Then
              If MsgBox("هذه السلعة موجودة مسبقا هل تريد زيادة كميتها بمقدار 1", MsgBoxStyle.Question +
                        MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
                  DataGridView1.Rows(I).Cells(4).Value += 1
                  MsgBox("تمت إضافة السلعة", MsgBoxStyle.Information, "")
                  Exit Sub
              End If
          End If
      Next

جزاك الله خيراً على اِهتمامك أخي الكريم ، المُشكلة أنني لم أقم بإعداد الداتاجريدفيو بصفوف هكذا :
DataGridView1.Rows(I).Cells(1).Value

فقط قم بربط الداتاجريدفيو بأعمدة قاعدة البيانات الأكسس وبدأت أعمل على هذا النحو لكن أشعر أنني بحاجة ماسة لتعلمها جيداً