اظهار اخر تاريخ لفاتوره البيع او الشراء من جدول الفواتير بنموذج حركات الاصناف

[النجاشي]

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

اريد ظهور تاريخ اخر عمليه بيع بالحقل المخصص له بنموذج حركات الاصناف عن طريق داله او كود  يستخرج التاريخ  من جدولAfwtIar

وكذالك الشراء 

تحياتي اليكم احبتي

تاريخ اخر حركه.rar

تم تعديل يناير 13, 2018 بواسطه ابو زاهر

[ابوخليل]

=DMax("Atarih";"AfwtIar";"Nwaha=11")
=DMax("Atarih";"AfwtIar";"Nwaha=13")

 

تاريخ اخر حركه2.rar

[النجاشي]

15 دقائق مضت, ابوخليل said:

=DMax("Atarih";"AfwtIar";"Nwaha=11")
=DMax("Atarih";"AfwtIar";"Nwaha=13")

 

تاريخ اخر حركه2.rar

باعتذر منك بشده استاذي القدير @ابوخليل لم اقدم الشرح الوافي 

انا الذي يدور بخاطري انه بعد ادخال رقم الصنف يكون بعد التحديث يعطينا اخر تاريخ للصنف  يستخرجه من جدول HRR واذا لم يكن للصنف حركه لا يظهر تاريخ

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

 المعذره استاذي كان جهازي يحدث الويندوز ما قدرت اعدل المشاركه

تحياتي اليك استاذي القدير ابو خليل

 

[ابوخليل]

تفضل

تاريخ اخر حركه3.rar

[النجاشي]

5 دقائق مضت, ابوخليل said:

تفضل

تاريخ اخر حركه3.rar

بارك الله فيك اطال الله يعطيك العافيه نعم هذا مطلوبي الف شكر اليك استاذنا ابوخليل

[ابو ياسين المشولي]

43 دقائق مضت, ابوخليل said:

تفضل

تاريخ اخر حركه3.rar

استاذي ابو خليل

ممكن تشرح الكود للفائده بارك الله فيك

Dim i As Boolean
On Error Resume Next
i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'")
If i = False Then
Exit Sub
Else
hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0)
hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0)
End If

من فين اخذت كلمه Tarkam

[ابوخليل]

Dim i As Boolean '   اعلنا عنها كقيمة منطقية i
On Error Resume Next 'لتجاهل الخطأ عند عدم وجود القيمة
'  البحث عن الرقم المعرف في الجدول  بشرط رقم الصنف في الجدول يساوي رقم الصنف الذي كتبناه في النموذج 
i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'")
If i = False Then 'اذا غير موجود
Exit Sub ' أخرج من الحدث
Else 'وإلا 
hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0)'الحقل= تاريخ آخر بيع
hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0)'الحقل= تاريخ آخر شراء
End If