ما الخطأ الظاهر في جملة MySQL حتى تعطي النتيجة صحيحة

[كريمو2]

5 دقائق مضت, Foksh said:

الآن من خلال معرفتك ببيانات مشروعك ، ما النتيجة الصحيحة للعام 2024 ، والعام 2025 ؟؟
فقط من أجل تلافي كثرة التجارب بيننا ولإكتساب الوقت .

انظر الصور

سنة 2024

سنة 2025

 

[Eng.Qassim]

السلام عليكم

جرب هذه المحاولة

 

20250101.rar

[كريمو2]

5 دقائق مضت, Eng.Qassim said:

جرب هذه المحاولة

 

في طريقك الي الحل الصحيح استاذ ولكن بقيت 

[Foksh]

48 دقائق مضت, كريمو2 said:

انظر الصور

سنة 2024

سنة 2025

 

طيب ، جرب هذه الحيلة  .

't9
Me.t9 = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0) - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0)
If Me.t9 = 0 Then
    Me.Lblt9 = 0
Else
 MySQL = ""
 MySQL = "Select DISTINCT(Employeeid) From tbl_Loans"
 MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & "And [Loan_ID] > 0 And ([Loan_Made]-[Payment_Made])=0"   ' - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & "And [Loan_Type] <> 'Inkhirat'"), 0)
 Set rst = CurrentDb.OpenRecordset(MySQL)
 Me.Lblt9 = rst.RecordCount
End If

