منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(06-09-18, 06:27 PM)elgokr كتب : [ -> ]

اخى الفاضل انت تستخدم اسم عمود بجدول

قبل اسم Sub ليه

اولاً فى الصورة هنا 

يحدث الخطاء هنا كونك لم تقوم بانشاء الـ Sun الخاص بالاسم

ويبدو انك لا تتعامل بالاكواد فى المشروع لديك بال انك تتعامل بالادوات

لذلك اخى الحبيب ارفق المشروع الذى لديك

حتى يتم عمل الازم بالمشروع واعادة رفعه لك بعد الانتهاء

تحياتى لك

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

بصدقٍ ليس عندي الخبرة التي عندك (ماشاء الله)، لكني سأسعى أن لا أُرهقك معي إن شاء الله، وجدت حلاً الحمد لله لكن ينقصني شيئاً واحد هو السماح بنسخ القيمة الفارغة Null ، وسأوضح لحضرتك يا أخي الفاضل الحل المطروح باختصار :


في زر البحث [Barcode]  :
كان في البدء كود للبحث فقط : 


إذا كان المُنتج موجود من قبل فسيظهر اسم المنتج في Textbox2
فقمت باستغلال هذه النقطة وأضفت كود نسخ اسم المنتج الظاهر في Textbox2 (في نفس زر البحث Barcode ) 

فأصبح الزر يحتوي على الكودين التاليين :



ثم قمت بعمل زر جديد باسم  (ADD) ووضعت فيه كودين، الأول : إنشاء صف جديد ، والثاني: وضع الباركود الذي تم البحث عنه في الصندوق النصي الثالث، والكود الثالث: هو عمل Past لوضع اسم المنتج الذي قمت بنسخه من قبل أثناء الضغط على رز البحث (Barcode)
الأمور الحمد لله تمضي بسلام ، لكن المُشكلة التي ظهرت ، هو أنني عندما أضغط على زر البحث في نفس الوقت هو يقوم بعمل نسخ للصندوق النصي ، فلو لم يكن المنتج تم تسجيله من قبل فستكون القيمة فارغة Null وبذلك تظهر رسالة خطأ كما في الصورة، لذا احتاج مُساعدتك يا أخي الفاضل في كيفية تجاوز هذه الرسالة بحيث لا تظهر ويتم نسخ قيمة الصندوق النصي ولو كان ذا قيمة فارغة Null، أو استبدالها برسالة أُخرى (هذا المُنتج غير متوفرٍ، هل تُريد إضافته كمنج جديد؟) ، وجزاك الله خيراً ويسَّر لك كل أمرٍ كما تُيسر على عباد الله.

لا تجر نفسك ان تستخدم هذا السطر

اسفل هذا السطر التالى

استخدم هذا الكود مثلاً

واستبدل السطر الخاص بـ

بهذا الكود

ثم تعال على 

استخدمه بهذ الشكل

اذا كنت تريد تفريغ قيمة copyright_ كل ما عليك تطبيقه هو

(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

بكده ستكون حليت مشكلة الرسالة التى تظهر لديك

وتجنبت اى مشكلة اخري واصبح لديك قيمة تتعامل معها كنسخ ولصق

تحياتى لك

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

تم حل المُشكلة، جزاك الله خيراً يا أخي الحبيب    ، اسأل الله أن يرزقك الجنة.

(07-09-18, 09:21 PM)Hazem1 كتب : [ -> ]تم حل المُشكلة، جزاك الله خيراً يا أخي الحبيب    ، اسأل الله أن يرزقك الجنة.