كود القسمه

[ابو هايدي]

ارجو كود القسمه علي الفورم

ادخال.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو هايدي

ضع الأسطر التالية لتؤدي الغرض إن شاء الله

Private Sub TextBox2_Change()
    If TextBox2 <> "" And TextBox3 <> "" Then TextBox4.Value = Val(TextBox2) / Val(TextBox3) Else TextBox4.Value = ""
End Sub

Private Sub TextBox3_Change()
    If TextBox2 <> "" And TextBox3 <> "" Then TextBox4.Value = Val(TextBox2) / Val(TextBox3) Else TextBox4.Value = ""
End Sub

 

 

[ابو هايدي]

شكرا للاستاذ / 

ياسر خليل أبو البراء

علي مرورك الطيب