[mostafa nada]

السلام عليكم اخوانى الكرام

عندى فى شاشة العملاء حقل مخصص لرصيد العميل وعند استدعاء العميل فى شاشة الفاتورة وضعت تشيك بوكس لتحديد اذا كان العميل لة رصيد فيتم خصم الفاتورة من رصيدة المسجل لدية وذلك من خلال الضغط true على التشيك بوكس

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

فارجو الايضاح والرد وشكرا لكم 

كود :

Try
           '===============================================================
           If chkcustomerbalance.Checked = True Then
               Dim balancenew2, invamo, cusbalan As Double
               invamo = Val(InvoiceAmount.Text)
               cusbalan = Val(CustomerBalanceBill.Text)
               balancenew2 = invamo - cusbalan

               If con.State = ConnectionState.Closed Then con.Open()

               Dim cmd3 As New SqlCommand
               cmd3.Connection = con
               cmd3.CommandType = CommandType.Text
               cmd3.CommandText = "UPDATE Customers SET CustomerBalance=@CustomerBalance WHERE CustomerName=@CustomerName"
               cmd3.Parameters.AddWithValue("@CustomerBalance", balancenew2)
               cmd3.Parameters.AddWithValue("@CustomerName", CustomerID.Text)
               cmd3.ExecuteScalar()
               con.Close()
           End If
           '===============================================================
           Insert_Sales(InvoicID.Text, InvoicDate.Value, CustomerID.Text, InvoiceAmount.Text, ItemsNo.Text, EmpID.Text)
           Insert_SalesDetails()
           LoseQty()
       Catch
           Exit Sub
       End Try