كيفية اظهار اخر قيمة من حقل في نموذج فرعي في حقل اخر

[ruan]

السلام عليكم ...

لدي برنامج صادر وارد .. اريد اظهار اخر قيمة في حقل رقم الوارد تظهر في حقل اخر مع العلم حقل رقم الوارد في نموذج فرعي استعملت الدالتين DMax / DLast  لكن كانت النتيجه هي اظهار القيمه قبل الاخيره وليست اخر قيمه .

=DLast("[رقم الوارد]";"[وارد]")

 

 =DMax("[رقم الوارد]";"[وارد]") 

 

 وهنا ( وارد ) هو اسم الجدول ... طبعا الحقل المراد اظهار اخر قيمه فيه يكون في النموذج الرئيسي .. افيدوني يرحمكم الله .

 

 

[عسل قليل الدسم]

Me!الحقل_الرئيسي = DMax("[رقم الوارد]", "[وارد]")

في حدث After Update
 

يفضل وجود مرفق من القاعدة بسيط لفهم المشكلة

[kkhalifa1960]

لابد ن توافر الشرط لضمان القيمة الصح   . الشرط  ......  تاريخ المعاملة مثلاً .

[Foksh]

منذ ساعه, kkhalifa1960 said:

لابد ن توافر الشرط لضمان القيمة الصح   . الشرط  ......  تاريخ المعاملة مثلاً .

ليس بالضرورة إن كان الهدف الحصول على قيمة حقل محدد في آخر سجل ( شرط وجود حقل ترقيم مثلاً ) . ولكن إن كان ضمن شرط فعبارتك صحيحة 100% 

وهنا ممكن يستخدم حقل الترقيم كأساس على آخر قيمة .

 

وممكن استعمال دالة بسيطة مثل :-

Function GetLastValue(strField As String, strTable As String) As Variant
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset(strTable, dbOpenTable)
    rs.MoveLast
    GetLastValue = rs.Fields(strField).Value
    rs.Close
End Function

ويتم استدعائها في مربع نص غير منضم بتمرير اسم الجدول والحقل ، مثلاً :-

=GetLastValue("رقم الوارد";"وارد")