اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

zubair1sz

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    19

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه zubair1sz

    شرح كود طريقة ترقيم تلقائي فواتير

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه zubair1sz

    السلام عليكم

    Dim xlast, xnext As Integer
    Dim prtye, prttxt As Integer
    xlast = DMax("fatoraid", "tblfatora", "left(fatoraid, 2) = myfatoratype()")
    prtyr = Left(xlast, 2)
    If IsNull(xlast) Then
    xnext = 1
    prtyr = myfatoraType()
    Else
    xnext = Val(Mid(xlast, 3, 5)) + 1
    End If
    Me.FatoraId = prtyr & Format(xnext, "00000")


    كيف افهم

     

    كيف أحل مشكلة حسابية في ملخص الفاتورة

    في قسم الأكسيس Access

    قام بنشر

    شكراً جزاك الله ألف خير على الرد

    المطلوب لمن ادخل مبلغ في خانة كاش العميل

    مثلاً

    العميل عنده  صافي المطلوب 115.50

    هو اعطاني مبلغ 150 ريال

    الان أدخل مبلغ في خانة كاش العميل 150 ريال

     في خانة مرتجع العميل كم يبقى 34.50

    في خانة مدفوع كاش و إجمالي المدفوع يرجع مبلغ صافي المطلوب الباقي آجل 0

    لانه دفع مبلغ أكثر من مبلغ صافي المطلوب

    حلو

    هذا المطلوب

    وشكراملخص الفاتورة.rar

     

    ملخص الفاتورة(1).rar

×
×
  • اضف...

Important Information

  I accept