هل يمكن جمع الاعداد الموجبه فقط

[atefcoperson]

هل يمكن جمع الاعداد الموجبه فقط دون السالبة في اي جدول

[Shivan Rekany]

ممكن تعطينا مثال مع نسخة مصغرة من قاعدة بياناتك مع توضيح الحقول المطلوب للعملية عليه

[أ / محمد صالح]

بعد إذن حبيبنا شيفان

يمكن استعمال المعادلة الآتية

DSum("Field", "Table", "Field > 0")

حيث table اسم الجدول

و field اسم الحقل الموجود به الأرقام

[jjafferr]

الاستاذ محمد اعطى احد الطرق ،

ويمكننا عملها بطرق اخرى ، ومنها بالاستعلام ،

ولكن وكما قال اخي شفان ، نريد قاعدة بياناتك للعمل عليها

 

جعفر

[atefcoperson]

On 7/23/2017 at 3:58 PM, atefcoperson said:

هل يمكن جمع الاعداد الموجبه فقط دون السالبة في اي جدول

 

شرح لما اريد عندي اعمال سنه اكتب الغائب -1 و الترم الاول نكتب غائب -1   و الترم الثاني لو

حضر نكتب الدرجة له   و عند معادلة الجمع نجد ان السالب طرح من المجموع الكي

فاصبحت الدرجة خاطئة

مرفق نموذج من البرنامج 

sec1_2017-08-04.rar

و شكرا لمن يحاول المساعدة

[atefcoperson]

ارفقت النموذج و مفيش رد شكرا

[jjafferr]

وعليكم السلام

 

اعتذر منك ، فلم اكن متواجد في المنتدى لما عملت ردودك

ما اسم الجدول ، والحقول التي تريد جمعها؟

كما اريد منك ان تعمل الحساب يدويا لطالب واحد ، حتى اعمل على مطابقة الاجابة

 

جعفر

[jjafferr]

اذا كان قصدك جمع الـ 57 حقل في الجدول Students_names لكل طالب:

.

فالاسهل هو عمل وحدة نمطية لجمع هذه الحقول (انا اسميتها Get_Total) ، ومناداة هذه الوحدة النمطية من الاستعلام ، بحيث نرسل لها اسم الطالب ، وتقوم الوحدة النمطية بقراءة قيم حقول الطالب وجمعها:

.

وهذه الوحدة النمطية:

Function Get_Total(N)

    Dim T1 As Integer
    Dim T2 As Integer
    
    Set rst = CurrentDb.OpenRecordset("Select * From Students_names Where [الاسم]='" & N & "'")
    
    T1 = Nz(rst![year_Ar], 0) + Nz(rst![F1_Ar], 0) + Nz(rst![F2_Ar], 0) + Nz(rst![year_Eng], 0) + Nz(rst![f1_Eng], 0) _
       + Nz(rst![f2_Eng], 0) + Nz(rst![year_F], 0) + Nz(rst![f1_F], 0) + Nz(rst![f2_F], 0) + Nz(rst![year_Goem], 0) _
       + Nz(rst![f1_goem], 0) + Nz(rst![f2_goem], 0) + Nz(rst![year_Algeb], 0) + Nz(rst![f1_Algeb], 0) + Nz(rst![f2_Algeb], 0) _
       + Nz(rst![year_Bio], 0) + Nz(rst![M_BIO1], 0) + Nz(rst![T_BIO1], 0) + Nz(rst![M_BIO2], 0) + Nz(rst![T_BIO2], 0) _
       + Nz(rst![year_chem], 0) + Nz(rst![m_Chem1], 0) + Nz(rst![T_Chem1], 0) + Nz(rst![m_Chem2], 0) + Nz(rst![T_Chem2], 0) _
       + Nz(rst![year_histo], 0) + Nz(rst![T_histo1], 0) + Nz(rst![T_histo2], 0)
    T2 = Nz(rst![year_phys], 0) + Nz(rst![m_phyis1], 0) + Nz(rst![T_phys1], 0) + Nz(rst![m_phyis2], 0) + Nz(rst![T_phys2], 0) _
       + Nz(rst![year_Goeg], 0) + Nz(rst![T_Goeg1], 0) + Nz(rst![T_Goeg2], 0) + Nz(rst![year_philaso], 0) + Nz(rst![T_philaso1], 0) _
       + Nz(rst![T_philaso2], 0) + Nz(rst![year_coump], 0) + Nz(rst![m_f1_coump], 0) + Nz(rst![T_f1_coump], 0) _
       + Nz(rst![m_f2_coump], 0) + Nz(rst![T_f2_coump], 0) + Nz(rst![year_Relig], 0) + Nz(rst![f1_Relig], 0) + Nz(rst![f2_Relig], 0) _
       + Nz(rst![year_nation], 0) + Nz(rst![f1_nation], 0) + Nz(rst![f2_nation], 0) + Nz(rst![year_field], 0) _
       + Nz(rst![year_nashat], 0) + Nz(rst![f1_nashat], 0) + Nz(rst![f2_nashat], 0) + Nz(rst![year_Badnia], 0) _
       + Nz(rst![f1_Badnia], 0) + Nz(rst![f2_Badnia], 0)

    Get_Total = T1 + T2
    
    rst.Close: Set rst = Nothing
    
End Function

.

ونتيجة الاستعلام:

.

جعفر

730.sec1_2017-08-04.mdb.zip