الجمع بشرط الارقام ( الموجب ) والارقام ( السالب ) فى كشف الارصده

[اسلام سيد]

السلام عليكم

كيف لى ان اجمع الارصده ( المدينه) والارصده ( الدائنه) فى كشف الحساب كلا على حدى ؟

المطلوب :

1- جمع الارقام ( الموجب)

2- جمع الارقام ( السالب)

ملف مرفق :

 

  الرصيد.rar

 

 

 

 

 

[jjafferr]

تفضل 

 

.

والنتيجة:

.

وفي الحدث الحالي على النموذج الرئيسي ، هذا الكود يقوم بالعمل:

Private Sub Form_Current()

    'N = Negative
    'P = Positive
    
    Dim rst As DAO.Recordset
    Set rst = Me.تابع4.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    N = 0
    P = 0
    
    For i = 1 To RC
    
        If rst!الرصيد < 0 Then
            N = N + Nz(rst!الرصيد, 0)
        Else
            P = P + Nz(rst!الرصيد, 0)
        End If
        
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

 

 

جعفر

251.الرصيد.accdb.zip

[اسلام سيد]

السلام عليكم

كده انت هاتريك ........... كما يقولون

بارك الله فيك وزادك من فضله

إنى احبكم فى الله

انا اتشجعت اكثر واكثر

والخطوة التالية

استفسارات هامه عن تقارير اساسية لى ، بها افكار لم اصنعها من قبل بالاكسيس ولا  الاكسيل

ربما اعرضها الليلة او بعد الفجر بإذن الله

جزاكم الله خيرا

ونفعنا الله بعلم

 

[jjafferr]

حياك الله 

[رمهان]

بعد اذن الاستاذ جعفر

واثراء للمعلومة 

اكتب التعبير التالي في مربع نص للنموذج الفرعي وللارقام السالبة

=Sum(IIf([الرصيد]<0;[الرصيد];0))

وطبعا للموجبة تغيير فقط الاشار الى اكبر من الصفر

ويبقى سحب القيمة للنموذج الرئيسي واخفاء الاصلي بالنموذج الفرعي وهذه اتوقع معلومة ومعروفة !

هنا افضل وبعد الارتباط بحدث معين او حتى عند الفلترة تتغير الحسبة !

بالتوفيق

تم تعديل نوفمبر 10, 2015 بواسطه رمهان

[jjafferr]

وش هالكلام أستاذنا الفاضل رمهان (طبعا بعد الحمدلله على السلامه) 

كنت اسرح وامرح على كيفي ، والكل كان يظن اني عبقري ، وبكود سطر منك كشفتني 

 

جعفر

[wael_rafat]

بارك الله فيكما وجزاكم الله عنا كل خير 

حمد الله علي السلامة استاذنا العزيز  رمهان

ومن المعروف عن استاذ رمهان  انه يمتاز بطريقة المختصر المفيد والوصول للهدف باقل الخطوات

تم تعديل نوفمبر 10, 2015 بواسطه wael_rafat

[رمهان]

53 دقائق مضت, jjafferr said:

وش هالكلام أستاذنا الفاضل رمهان (طبعا بعد الحمدلله على السلامه) 

كنت اسرح وامرح على كيفي ، والكل كان يظن اني عبقري ، وبكود سطر منك كشفتني 

 

جعفر

الله يسلمك اخوي جعفر ! الغيبة فقط كانت لانهاء بعض البريمجات ! وكلك ذوق !

وهذه بمناسبة اشادتك :

 

=-Sum([الرصيد]*([الرصيد]>0))

هذه للموجبة وعكس الاشارة لاقل من وذلك للسالبة !

بس عارف اخوي جعفر انه مهما عملنا يبقى سحرك الاقوى !

اجمل تحية

36 دقائق مضت, wael_rafat said:

بارك الله فيكما وجزاكم الله عنا كل خير 

حمد الله علي السلامة استاذنا العزيز  رمهان

ومن المعروف عن استاذ رمهان  انه يمتاز بطريقة المختصر المفيد والوصول للهدف باقل الخطوات

الله يسلمك اخي وائل وصدقني اصبح المنتدى روتين في حياتنا خاصة وانه يجمعنا بامثالكم !

اجمل تحية

[اسلام سيد]

السلام عليكم

بارك الله فيك يا استاذى الفاضل / رمهان

رووووووووووووعه

حمد لله على سلامتك

زودت الموضوع جمااااااااالا بمشاركتكم

الدالة ممتازة كنت بفكر فيها لكن مكنتش عارف اركبها

لان خبرتى ضئيله جدا فى الاكسيس

لكن الشغل ده انا عاملة على الاكسيل ( اللى كنت فاكرة هو كل حاجه )

لكن يتميز الاكسيس علية ( قاعده بيانات + اجراءات حسابيه )

شكرا لكم جميعا