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

[haniameen]

السلام عليكم

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

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

الفرق بين تاريخين.rarFetching info...

[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]

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

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

 

الفرق بين تاريخين.mdbFetching info...

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

[ابو جودي]

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

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

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

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

الفرق بين تاريخين.mdbFetching info...

[haniameen]

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

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

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

[kha9009lid]

  في 13‏/9‏/2019 at 20:06, haniameen said:

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

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

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

Expand  

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

[Barna]

  في 13‏/9‏/2019 at 20:06, haniameen said:

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

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

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

Expand  

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

[ابو جودي]

  في 13‏/9‏/2019 at 20:06, haniameen said:

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

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

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

Expand  

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

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

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

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

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

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

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

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

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