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

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

PHP كود :

Public Function Max_number_invoic_tbpl()

        Dim Number As Integer
        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
            Con.Close()
        Catch ex As Exception
            Number = 0
            Con.Close()
        End Try
        Return Number
    End Function 


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

هل من مجيب اخوانى ????

[أبو خالد الشكري]

أهلين إزيك يا سي حماده ؟

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

كود :

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

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

(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  اية بيانات  
حيث ان طريقة عمل الكود عندما اضغط على زر فاتورة دليفرى يعطينى اكبر قيمة للفاتورة بناء على ذلك الشرط
وعندما اضغط على زر فاتورة تيك واى يعطينى اكبر قيمة للفاتورة بناء على هذا الشرط
ولكن ان لم يجد اية من هذة الشروط داخل العمود يعطى رسالة خطأ كما بالصورة

[أبو خالد الشكري]

في هذي الحالة أنا أنصحك أن ترفق المشروع كاملا  بعد ضغطه ببرنامج winrar
وذلك حتى يمكن مساعدتك  بشكل أفضل من قبل المبرمجين في هذا المنتدى.

[asemshahen5]

استخدم الاستعلام كالتالي :

PHP كود :

Dim StrSQL as String = "Select IIF(Max(order_no) Is NULL,1,Max(order_no)+1)as order_no From wardya_cashier Where order_tybe ='" & order_type.Text & "'" 


فقط غير اسم العامود+اسم الجدول .

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

(28-07-22, 07:51 PM)asemshahen5 كتب : استخدم الاستعلام كالتالي :

PHP كود :

Dim StrSQL as String = "Select IIF(Max(order_no) Is NULL,1,Max(order_no)+1)as order_no From wardya_cashier Where order_tybe ='" & order_type.Text & "'" 


فقط غير اسم العامود+اسم الجدول .

اخى وحبيبى asemshahen5 جزاااااااااااااااااك الله كل خير 

تم حل الموضوع بفضل الله وبفضل تكرمك على بمشاركتك
جزاك الله كل خير وكل من شارك ف الموضوع