[elgokr]

(08-06-18, 02:27 AM)maram2423 كتب :

(08-06-18, 01:58 AM)elgokr كتب :

اى رسالة بضبط

ضع الرسالة هنا

ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

حتى يتم توضيح لك ما الجزء المطلوب تعديله

ليعمل معك بالصورة الصحيحة

تحياتى لك

في حالة كان ال text خالي او فارغ  وقمت بالضغط علي زر البحث رسالة "ادخل اسم الطالب " ورسالة الحقل المطلوب غير موجود " تظهر الرسالتان معا في نفس الوقت وانا اريد الرسالة الاولي هي التي تظهر فقط

سبب عرض الرسالة مرتين هو جعل كود التحقق من قيمة t1.text فارغة 

لا تشمل كل كود الاستعلام وتنفيذ ما بعد الاستعلام

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

مع الانتباه لتعديل كود الاستعلام الى LIKE  كما سبق وتوضيحه بالاعلى

او طبق الكود التالى

كود :

       If T1.Text IsNot Nothing Then
           Dim f As Integer
           f = 0
           con1.Open()
           sh1.CommandText = "select * from stu1 where set_na LIKE '" + T1.Text + "'"
           Dim r1 As SqlDataReader
           r1 = sh1.ExecuteReader
           If r1.Read Then
               f = 1
               T2.Text = r1("set_na")
               T1.Text = r1("set_no")
           End If
           con1.Close()
           If f = 0 Then
               MsgBox(" المطلوب غير موجود")
           End If
       Else
           '|- ضع كود الرسالة -|'
       End If

اصبح لديك بدلاً من طريقة اكثر من طريقة

تحياتى لك

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