كيف اجعل قيمة اخلية هي نفس قيمة الخلية في العمود السابق

[nazarhsn]

السلام عليكم ورحمة الله 

اساتذتي عندي جدول في كميات الوقود عملت جدول فية المخزن ناقص المصروف زائد الوارد والمتبقي , كيف لي ان تكون الخلية القادمة هي نتيجة المتبقي السابقة حتى تعمل المعادلة 

مع اطيب الامنيات وشكرا 

[ابوخليل]

عليكم السلام ورحمة الله

لم افهم معنى كميات الوقود

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

المتبقي مكانه الاستعلام وليس الجدول

فمثلا يمكنك الاستعلام عن فترة  محددة بين تاريخين او من بداية السنة او غير ذلك

المهم ان النتائج تظهر في الاستعلام الذي هو  مصدر بيانات التقرير

بمعنى اوضح : الجداول اوجدت لإدخال البيانات فقط  ... ولا يدرج فيها اي عمليات حسابية

[nazarhsn]

السلام عليكم 

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

55.accdb

[ابوخليل]

لديك اخطاء في تسمية الحقول منها :

1- استخدام كلمة Date وهذه الكلمة محجوزة ضمن دوال اكسس ومن الخطأ تسمية الحقل بها

2- ترك مسافات فارغة بين الكلمات في التسمية

لا يستحسن استخدام نوع الحقل محسوب في الجدول لحقول يتم عليها عمليات مستقبلا .. وانما نستخدمها في اضيق الحدود

......................

تم تحقيق طلبك بعمل دالة تأخذ قيمة الحقل المحسوب من آخر سجل في الجدول

ثم جعلنا هذه الدالة قيمة افتراضية لحقل Stock_Ltrs

ايضا تم تغيير عرض النموذج الى مفرد من اجل الضبط

551.rar

[nazarhsn]

السلام عليكم 

لك اجمل التحيات 

لم افهم كيف لان ليست فقط هذا الجدول اذ ترا كما في الصوره المحطات والكميات اليومية 

اردت اعمل كل محطة جدول ثم استعلام يجمع هذه الجداول 

[nazarhsn]

السلام عليكم لم تعمل معي 

علما لن تكون مجانية 

تم تعديل منذ 19 ساعات بواسطه nazarhsn

[ابوخليل]

4 ساعات مضت, nazarhsn said:

السلام عليكم لم تعمل معي 

علما لن تكون مجانية 

يا لطيف !!

الرد بعد أربعة أشهر !! لا اعلم الرد التالي سيكون متى؟

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

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

[kkhalifa1960]

في 29‏/8‏/2024 at 14:27, nazarhsn said:

كيف لي ان انقل قيمة الحقل السابق الى الاول

Sub CopyPreviousFieldValue()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim PreviousValue As Variant

    Set db = CurrentDb
    Set rs = db.OpenRecordset("اسم_الجدول", dbOpenDynaset)

    With rs
        If Not .EOF Then
            .MoveFirst
            PreviousValue = !اسم_الحقل
            .MoveNext
            Do While Not .EOF
                .Edit
                !اسم_الحقل = PreviousValue
                .Update
                PreviousValue = !اسم_الحقل
                .MoveNext
            Loop
        End If
        .Close
    End With

    Set rs = Nothing
    Set db = Nothing
End Sub