تقييم الموضوع :
  • 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%

شكرا لك



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 67 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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