[حماده ممدوح البحيرى]

(28-07-22, 02:28 PM)أبو خالد الشكري كتب : أهلين إزيك يا سي حماده ؟

أنا عدلت لك الكود ، وأرجو أن يشتغل على ( سنجة عشرة ) 

كود :

Public Function Max_number_invoic_tbpl()
       Dim Number As Integer
       Dim rdr As SqlClient.SqlDataReader
       Try
           Dim cmd As New SqlCommand("Select Max(order_no) From wardya_cashier Where order_tybe ='" & order_type.Text & "'", Con)
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Number = cmd.ExecuteScalar
           rdr = cmd.ExecuteReader
           rdr.Read()
           If rdr.HasRows Then

               MsgBox("توجد بيانات مسجلة يا حماده")

           Else

               MsgBox("للأسف يا حماده لا توجد بيانات مسجلة")

           End If
       Catch ex As Exception
           Number = 0
           Con.Close()
       End Try
       Return Number
   End Function

السلام عليكم اخى وحبيبى ابو خالد وشكرا على ردك

نسخت الكود تمام ولكن ظهرت لى هذة الرسالة
وهذة الرسالة تظهر عندما لا يكون داخل عمود الشرط order_tybe  اية بيانات  
حيث ان طريقة عمل الكود عندما اضغط على زر فاتورة دليفرى يعطينى اكبر قيمة للفاتورة بناء على ذلك الشرط
وعندما اضغط على زر فاتورة تيك واى يعطينى اكبر قيمة للفاتورة بناء على هذا الشرط
ولكن ان لم يجد اية من هذة الشروط داخل العمود يعطى رسالة خطأ كما بالصورة