+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو تعديل كود if (/showthread.php?tid=24018)
ارجو تعديل كود if - hglogtd - 01-03-18
السلام عليكم
عندي كود واحتاج تعديله لانه ينفذ الحفظ
كود :
'شرط عدم اكتمال البيانات
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("تم الحفظ")-------------------------------------------------------------------------
'شرط عدم اكتمال البيانات
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("تم الحفظ")
-------------------------------------------------------------------------
RE: ارجو تعديل كود if - طالب برمجة - 01-03-18
ضع Exit Sub بعد الرسالة الأولى
RE: ارجو تعديل كود if - hglogtd - 01-03-18
ok 100%
شكرا لك