الرصيد السابق لتاريخ معين

[الحلبي]

السلام عليكم

مرفق مثال اريد فيه عندما ادخل التاريخ فى حقل التاريخ 

يظهر الرصيد السابق مباشرا فى حقل الرصيد 

بمعنى : اذا دخلت فى حقل التاريخ 02/05/2024 يظهر الرصيد السابق فى حقل التاريخ وهو 17

جزاكم الله خير

الرصيد.rar

[Foksh]

صديقي الدكتور @الحلبي ، أعلم جيداً انك قد توجهت للدالة Dlookup وأنك لم تحصل ما تطلبه والسبب هو باعتقادي أنه بالتاريخ المطلوب الذي حددته سيقرأ اكسيس التاريخ على انه تنسيق dd/mm/yyyy ولكنه في الواقع بهذا التنسيق mm/dd/yyyy ، لذا تفضل بتجربة هذا السطر في حدث بعد التحديث لمربع نص التاريخ Text15 :-

Me.Text17.Value = Nz(DLookup("rased", "T1", "mastedate = #" & Format(Me.Text15.Value, "mm/dd/yyyy") & "#"), 0)

 

الرصيد.accdb

 

جرب وأخبرني بالنتيجة 

[الحلبي]

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

جرب وأخبرني بالنتيجة

اهلا باستاذى الغالى

فى الحقيقة لقد قمت بعمل ماقمت حضرتك بعمله وكتبت هذا الكود بالصبط

انا اريد ان يظهر الرصيد الذى قبله 

بمعنى  اذا دخلت التاريخ 2024/05/02 فيظهر الرصيد الذى يسبقه وهو 17

          اذا دخلت التاريخ 2024/05/01 فيظهر الرصيد الذى يسبقه وهو  5

         اذا دخلت التاريخ 2024/04/30 فيظهر الرصيد الذى يسبقه وهو   8

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

[Foksh]

14 دقائق مضت, الحلبي said:

اهلا باستاذى الغالى

فى الحقيقة لقد قمت بعمل ماقمت حضرتك بعمله وكتبت هذا الكود بالصبط

انا اريد ان يظهر الرصيد الذى قبله 

بمعنى  اذا دخلت التاريخ 2024/05/02 فيظهر الرصيد الذى يسبقه وهو 17

          اذا دخلت التاريخ 2024/05/01 فيظهر الرصيد الذى يسبقه وهو  5

         اذا دخلت التاريخ 2024/04/30 فيظهر الرصيد الذى يسبقه وهو   8

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

اختلط علي الأمر هههههههه 

بسيطة دي يا دكتور .. احنا نحجز متغير من نوع Date وليكن اسمه التاريخ السابق ( PreviousDate ) ، ونحدد قيمته بناقص يوم للتاريخ الذي في مربع النص Text15 ، ثم نحدد قيمة مربع النص Text17 بتغيير بسيط ، ليصبح الكود كالآتي :-

Dim PreviousDate As Date
PreviousDate = DateAdd("d", -1, Me.Text15.Value)
Me.Text17.Value = Nz(DLookup("rased", "T1", "mastedate = #" & Format(PreviousDate, "mm/dd/yyyy") & "#"), 0)

 

تم تعديل مايو 2, 2024 بواسطه Foksh

[الحلبي]

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

اختلط علي الأمر هههههههه

الله ينور عليك ويفتح لك ابواب الرزق ويرحم والديك فى الدنيا والاخرة

نعم هذا هو المطلوب

يعجز لسانى عن شكرك وتقدير لكم وجزاكم كل خير