كيف يمكن حساب الفرق بين تاريخين للكل وليس كل واحد على حدا

[haniameen]

السلام عليكم

لدي نموذج يقوم بحساب الفرق بين تاريخين لموظف واحد بالضغط على زر  احسب ( عملية مجهدة )

لكن أريد أن يحسب النموذج الفرق لكل الموظفين دفعة واحدة وليس لكل موظف على حدا  نظرا  لكبر عدد الموظفين 

الفرق بين تاريخين.rar

[Barna]

استخدم هذا الكود .....

Dim c, i
c = DCount("[المعرف]", "daraga")
DoCmd.GoToRecord , , acFirst
For i = 1 To c

If IsNull(Me.Date1) Or IsNull(Me.date2) Then Exit Sub
Me.age = CalcAge(Me.Date1, Me.date2)
Me.tdate = CalcAged(Me.Date1, Me.date2)
Me.tmonth = CalcAgem(Me.Date1, Me.date2)
Me.tyear = CalcAgey(Me.Date1, Me.date2)

DoCmd.GoToRecord , , acNext
Next i
MsgBox "تم الحساب", vbInformation + vbMsgBoxRight, "حساب"

 

[Barna]

وهذه طريقة أخرى ....... اختر ما تريد في عملك .... أنا افضل الطريقة الثانية لأنها أسرع ....

علما أني غيرت بعض مسميات الحقول لأنها عربية نجد صعوبة في كتابة الأكود .... وهذا ما يحزننا ( لحبنا للعربية )

 

الفرق بين تاريخين.mdb

تم تعديل أغسطس 30, 2019 بواسطه Barna

[ابو جودي]

طبعا استاذى الجليل واخى الجبيب والعزيز على قلبى الاستاذ @Barna  جزاه الله خيـــر كفى ووفى وإثراء للموضوع اضف هذا المرفق

- اختزال كامل وشامل لكود حساب العمر  

- الحساب مباشرة داخل النموذج بمجرد وضع التاريخين

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

الفرق بين تاريخين.mdb

[haniameen]

ربنا يبارك فيكم جميعا على اهتمامكم 

وانا اعتذر على التأخير في الرد وشكركم على الاهتمام بموضوعي نظرا لحدوث حالة وفاة لدي 

واكرر اعتذاري مره اخرى في التاخير في الرد عليكم 

[kha9009lid]

في ١٣‏/٩‏/٢٠١٩ at 23:06, haniameen said:

ربنا يبارك فيكم جميعا على اهتمامكم 

وانا اعتذر على التأخير في الرد وشكركم على الاهتمام بموضوعي نظرا لحدوث حالة وفاة لدي 

واكرر اعتذاري مره اخرى في التاخير في الرد عليكم 

عظَّم الله أجرك، وأحسن الله عزاءك، وغفر الله لميتك انا لله وانا اليه راجعون

[Barna]

في ١٣‏/٩‏/٢٠١٩ at 23:06, haniameen said:

ربنا يبارك فيكم جميعا على اهتمامكم 

وانا اعتذر على التأخير في الرد وشكركم على الاهتمام بموضوعي نظرا لحدوث حالة وفاة لدي 

واكرر اعتذاري مره اخرى في التاخير في الرد عليكم 

انا لله وانا اليه راجعون ... عظم الله اجركم وغفر لميتكم والهمكم الصبر والسلوان

[ابو جودي]

في ١٣‏/٩‏/٢٠١٩ at 22:06, haniameen said:

ربنا يبارك فيكم جميعا على اهتمامكم 

وانا اعتذر على التأخير في الرد وشكركم على الاهتمام بموضوعي نظرا لحدوث حالة وفاة لدي 

واكرر اعتذاري مره اخرى في التاخير في الرد عليكم 

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

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

لله ما أعطى ولله ما أخذ وكل شيء عنده بأجر

اللَّهُمَّ اغْفِرْ لَهُ وارْحَمْهُ وعافِهِ واعفُ عنْهُ وأكرمْ نُزُله ، ووسِّع مُدْخلَهُ ، واغسلهُ بالمَاءِ والثَّلْجِ والبَرَدِ ، ونَقِّهِ من الخطَايا كَمَا نَقَّيْتَ الثَّوبَ الأَبيضَ من الدَّنَسِ ، وأَدْخِلْهُ الجَنَّةَ وأعِذْه من عَذَاب القَبْرِ (ومِنْ عَذَاب النَّارِ )

يا ايتها النفس المطمئنة ارجعي الى ربك راضية مرضية فأدخلي في عـبادي وادخلي جنتي

وبشر الصابرين الذين اذا اصابتهم مصيبة قالوا انا لله وانا اليه راجعـون

لأحول ولا قوة إلا بالله العالي العظيم

عظَّم الله أجرك، وأحسن الله عزاءك، وغفر الله لوالدك

 انا لله وانا اليه راجعون