التعديل على دالة dsum

[jo_2010]

السادة الخبراء

فى نموذج مستمر يحتوى على رقم الشهر واسمة اريد وضع مربع نص يقوم بالتجميع من يوم 27/الشهر السابق الى يوم 26 الشهر المقابل

مثال

كود الشهر           اسم الشهر                          الاجمالى

 2                        فبراير                                        حسيب التجميع من الجدول

=DSum("[m_price]","[Qry_UNION_MOKHTABER]","date_R between #27/1/2024# and #26/2/2024#")

اريد التعديل على الدالة حتى تتوافق مع باقى الشهور 

[ابو جودي]

1- الكود ده فى وخدة نمطية

Function GetDateRange() As String
    Dim startDate As Date
    Dim endDate As Date
    Dim currentYear As Integer
    Dim currentMonth As Integer
    
    currentYear = Year(Date)
    currentMonth = Month(Date)
    
    ' Determine the start of the period (27th of the previous month)
    If currentMonth = 1 Then
        startDate = DateSerial(currentYear - 1, 12, 27)
    Else
        startDate = DateSerial(currentYear, currentMonth - 1, 27)
    End If
    
    ' Determine the end of the period (26th of the current month)
    endDate = DateSerial(currentYear, currentMonth, 26)
    
    GetDateRange = "# " & startDate & " # And # " & endDate & " #"
End Function

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

=DSum("[m_price]", "[Qry_UNION_MOKHTABER]", "date_R Between " & GetDateRange())

 

[jjafferr]

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

بالاضافة الى كود اخوي ابو جودي ، اليك طريقة اخرى ، استعلام فرعي، والمفروض يكون اسرع في التنفيذ.

 

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

A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()), Month(Date())-1,27)) And DateSerial(Year(Date()),Month(Date()),26)

 

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

 

جعفر

[ابو جودي]

  في 16‏/6‏/2024 at 07:43, jjafferr said:

بالاضافة الى كود اخوي ابو جودي ، اليك طريقة اخرى ، استعلام فرعي، والمفروض يكون اسرع في التنفيذ

Expand  

يا هلا والله اشتقنا 

اذا حضر الماء بطل التيمم

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

كل عام وانتم بخير ادامك الله فوق رؤوسنا  

[jjafferr]

  في 16‏/6‏/2024 at 08:21, ابو جودي said:

كل عام وانتم بخير

Expand  

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

[jjafferr]

  في 16‏/6‏/2024 at 07:43, jjafferr said:

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

A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()), Month(Date())-1,27)) And DateSerial(Year(Date()),Month(Date()),26)

 

Expand  

 

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

 

مبدئيا جرب:

A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()),[myMonth]-1,27)) And DateSerial(Year(Date()),[myMonth],26)

 

حيث [myMonth] هو اسم حقل "كود الشهر".

 

جعفر

[jo_2010]

  في 16‏/6‏/2024 at 07:03, ابو جودي said:

1- الكود ده فى وخدة نمطية

Function GetDateRange() As String
    Dim startDate As Date
    Dim endDate As Date
    Dim currentYear As Integer
    Dim currentMonth As Integer
    
    currentYear = Year(Date)
    currentMonth = Month(Date)
    
    ' Determine the start of the period (27th of the previous month)
    If currentMonth = 1 Then
        startDate = DateSerial(currentYear - 1, 12, 27)
    Else
        startDate = DateSerial(currentYear, currentMonth - 1, 27)
    End If
    
    ' Determine the end of the period (26th of the current month)
    endDate = DateSerial(currentYear, currentMonth, 26)
    
    GetDateRange = "# " & startDate & " # And # " & endDate & " #"
End Function

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

=DSum("[m_price]", "[Qry_UNION_MOKHTABER]", "date_R Between " & GetDateRange())

 

Expand  

الخبراء الافاضل

كل علم وانتم بخير لعادة الله عليكم هذة الايام المباركة بالخير والصحة

اليكم مااريد فى الصورة واليكم مرفق للتعديل 

Laboratory_2024.accdbFetching info...

  في 16‏/6‏/2024 at 09:22, jjafferr said:

 

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

 

مبدئيا جرب:

A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()),[myMonth]-1,27)) And DateSerial(Year(Date()),[myMonth],26)

 

حيث [myMonth] هو اسم حقل "كود الشهر".

 

جعفر

Expand  

الخبير الفاضل jjafferr

عيد سعيد كل عام وانتم بخير

اليكم ماريد

Laboratory_2024.accdbFetching info...

[jjafferr]

تفضل يا سيدي:

مصدر بيانات النموذج (تستطيع حذف الاعمدة D_From و D_To) :

.

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

.

والنموذج اصبح:

.

جعفر

 

نصيحة:

عندك مشكلة في برنامجك ، فالافضل ان تستورد مائناته الى ملف جديد ، ثم عمل ضغط واصلاح عليه.

 

Laboratory_2024.zipFetching info...

[jo_2010]

  في 16‏/6‏/2024 at 11:40, jjafferr said:

تفضل يا سيدي:

مصدر بيانات النموذج (تستطيع حذف الاعمدة D_From و D_To) :

.

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

.

والنموذج اصبح:

.

جعفر

 

نصيحة:

عندك مشكلة في برنامجك ، فالافضل ان تستورد مائناته الى ملف جديد ، ثم عمل ضغط واصلاح عليه.

 

Laboratory_2024.zip 119.27 kB · 4 downloads

Expand  

الخبير الفاضل ومعلم الاجيال

حققت اكثر ماكنت احلم بة لك خالص الشكر