اذهب الي المحتوي
أوفيسنا

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


النجاشي

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

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

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

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

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

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

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

 

  • Like 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