[hglogtd]

السلام عليكم 


يعطيكم العافيه 


ابي اركب كود وما ضبط معي 


RadioButton1 و RadioButton2

بالنسبة RadioButton1 تمام 

وبالنسبة RadioButton2 احتاج انفذ شرط اذا textbox1 اقل من textbox2 يعطي رسالة لا يسمح الرصيد 

او ينفذ المحاسبة

كود :

       If RadioButton1.Checked = True Then
           RadioButton2.Enabled = False

           Amount_remainigTextBox.Text = Val(Amount_remainigTextBox.Text) - Val(Discount_amountTextBox.Text)
           MsgBox("تم تسجيل التنازل")
           Exit Sub
       End If

       If RadioButton2.Checked = True Then
           RadioButton1.Enabled = False



       ElseIf textbox1.Text = Val(textbox1.Text) < Val(textbox2.Text) Then
           MsgBox("مبلغ الخصم أعلى من المبلغ المتوفر")
       Else
           MsgBox("ok")
           (textbox1.Text = Val(textbox1.Text) - Val(textbox2.Text)
           MsgBox("تم التحويل")



       End If

[محمود صالح]

غير ElseIf الى if فقط 
مع وضع end if اخرى

[hglogtd]

شكرا لك انحلت المشكله