06-09-18, 08:05 PM (آخر تعديل لهذه المشاركة : 06-09-18, 08:18 PM {2} بواسطة Hazem1.)
(06-09-18, 06:27 PM)elgokr كتب :
اخى الفاضل انت تستخدم اسم عمود بجدول
قبل اسم Sub ليه
اولاً فى الصورة هنا
يحدث الخطاء هنا كونك لم تقوم بانشاء الـ Sun الخاص بالاسم
ويبدو انك لا تتعامل بالاكواد فى المشروع لديك بال انك تتعامل بالادوات
لذلك اخى الحبيب ارفق المشروع الذى لديك
حتى يتم عمل الازم بالمشروع واعادة رفعه لك بعد الانتهاء
تحياتى لك
وتمنياتى لك التوفيق
بصدقٍ ليس عندي الخبرة التي عندك (ماشاء الله)، لكني سأسعى أن لا أُرهقك معي إن شاء الله، وجدت حلاً الحمد لله لكن ينقصني شيئاً واحد هو السماح بنسخ القيمة الفارغة Null ، وسأوضح لحضرتك يا أخي الفاضل الحل المطروح باختصار :
في زر البحث [Barcode] :
كان في البدء كود للبحث فقط :
PHP كود :
Table15BindingSource.Filter = String.Format("[Barcode] like '%" & TextBox3.Text & "%'")
إذا كان المُنتج موجود من قبل فسيظهر اسم المنتج في Textbox2 فقمت باستغلال هذه النقطة وأضفت كود نسخ اسم المنتج الظاهر في Textbox2 (في نفس زر البحث Barcode )
فأصبح الزر يحتوي على الكودين التاليين :
PHP كود :
Table15BindingSource.Filter = String.Format("[Barcode] like '%" & TextBox3.Text & "%'")
My.Computer.Clipboard.SetText("" & TextBox2.Text)
ثم قمت بعمل زر جديد باسم (ADD) ووضعت فيه كودين، الأول : إنشاء صف جديد ، والثاني: وضع الباركود الذي تم البحث عنه في الصندوق النصي الثالث، والكود الثالث: هو عمل Past لوضع اسم المنتج الذي قمت بنسخه من قبل أثناء الضغط على رز البحث (Barcode)
PHP كود :
'كود إضافة نفس المُنتج Table15BindingSource.AddNew() TextBox1.Text = TextBox3.Text TextBox2.Text = Clipboard.GetText ComboBox2.Select()
الأمور الحمد لله تمضي بسلام ، لكن المُشكلة التي ظهرت ، هو أنني عندما أضغط على زر البحث في نفس الوقت هو يقوم بعمل نسخ للصندوق النصي ، فلو لم يكن المنتج تم تسجيله من قبل فستكون القيمة فارغة Null وبذلك تظهر رسالة خطأ كما في الصورة، لذا احتاج مُساعدتك يا أخي الفاضل في كيفية تجاوز هذه الرسالة بحيث لا تظهر ويتم نسخ قيمة الصندوق النصي ولو كان ذا قيمة فارغة Null، أو استبدالها برسالة أُخرى (هذا المُنتج غير متوفرٍ، هل تُريد إضافته كمنج جديد؟) ، وجزاك الله خيراً ويسَّر لك كل أمرٍ كما تُيسر على عباد الله.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.
07-09-18, 09:21 PM (آخر تعديل لهذه المشاركة : 07-09-18, 09:22 PM {2} بواسطة Hazem1.)
(07-09-18, 08:27 AM)elgokr كتب : لا تجر نفسك ان تستخدم هذا السطر
كود :
My.Computer.Clipboard.SetText("" & TextBox2.Text)
يمكنك عمل التالى
اسفل هذا السطر التالى
كود :
Public Class Form1
استخدم هذا الكود مثلاً
كود :
Public copyright_ As String
واستبدل السطر الخاص بـ
كود :
My.Computer.Clipboard.SetText("" & TextBox2.Text)
بهذا الكود
كود :
copyright_ = TextBox2.Text
ثم تعال على
كود :
'كود إضافة نفس المُنتج
Table15BindingSource.AddNew()
TextBox1.Text = TextBox3.Text
TextBox2.Text = Clipboard.GetText
ComboBox2.Select()
استخدمه بهذ الشكل
كود :
'كود إضافة نفس المُنتج
Table15BindingSource.AddNew()
TextBox1.Text = TextBox3.Text
TextBox2.Text = copyright_
ComboBox2.Select()
الان اليك التالى
اذا كنت تريد تفريغ قيمة copyright_ كل ما عليك تطبيقه هو
كود :
copyright_ = Nothing
بكده ستكون حليت مشكلة الرسالة التى تظهر لديك
وتجنبت اى مشكلة اخري واصبح لديك قيمة تتعامل معها كنسخ ولصق
تحياتى لك
وتمناتى لك التوفيق
تم حل المُشكلة، جزاك الله خيراً يا أخي الحبيب ، اسأل الله أن يرزقك الجنة.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.