[elgokr]

(04-09-18, 08:03 AM)Hazem1 كتب : أخي الحبيب أشعر أنك مُجهد جداً من السهر أعانك الله، فكرتي نفس فكرة برنامج المبيعات بمجرد وضع الباركود في الصندوق النصي يظهر اسم المنتج وسعره، وإذا لم يكن هناك باركود يظهر رسالة خطأ، لكن كل الذي أريده إن يظهر اسم المنتج فقط وأن يسمح بتسجيل جديد.

أو عند كتابة الباركود وكان الباركود مسجل من قبل تظهر رسالة، "هذا المنتج تم تسجيله مُسبقاً، هل تريد إضافته مرة ثانية ؟ ، فإذا اخترت نعم يظهر الباركود والاسم فقط ويترك لي باقي الحقول فارغة ( على أساس أني أحتاج الاسم فقط ) وإذا ضغطت ( لا )، يظهر الباركود واسم المنتج وتظهر كل الحقول التي تم تسجيلها مسبقا.

الذي أعرفه أنني سأحتاج لاستخدام قاعدة if وكود البحث لكن لا أعلم كيف سيتم البحث التلقائي بمجرد وضع الباركود وهل سوف استخدم أحداث الكيبورد أو الماوس بحيث عند الانتقال بالماوس أو زر Tab الصندوق النصي الثاني يتم تنفيذ البحث التلقائي ؟

جزاكم الله خيراً وأكرمكم بالفردوس الأعلى.

بالعكس اخى الحبيب انا لم اكن اسهر هذا اليوم

بكل كنت مستيقظ قبل صلاة الفجر من ثم دخلت قليلاً 

حتى اجب على المواضيع هنا قبل الذهاب الى العمل

ويبدو ان الفكرة لم تصلك بعد اخى الحبيب 

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

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

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

كود :

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

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

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

كود :

           NameSubForSelectByID()

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

كود :

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

تخيل فى الـ Sub انك بتتعامل مع زر تحقق او بحث .... الخ

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

اتمنى ان تكون الصورة وضحت بشكل اكبر الان وان الشرح غير معقد

تحياتى لك

وتمنياتى لك التوفيق