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

[Foksh]

اخي الكريم انت فهمتني غلط ..

العائد من الأمر هو ما تطلبه منه بأن يتم إحضار نتيجته  .. وليس كما فهمت ، يعني من الممكن ان المبلغ العائد = 650000 ولكنه لا يتم اظهاره مثلاً في مربع نص ، أو هو جزء من عملية حسابية تريد نتيجتها .... الخ

[Foksh]

اخي الكريم ، حتى تتضح لك الصورة أكثر ، ولا نخوض في موضوع ثاني ونخالف قواعد المنتدى ..

نستطيع تقسيم العملية إلى أجزاء وطباعة كل جزء بشكل منفصل لفهم كيفية حساب القيمة النهائية ، على سبيل المثال :-

• حساب مجموع القروض (Loan_Made) للسنة السابقة :-

Dim LoanMadePreviousYear As Double
LoanMadePreviousYear = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0 And [Nr] >= 6"), 0)
Debug.Print "LoanMadePreviousYear: " & LoanMadePreviousYear

• حساب مجموع المدفوعات (Payment_Made) للسنة الحالية :-

Dim PaymentMadeCurrentYear As Double
PaymentMadeCurrentYear = Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0 And [Nr] > 5"), 0)
Debug.Print "PaymentMadeCurrentYear: " & PaymentMadeCurrentYear

• حساب القيمة المتبقية (Remaining) :-

Me.Remaining = LoanMadePreviousYear - PaymentMadeCurrentYear
Debug.Print "Remaining: " & Me.Remaining

ستظهر لك النتيجة بهذا الشكل ..

LoanMadePreviousYear: 65000
PaymentMadeCurrentYear: 0
LoanMadePreviousYear: 65000
Remaining: 65000

 

أرجو أن تكون الصورة قد توضحت لك ,, وأكتفي بهذا القدر حتى لا نتعدى الصلاحيات  .

[كريمو2]

اوك فهمت الان  استاذ كانت فكرتي سابقا خاطئة