'T9E
Me.t9e = Nz(DSum("Nz([Loan_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) - Nz(DSum("Nz([Payment_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0)
If Me.t9e = 0 Then
    Me.Lblt9e = 0
Else
    MySQL = ""
    MySQL = "SELECT DISTINCT(Employeeid) FROM tbl_Loans WHERE Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"
    Set rst = CurrentDb.OpenRecordset(MySQL)
    Me.Lblt9e = rst.RecordCount
End If

 

[Eng.Qassim]

اسف...لقد أخطأت

لم انتبه لعام 2024

 

20250101.rar

9 دقائق مضت, Foksh said:

طيب ، جرب هذه الحيلة

ههههههههههههه هي الاكسس معظمه حيل 

فلم انتبه لعام 2024

[Foksh]

9 دقائق مضت, Eng.Qassim said:

ههههههههههههه هي الاكسس معظمه حيل 

 

المشكلة انه في الحقول الرقمية يجب أن تكون القيمة الإفتراضية = 0 (من وجهة نظري) ، وفي مشروع أخونا @كريمو2 ، للأسف لديه حقول فارغة = Null أو "" وهذا يربك العمليات الحسابية حتى عند استخدام NZ على سبيل المثال مع كثرة السجلات والشروط .... إلخ .

 

فاقترحت على نفسي الحيلة ليس إلا , 

[كريمو2]

23 دقائق مضت, Eng.Qassim said:

ههههههههههههه هي الاكسس معظمه حيل 

 

فعلا لازم تعمل حيلة باش تكسر مشكلة الاكسس ههههههه

تمت الحيلة هههههههههه في 

If Me.T9E = 0 Then
    Lblt9e = 0
Else
    Me.Lblt9e = rst.RecordCount
End If
rst.Close
Set rst = Nothing

الله يعطيك العافية استاذ بارك الله فيك ولقد استفدت من الحيلة حتى في Lblt9

[كريمو2]

21 دقائق مضت, Foksh said:

المشكلة انه في الحقول الرقمية يجب أن تكون القيمة الإفتراضية = 0 (من وجهة نظري) ، وفي مشروع أخونا @كريمو2 ، للأسف لديه حقول فارغة = Null أو "" وهذا يربك العمليات الحسابية حتى عند استخدام NZ على سبيل المثال مع كثرة السجلات والشروط .... إلخ .

 

فعلا استاذي العزيز كلامك صواب

 ولكن المشكلة كسرت بحيلة ذكية من طرف الاستاذ Eng.Qassim

[Foksh]

[Eng.Qassim]

شكرا لك استاذ @كريمو2

فقد حركت دماغي اليوم بعد فترة من الخمول 😂

[Foksh]

42 دقائق مضت, كريمو2 said:

فعلا استاذي العزيز كلامك صواب

هل جربت مثلاُ 2023   !!

[كريمو2]

منذ ساعه, Foksh said:

هل جربت مثلاُ 2023   !!

نعم جربت وظهرت النتيجة تمام استاذ

[Foksh]

20 دقائق مضت, كريمو2 said:

نعم جربت وظهرت النتيجة تمام استاذ

من اي ملف هذه النتيجة يا صديقي !!!!!!!!!!!!!!!!!!!!

للتدقيق 

[كريمو2]

1 ساعه مضت, Foksh said:

من اي ملف هذه النتيجة ياصديقي

من جدول Tbl_loans

[Foksh]

14 دقائق مضت, كريمو2 said:

من جدول Tbl_loans

اخي الكريم ، اقصد هل وجدت الحل من هذه المشاركة :-

5 ساعات مضت, Eng.Qassim said:

اسف...لقد أخطأت

لم انتبه لعام 2024

 

20250101.rar 171.24 kB · 6 downloads

ههههههههههههه هي الاكسس معظمه حيل 

فلم انتبه لعام 2024

 

أم من هذه المشاركة :-

5 ساعات مضت, Foksh said:

طيب ، جرب هذه الحيلة  .

't9
Me.t9 = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0) - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0)
If Me.t9 = 0 Then
    Me.Lblt9 = 0
Else
 MySQL = ""
 MySQL = "Select DISTINCT(Employeeid) From tbl_Loans"
 MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & "And [Loan_ID] > 0 And ([Loan_Made]-[Payment_Made])=0"   ' - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & "And [Loan_Type] <> 'Inkhirat'"), 0)
 Set rst = CurrentDb.OpenRecordset(MySQL)
 Me.Lblt9 = rst.RecordCount
End If

'T9E
Me.t9e = Nz(DSum("Nz([Loan_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) - Nz(DSum("Nz([Payment_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0)
If Me.t9e = 0 Then
    Me.Lblt9e = 0
Else
    MySQL = ""
    MySQL = "SELECT DISTINCT(Employeeid) FROM tbl_Loans WHERE Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"
    Set rst = CurrentDb.OpenRecordset(MySQL)
    Me.Lblt9e = rst.RecordCount
End If

 

وارسل لي الملف الذي يعمل معك لأرى الفكرة وأتعلم طريقة الحل 

[كريمو2]

36 دقائق مضت, Foksh said:

وارسل لي الملف الذي يعمل معك لأرى الفكرة وأتعلم طريقة الحل 

نعم وجدت الحل من مشاركة الاستاذ Eng.Qassim

تفضل استاذي العزيز

20260101.rar

 

تم تعديل الأربعاء at 18:38 بواسطه كريمو2

[Foksh]

58 دقائق مضت, كريمو2 said:

نعم وجدت الحل من مشاركة الاستاذ Eng.Qassim

تفضل استاذي العزيز

20260101.rar 178.43 kB · 0 downloads

 

كل الإحترام والتقدير للأستاذ @Eng.Qassim ، ولا أشك في قدرته على ما تفضل به .. لكن اخي الكريم يبدو انك لم تمعن في المشاركات ولمن كان الحل ، في ملفك المرفق الحل الذي اقترحته عليك في مشاركتي هذه :-

6 ساعات مضت, Foksh said:

طيب ، جرب هذه الحيلة  .

't9
Me.t9 = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0) - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0  "), 0)
If Me.t9 = 0 Then
    Me.Lblt9 = 0
Else
 MySQL = ""
 MySQL = "Select DISTINCT(Employeeid) From tbl_Loans"
 MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & "And [Loan_ID] > 0 And ([Loan_Made]-[Payment_Made])=0"   ' - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & "And [Loan_Type] <> 'Inkhirat'"), 0)
 Set rst = CurrentDb.OpenRecordset(MySQL)
 Me.Lblt9 = rst.RecordCount
End If

'T9E
Me.t9e = Nz(DSum("Nz([Loan_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) - Nz(DSum("Nz([Payment_Made], 0)", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0)
If Me.t9e = 0 Then
    Me.Lblt9e = 0
Else
    MySQL = ""
    MySQL = "SELECT DISTINCT(Employeeid) FROM tbl_Loans WHERE Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"
    Set rst = CurrentDb.OpenRecordset(MySQL)
    Me.Lblt9e = rst.RecordCount
End If

 

فكيف نسبت الحل باختيارك لأستاذنا الكريم المهندس قاسم !!!!!!!!

تم تعديل الأربعاء at 19:35 بواسطه Foksh

[كريمو2]

37 دقائق مضت, Foksh said:

فكيف نسبت الحل باختيارك لأستاذنا الكريم المهندس قاسم !!!!!!!!

فعلا استاذ تعديلك صحيح 100% وكان الرد منذ 6 ساعات تقريبا

ولكن استاذي العزيز أعذرني والله ما انتبهت للحل من كثرة تهاطل الردود مساء اليوم 

كنت افتكر انني راسلتك على خطأ بأحد الاكواد 

اسف 1000 مرة استاذي العزيز ربنا مايحرمنا من تواجدك معنا ومساعدة اخوانك المبتديين جعلك الله ذخرا

لهذا المنتدى الغالي ومنيرا له 

بوركت 

تقبل تحياتي القلبية الخالصة 

 

[Eng.Qassim]

بصراحة انا لم انتبه لاجابتك استاذنا العزيز @Foksh الا بعدما اكملت الملف وارفقته بالمشاركة

كل الاعتذار منك استاذنا ..ولو اني اعرف بأنك جاوبت لما اكملت الملف

[Foksh]

3 ساعات مضت, Eng.Qassim said:

بصراحة انا لم انتبه لاجابتك استاذنا العزيز @Foksh الا بعدما اكملت الملف وارفقته بالمشاركة

كل الاعتذار منك استاذنا ..ولو اني اعرف بأنك جاوبت لما اكملت الملف

بالعكس استاذنا الفاضل @Eng.Qassim ، يسعدني تعدد الإجابات وطرح الأفكار المتنوعة 😇 .

لا تشغل بالك ، انتهى الأمر بأجابتك وإجابتي كأنهما واحد 🤗 .

[كريمو2]

في 1‏/1‏/2025 at 10:01, Foksh said:

Debug.Print MySQL

اهلا استاذ كيف لي ان اتفحص النتيجة بالتدقيق من الجدول لكي ارى أين الخلل لانها أرتني  المبلغ بدون تفصيل

[Foksh]

اخي الكريم العائد لك هنا هو نتيجة MySQL ( الإستعلام )

على سبيل المثال من باب التوضيح لهذا السطر :-

Dim i As Integer
For i = 1 To 5
    Debug.Print "Current value of i: " & i
Next i

فأن النتيجة للحلقة التكرارية هذه ستكون في Ctrl+G = 

Current value of i: 1
Current value of i: 2
Current value of i: 3
Current value of i: 4
Current value of i: 5

 

المقصود هو انه يمكنك استدعاءها حيثما تريد لرؤية نتيجة ما تريد وللتحقق من النتيجة التي عاد لك بها .. لا أعلم إن كان شرحي لها هو ما تقصده  .

[كريمو2]

1 ساعه مضت, Foksh said:

لا أعلم إن كان شرحي لها هو ما تقصده  .

يمكن ولكن كنت فاكر أنه يجلب لك كل المجاميع التي خصصتها في الكود او القيم ذات النتيجة المحصلة مثلا باقي في عملية ما قيمة 65000.00 يعني يوصلك هذا المبلغ كيف استنتج ومن اين استخرج اليس كذلك .

[Foksh]

3 دقائق مضت, كريمو2 said:

يمكن ولكن كنت فاكر أنه يجلب لك كل المجاميع التي خصصتها في الكود او القيم ذات النتيجة المحصلة مثلا باقي في عملية ما قيمة 65000.00 يعني يوصلك هذا المبلغ كيف استنتج ومن اين استخرج اليس كذلك .

بسيطة اخي الكريم ، بوضحها لك اول ما اوصل الكمبيوتر ، لإني اليوم انشغلت شوي 😇

[كريمو2]

22 دقائق مضت, Foksh said:

بسيطة اخي الكريم ، بوضحها لك اول ما اوصل الكمبيوتر ، لإني اليوم انشغلت شوي 😇

ان شاء الله

هذا مثال بسيط للتعلم

ارني كيف استنتج هذا المبلغ 650000 من الجدول  tbl_Loans بالتفصيل  للعلم انا اعرف ماذا يمثل هذا المبلغ ولكن اردت طريقة الحساب التي يوضحها Debug.Print 

وشكرا 

 

20252025.rar

تم تعديل الخميس at 12:05 بواسطه كريمو2