طلب مساعدة فى الوقوف على خطأ دالة

[عمر ضاحى]

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

 

رمضان كريم ^_^
 

ويتقبل الله منا ومنكم صالح الاعمال 

انا معي دالة لكن مش عارف اوصل للصيغه الصحيحه لحلها 

الهدف من الداله هو الوصول لاعلى قيمه (رقم) فى جدول تحت معيارين 

الاول مطابقة رقم الموظف 

الثاني ان يكون داخل السنه الحالية 

اولا الداله بهذه الصيغه تعمل جيدا 

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate]<=#31/12/2022#);0)+1

لكن لما حبيت اجعل المعيار الثاني يكون تلقائى 

فكرت باستخدام دالة Between و ايضا DateSerial

Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0)

حتى احصل على تاريخ بين اول السنه واخر السنه الحاليه 

 

الان 

اريد ان ادمج بين الدالتين 

فكرت ان اجعلها هكذا 

 

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate]<= Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1

لكنها لا تعمل ويظهر لى خطأ فى تركيب الداله 

[عمر ضاحى]

^_^

محدش عنده فكره 

[Moosak]

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1

جرب الآن أخي عمر 🙂 

[عمر ضاحى]

39 دقائق مضت, Moosak said:

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1

جرب الآن أخي عمر 🙂 

اولا باشكر حضرتك على تعبك 

بارك الله فيك

لكن للاسف الحل لم ينجح 

بيعطينى خطأ

 

m7alfa.accdb

[أبوبسمله]

السلام عليكم

مشاركه مع اخوتى واساتذتى

جرب التالى

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1

 

[أبوبسمله]

2 ساعات مضت, عمر ضاحى said:

اولا باشكر حضرتك على تعبك 

بارك الله فيك

لكن للاسف الحل لم ينجح 

بيعطينى خطأ

m7alfa.accdb 1.44 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

هل هذا المثال الصحيح للعمل عليه ؟

لان اسماء النماذج والحقول الموجوده بالدوال غير موجوده بالمثال 😇

[أبوبسمله]

اتفضل هذه التعديل اخى @عمر ضاحى ان شاء الله يكون ما تريد

فى حدث بعد التحديث لرقم الموظف

Me.NoM7alfa1 = Nz(DMax("[NoM7alfa]", "tblM7alfa", "[EmpNoM7alfa]=" & Forms!frmM7alfaReg![EmpNoM7alfa] & " And Format([M7alfaDate], 'yyyy') = Format(Date(), 'yyyy')"), 0) + 1

بالتوفيق

m7alfa.accdb

[عمر ضاحى]

2 ساعات مضت, احمد الفلاحجي said:

اتفضل هذه التعديل اخى @عمر ضاحى ان شاء الله يكون ما تريد

فى حدث بعد التحديث لرقم الموظف

Me.NoM7alfa1 = Nz(DMax("[NoM7alfa]", "tblM7alfa", "[EmpNoM7alfa]=" & Forms!frmM7alfaReg![EmpNoM7alfa] & " And Format([M7alfaDate], 'yyyy') = Format(Date(), 'yyyy')"), 0) + 1

بالتوفيق

m7alfa.accdb 600 kB · 2 downloads

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

بارك الله فيك

[أبوبسمله]

1 ساعه مضت, عمر ضاحى said:

بارك الله فيك

وفيك بارك الله اخى عمر

بالتوفيق