مشكلة في اظهار المجموع على نظام الويندوز 7

السﻻم عليكم

اﻻخوة واﻻخوات اﻻفاضل اعضاء ومشرفي منتدانا الجميل

وثانيا حمد لله علي عودة اﻻستاذ جعفر

نفس المشكلة واجهتني وانما مع ويندوز 7 64بت فقط وما فهمت اين المشكلة وشكرا

وعليكم السلام شباب :)

انا اصلا لا استعمل

= Sum ([ABC])

واتضح انها (وعائلتها الكريمة مثل count ) تعمل مشاكل (في النماذج ، وليس في التقارير على ما اعتقد) بين اصدارات الاكسس المختلفة.

انا اجمع في الكود ، والطريقة جدا بسيطة (بس تخلي بالك راح تفهمها :) ) ،

على العموم ، النتائج تظهر باللون الاحمر اسفل النموذج:

وهذا هو الكود (رجاء ملاحظة اني اخذت المعادلات من النموذج الفرعي والرئيسي وحولتها للكود من دون تغيير في المعادلة):

Private Sub Form_Load()

'Original Form Codes
'subform 1
'    [x] = Sum(Nz([Dain]))
'    [xx] = Sum(Nz([Madin]))
'main form
'    [p] = IIf(Not IsError([1].[Form]![x]), [1].[Form]![x], 0)
'    [pp] = IIf(Not IsError([1].[Form]![xx]), [1].[Form]![xx], 0)
'    [as] = [pp] - [p]
'    [dert] = IIf([as] >= 0, "ãÏíÜÜÜÜÜÜÜä", "ÏÇÆÜÜÜÜÜÜÜä")
'    [zse] = IIf(IsNull([as]), " ", NoToTxt([as], "áíÑÉ ÓæÑíÉ ", "ÞÑÔ"))
'    [z1] = IIf([Check_Digites] = 1, Format([as], "#,###.00") & "   /    " & [dert], Format([as], "#,###") & "   /    " & [dert])

'New Code

    Dim rst As DAO.Recordset
    Dim i, x_1, xx_1, as_1, dert_1, zse_1
    
    Set rst = Me.[1].Form.RecordsetClone
    rst.MoveFirst
    
    x_1 = 0: xx_1 = 0
    For i = 1 To rst.RecordCount
        x_1 = x_1 + Nz(rst!Dain, 0)
        xx_1 = xx_1 + Nz(rst!Madin, 0)
        rst.MoveNext
    Next i

    Me.p_1 = IIf(Not IsError(x_1), x_1, 0)
    Me.pp_1 = IIf(Not IsError(xx_1), xx_1, 0)
    as_1 = Me.pp_1 - Me.p_1
    dert_1 = IIf(as_1 >= 0, "ãÏíÜÜÜÜÜÜÜä", "ÏÇÆÜÜÜÜÜÜÜä")
    'Me.zse_1 = IIf(IsNull(as_1), " ", NoToTxt(as_1, "áíÑÉ ÓæÑíÉ ", "ÞÑÔ"))
    Me.z1_1 = IIf([Check_Digites] = 1, Format(as_1, "#,###.00") & "   /    " & dert_1, Format(as_1, "#,###") & "   /    " & dert_1)
    
End Sub

جعفر

281.Q200.accdb.zip

الف شكر

اخي جعفر على اجابتك

عندما تأخر الرد، حاولت مراراً وتكراراً الى ان نجحت بالتغلب على الامر، وذلك بإعادة تصميم نموذج جديد ووضع النموذج الفرعي عليه.

وهكذا نجح الامر معي

الف شكر مجدداً

على ماتفضلت به، واكيد فكرتك فكرة جديدة ....اول مرة اشوفها.......وان شاء الله سوف يستفيد منها الزملاء

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

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