(تمت الاجابة) حساب العمر في التقرير

[بركان]

السلام عليكم

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

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

انا اضفت مربع النص و حطيت فيه هذا الكود

Int((Now()-[dob])/365.25)

علشان يحسب العمر و dob هو تاريخ الميلاد الموجود في الجدول

لكن يطلع error و ما يحسب اي شي

ما دري شو الحل

جزاكم الله الخير و تقبل صيامكم ساعدوني او دلوني على الطريقة الصحيحة .

[iemad]

هذا الكود يعطيك المطلوب أن شاء الله .

فقط خطأ واحد في الكود كانت كلمة now المفروض أن تضع كلمة date التاريخ لأن كلمة Now تعطيك التاريخ والوقت .

Private Sub Command1_Click()
MsgBox Age("27/09/1978")
End Sub

Public Function Age(DoB As Date)
   Age = Int((Date - DoB) / 365.25)
End Function

تم تعديل أكتوبر 5, 2007 بواسطه iemad

[بركان]

مشكور اخوي iemad على ردك

بس نفس المشكلة يطلع error

و على فكرة انا اريد العمر يطلع في عمود في التقرير

مش على فورم لان على الفورم يشتغل بس على التقرير ما يطلع

و مشكور مرة ثانية و جزاك الله الف خير

و اتمنى من الي يعرف انه يعلمنا و ان شاء الله في ميزان حسناته

[بركان]

ياليت اخواني الاعضاء او اساتذتنا المشرفين جزاهم الله خير

يفيدوني في هذا الموضوع

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

الطريقة الي تكلم عنها اخوي iemad

تنجح على الفورم

بس ما نجحت في التقرير

ساعدوني جزاكم الله الف خير

[rdaas]

السلام عليكم

بالنسبة لاظهار العمر في كل من النماذج والتقارير على حد سواء فقط اعمل التالي:

في التقرير او في النموذج، وفي مكان العمود المخصص للعمر، ضع مربع نص، واجعل تحكم المصدر Control Source بالشكل التالي:

 =Int((Date()-XYZ)/365.25)

حيث ان XYZ هي الحقل المخزن به تاريخ الميلاد لديك لا تنسى الاقواس بعد كلمة DATE اي ان شكلها الصحيح هو

DATE()

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

ارجوا ان يكون الحل المقدم صحيحا، واذا كان لدى الاخوة حل اخر، فليفيدونا به

تقبل اجمل الاماني

db1.rar

تم تعديل أكتوبر 5, 2007 بواسطه rdaas

[بركان]

جزاك الله الف خير اخوي rdaas

عملت نفس الكلام الي قلته

بدون فايدة يطلع error في كل خانات العمود

شو الحل ياخوان ساعدوني الله يساعدكم

[rdaas]

الاخ الكريم،،،

يرجى ارفاق الملف الذي تعمل عليه، لان الكود يعمل بشكل سليم، قد تكون المشكلة في اعدادات اخرى

فقط ارفق الملف، وستحل المشكلة باذن الله

[بركان]

اخواني جزاكم الله خيرر على جهودكم

و الحمدلله لقيت الحل

استخدمت اللدالة cdate

فصار الكود كالتالي و اشتغل بدون error

 Int((Date - Cdate(DoB)) / 365.25

هذا الحل و اتمنى ان الكل يستفيد منه و لاينسانا من الدعاء