اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Foksh,

الردود الموصى بها

السلام عليكم

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

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

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

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

الرصيد.rar

رابط هذا التعليق
شارك

صديقي الدكتور @الحلبي ، أعلم جيداً انك قد توجهت للدالة 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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة
14 دقائق مضت, الحلبي said:

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

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

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

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

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

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

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

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

بسيطة دي يا دكتور .. احنا نحجز متغير من نوع 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)

 

تم تعديل بواسطه Foksh
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information