تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو تعديل كود if
#1
السلام عليكم 


عندي كود واحتاج تعديله لانه ينفذ الحفظ 
كود :
   'شرط عدم اكتمال البيانات
       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("تم الحفظ")


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



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#2
ضع Exit Sub بعد الرسالة الأولى
الرد
تم الشكر بواسطة: عبد العزيز البسكري , hglogtd , hglogtd
#3
ok 100%

شكرا لك



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود محول من c# الى vb nabil.1710 4 317 25-03-21, 12:38 AM
آخر رد: nabil.1710
  ارجو التعديل علىى هذا الكود من فضلكم على زهران 2 209 19-03-21, 11:31 PM
آخر رد: على زهران
  ارجو المساعدة في عرض البيانات على التاتا جرد فيو moahmed.abdelmohsen 1 228 15-03-21, 09:38 PM
آخر رد: moahmed.abdelmohsen
  [سؤال] سؤال طريق اعمل بحث و اضافة و تعديل دخل قاعد البيانات فى نفس الوقت alims 1 213 15-03-21, 07:17 AM
آخر رد: alims
  تعديل مجموعة حقول aftfm 10 576 09-03-21, 08:12 AM
آخر رد: aftfm
  الرجاء مساعدة بخصوص حفظ و تعديل صورة صنف من الأصناف nouribenyahia 0 227 09-02-21, 08:29 PM
آخر رد: nouribenyahia
  [سؤال] طلب تعديل كود asmarsou 5 427 17-01-21, 08:56 PM
آخر رد: asmarsou
  ممكن تعديل علي المشروع اليوم السابع 3 404 10-01-21, 07:47 PM
آخر رد: 1nj
  [VB.NET] تعديل سلايدر لعرض الصور محمد اسماعيل 2 308 09-01-21, 08:04 PM
آخر رد: محمد اسماعيل
  ارجو المساعدة ضرورى من عمالقة البرمجة فى شئ بسيط على زهران 5 421 30-12-20, 05:23 PM
آخر رد: على زهران

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم