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

[أكسس وبس]

اخوانى يوجد صورتين

الاولى صورة لتقرير يوجد فى خصائص مربع نص ( مجموع تراكمى ) واختار من القائمة

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

[أكسس وبس]

يمكن اضافة هذه الخاصة من خلال القيمة الافتراضية

[jjafferr]

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

 

يمكنك عمل التسلسل في التقرير مثل ما قلت ،

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

 

جعفر

[أكسس وبس]

اخى جزاك الله خيراً

سوف ارفق الملف ليتضح الامر فى التقرير تم عمل خاصية المجموع التراكمى لكي يتم حساب الرصيد اول باول

حاولت فى النموذج ولكن لا تفلح المحاولات

فى المرفق نموذج Account_Payable يتم اختيار المورد ثم بداية ونهاية التاريخ والضغط على مفتاح استعلام يفتح نموذج AccountSupp2 تحت عمود الرصيد اريد جمع الرصيد السابق دائن على القيمة فى حقل دائن ثم طرح منه مدين وهكذا ولكن نظراً لان لا يوجد خاصية المجموع التراكمى لمربع نص RecNo لا يتم حساب الرصيد هكذا ولذلك يتم احتساب الرصيد بالخطأ والصح ان بعد احتساب الرصيد فى نهاية هذا العمود يجب ان يساوى الرصيد الفعلى فى الاسفل

 

يومية مورد.rar

[أكسس وبس]

ضيفت الكود ده عن الفتح

Private Sub Form_Open(Cancel As Integer)
[RecNo].RunningSum = "شامل"
End Sub

لم تفلح

[jjafferr]

السلام عليكم 🙂

 

علشان نحصل على الرصيد التراكمي ، نستعمل هذا الكود في الاستعلام (ويجب ان يكون التاريخ تصاعدي) :

B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And [Date]<=#" & [Date] & "#"),0))

.

.

والنتيجة

.

وفي الاستعلام النموذج ، تم حذف الحقل RecNo ، واستعملنا الحقل B (من الاستعلام) في حقل الرصيد ، فكانت النتيجة :

.

 

1307.يومية مورد.accdb.zip

[أكسس وبس]

اشكرك

بس لما جربت مش نفس النتيجة

[أكسس وبس]

اخى الكريم قمت بتجريب مازالت المشكلة قائمة

قمت بعمل تقرير النتيجة فى نهاية عمود الرصيد هى نفس نتيجة الرصيد الفعلى فى اسفل التقرير اريد النتيجة فى النموذج AccountSupp2 تكون مثل ما فى التقرير

يومية مورد.rar

[jjafferr]

الله يطول في عمرك ، ما هذا النموذج اللي عملته انا ، وارفقته في مشاركتي السابقة !!

.

انا قلت:

10 ساعات مضت, jjafferr said:

وفي الاستعلام النموذج ، تم حذف الحقل RecNo ، واستعملنا الحقل B (من الاستعلام) في حقل الرصيد

.

 

هذه نتائج نموذجي اللي في مرفق مشاركتي السابقة ، وحسب التواريخ اللي وضعتها انت :

.

 

جعفر

[أكسس وبس]

اشكرك على سعة صدرك بس والله النتيجة زى ما هى

ممكن تأثير اللغة ونظام التاريخ فى الويندز له تأثير

ياريت ممكن تحدد اى استعلام تم التعديل فيه والنموذج الى تم التعديل فيه

 

[jjafferr]

تفضل 🙂

 

.

 

1307.1.يومية مورد.accdb.zip

[أكسس وبس]

جزاك الله خيرا ولسانى عاجز عن الشكر بس والله نفس النتيجة بفك الضغط وبفتح على اوفيس 2007

ممكن عشان الاوفيس ولا المشكلة فى الويندز او اللغة

 

[jjafferr]

هل تاريخ جهازك انجليزي او هجري ؟

 

رجاء تجرب هذا المرفق

1307.1.يومية مورد.accdb.zip

[أكسس وبس]

ظبطت الله يوسع عليك دنيا واخرة

[jjafferr]

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

 

 

 

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

Function DateFormat(varDate As Variant) As String
    'Purpose:    Return a delimited string in the date format used natively by JET SQL.
    'Argument:   A date/time value.
    'Note:       Returns just the date format if the argument has no time component,
    '                or a date/time format if it does.
    'Author:     Allen Browne. allen@allenbrowne.com, June 2006.
    '
    'calling the Function: DateFormat(The_Date_Field)
    'a = dlookup("[some field]","some table","[id]=" & me.id & " And DateFormat(The_Date_Field)")
    '
 
    
    If IsDate(varDate) Then
        If DateValue(varDate) = varDate Then
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#")
        Else
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        End If
    End If
End Function

.

ونناديه من الاستعلام هكذا :

B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And DateFormat([Date])<='" & DateFormat([Date]) & "'"),0))

.

 

جعفر