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

السلام عليكم 


عندي كود واحتاج تعديله لانه ينفذ الحفظ 




-------------------------------------------------------------------------
        'شرط عدم اكتمال البيانات
        If Paid_amount_reqTextBox.Text = "" Or
    Name_receipt_reqTextBox.Text = "" Or
    Check_amuntComboBox.Text = "" Or
            Note_receipt_reqTextBox.Text = "" Then

            MsgBox("فضلاً ادخل جميع الحقول")

        End If


        'الشرط الاول
      
        If Amount_requiredTextBox.Text = "0" Then
            Amunt_payTextBox.Text = Val(Amunt_payTextBox.Text) + Val(Paid_amount_reqTextBox.Text)

        Else
            'الشرط الثاني
        
            Amunt_payTextBox.Text = Val(Amunt_payTextBox.Text) + Val(Paid_amount_reqTextBox.Text)
            Amount_remainigTextBox.Text = Val(Amount_remainigTextBox.Text) - Val(Paid_amount_reqTextBox.Text)

        End If
      
        'الحفظ
        MsgBox("تم الحفظ")


-------------------------------------------------------------------------

ضع Exit Sub بعد الرسالة الأولى

ok 100%

شكرا لك