01-03-18, 12:40 AM
السلام عليكم
عندي كود واحتاج تعديله لانه ينفذ الحفظ
-------------------------------------------------------------------------
'شرط عدم اكتمال البيانات
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("تم الحفظ")
-------------------------------------------------------------------------
'شرط عدم اكتمال البيانات
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("تم الحفظ")
-------------------------------------------------------------------------
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،