أستعلام لجمع القيمة السابقة

[أبو وليد]

لدي استعلام ارغب في عمل عمود به عمليه حسابية من ضمنها قيمة الخلية السابقة

 

كما في الصورة

[كرار صبري _ أبو جنى]

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

أرفق مثال للتعديل عليه ...

[أبو وليد]

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

هذا المرفق والمطلوب كما في الصورة

 

بارك الله فيكم

Database2.zip

[jjafferr]

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

 

تريد الرد على هذا السؤال ، او:

http://www.officena.net/ib/topic/66660-استعلام-مشروط/?do=findComment&comment=433546

 

 

جعفر

[أبو وليد]

على هذا السؤال

السؤال السابق يختلف عن هذا

[jjafferr]

أخي ابو وليد

 

احساسي يحسسني انه في عندك قاعدة بيانات غير المرفقه 

وان اللي ذكرته انت هو جزء من المطلوب ، ولم تخبرنا الشروط التي يجب ان نشتغل عليها 

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

 

فرجاء ، لا تخلينا نشتغل مرتين 

 

 

جعفر

[أبو وليد]

شاكر لك مرورك

نعم هذا مثال عن ماريد

قاعدة البيانات كبيرة

بس المطلوب الى طريقة الحل

وهو

عمود في الاستعلام

كما هو واضح في الصورة

جمع توالي بمعنى

أتوقع انها غير ممكنه في الاكسيس بحثت وحاولت كثيرا

الا بالتحايل

[jjafferr]

على خير ان شاء الله 

بس انا إحتمال اعمل حقل جديد في الجدول ، وادخل البيانات فيه ،

او اعمل لك جدول مؤقت ، بحيث يكون في نسخة من حقل ID الجدول الحالي علشان تربط الجدولين مع بعض في استعلام.

 

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

 

جعفر

 

والعمل سيتم بالكود

[أبو وليد]

بيض الله وجهك

[jjafferr]

تفضل 

 

استخدم زر النموذج Form1 للحصول على نتائج الاستعلام 

.

والنتيجة:

.

 

هذه الوحدة النمطية Add_5 والتي تقوم بالعمل للإستعلام:

Public RowID As Integer
Public RowVal As Integer


Function Add_5(N)
    
    'N = vol

    If Len(RowID & "") = 0 Then
        RowID = RowID + 1
    End If
    
    If RowID = 1 Then
        Add_5 = N
        
    Else
        Add_5 = N + RowVal
        
    End If
    
    RowVal = Add_5
    
End Function

.

ولكن لكي تعمل بالطريقة الصحيحة ، يجب ان نشغل الاستعلام من زر النموذج Form1 ، وحدث الرز (يعني اذا شغّلت الاستعلام مباشرة ، ستحصل على نتائج غلط):

Private Sub cmd_fAdd_5_Click()

    RowID = 0
    RowVal = 0
    
    DoCmd.OpenQuery "Query1"
End Sub

 

جعفر

256.1.Database2.accdb.zip

[أبو وليد]

بارك الله فيك

 

اجرب المرفق

مع الأسف عزيزي

ليس هذا ماريده

هذا مايسمى Running sum

الذي اريده ان استخدم القيمة المحسوبة للخلية السابقه مع الجديده

 

 

[jjafferr]

انا شغلي كله على اساس مثالك.

آسف نسيت اجمع الرقم 5 

 

لوسمحت ، اعمل لي النتيجة اللي لازم تظهر مال البيانات اللي موجودة في المرفق.

 

 

جعفر

[أبو وليد]

لاحظ النتيجة

[jjafferr]

شكرا 

 

جرب هذا الكود بدل السابق :

Public RowID As Integer
Public RowVal As Double


Function Add_5(N)
    
    'N = vol

'    If Len(RowID & "") = 0 Or RowID = 0 Then
        RowID = RowID + 1
'    End If
    
    If RowID = 1 Then
        Add_5 = N
        
    Else
        'Add_5 = N + RowVal + 5
        Add_5 = RowVal + 5
        
    End If
    
    RowVal = Add_5
    
End Function

 

 

جعفر

[أبو وليد]

رائع

الف شكر

 

هل ممكن عمله مباشره في الاستلام

لاني اريد عرض النتائج في الاستعلام

[jjafferr]

حياك الله 

 

النتائج حاليا تُعرض في الاستعلام ، فما عندك مشكلة هناك 

 

ولكن علشان نستغني عن النموذج (كل اللي يعمله هو ان يخبر الوحدة النمطية بأن بداية السجلات من هنا) ، محتاج الى تسلسل من 1 الى آخر رقم ، كبيانات حقل ،

هذه البيانات موجودة في مرفقك ، حقل Field1 ، ولكنها غير موجودة في الصورة التي وضعتها في سؤالك الاصل 

 

 

جعفر

[أبو وليد]

العلم نور

زادك الله نورا ورزقك نعيما

 

 

[jjafferr]

[كرار صبري _ أبو جنى]

 انا اجيت متأخر ... 

[jjafferr]

7 دقائق مضت, karrar sabry said:

 انا اجيت متأخر ... 

ولا يهمك ، انا في انتظار معرفة طريقتك والتعلم منها 

تفضل 

 

 

جعفر

[كرار صبري _ أبو جنى]

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

تفضل 

1- انا مليش في الكود .

2- اعتمدت كليا على الترقيم التلقائي ID

.

.

.

تفضل 

كرار ...

Database3.rar

[jjafferr]

33 دقائق مضت, karrar sabry said:

1- انا مليش في الكود .

2- اعتمدت كليا على الترقيم التلقائي 

 

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

 

 

1. بس استعلامك كله كود 

2. وهنا اذا تسمح لي اتدخل:

انا ذهبت الى الجدول ، ونسخت السجلات والصقتهم عدة مرات ، ثم حذفت السجلات الاولى ، وبهذه الطريقة ، الرقم التلقائي لم يبدأ بالرقم 1 ، فإستعلامك يحتاج له تعديل بسيط حتى يشتغل على جميع الارقام 

 

في الاستعلام ، غيّر قيمة ID2 الى القيمة التالية:

ID2: DCount("ID","Query1","ID <=" & [ID])-1

 

 

جعفر

[كرار صبري _ أبو جنى]

شكرا استاذي العزيز ... 

ولمسة جميلة في حال عدم الاعتماد على التسلسل التلقائي ... 

[أبو وليد]

رائع وفقكم الله

الاستعلام المباشر أسهل

ولكن الكود تستطيع التحكم به أكثر وأشمل

 

زادكم الله من علمه وفضله ورزقه

[jjafferr]

أخوي أبو وليد 

 

انصحك بإستخدام طريقة أخونا كرار ، مع تعديلي 

لأني لاحظت ان طريقتي تعطي ارقام غير صحيحة لما السجلات تكون كثيرة ، لازم اشوف ليش ، بس حق شغلك ، خذ الطريقة الصح 

 

 

جعفر