دخول

**hglogtd** · 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("تم الحفظ")

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

**طالب برمجة** · 01-03-18, 01:23 AM

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

**hglogtd** · 01-03-18, 02:07 AM

ok 100%

شكرا لك

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] مساعدة تعديل على الكود	ZEEN4ZEEN	2	208	08-10-25, 02:20 PM آخر رد: salamandal
	تعديل كود تحديث البيانات	مصمم هاوي	1	781	26-04-25, 06:07 PM آخر رد: مصمم هاوي
	تعديل على استدعاء الدرجات حسب الاختيار	مصمم هاوي	11	982	15-04-25, 06:16 PM آخر رد: princelovelorn
	ارجو تعديل الكود بواستطة الاجراء المخزن	new_programer	3	673	03-04-25, 02:44 PM آخر رد: princelovelorn
	تعديل مسار مكان حفظ النسخة الاحتياطية	مصمم هاوي	6	798	02-03-25, 01:06 PM آخر رد: atefkhalf2004
	محتاج تعديل على كود الحذف	new_programer	2	651	17-02-25, 06:50 PM آخر رد: new_programer
	ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال	new_programer	0	619	05-02-25, 01:51 AM آخر رد: new_programer
	ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود	new_programer	4	598	30-01-25, 08:26 AM آخر رد: new_programer
	طلب تعديل كود جلب اسم الملف ومساره	مصمم هاوي	4	529	25-01-25, 12:45 AM آخر رد: مصمم هاوي
	تعديل كود الحذف	مصمم هاوي	2	478	10-01-25, 03:03 PM آخر رد: عبد العزيز البسكري