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

[اشرف]

بسم الله الرحمن الرحيم

اخواني الاعزاء كيف احول هذا الجدول وهو من الاكسيل الي الاكسيس؟

لاستخدامة في حساب السن في تاريخ معين . وشكرا

_______________________.rar

[منذر عساج]

أخي الكريم

شاهد الرابط التالي

http://www.officena.net/ib/index.php?showtopic=13380

[يوسف أحمد]

اخي / منذر عساج

شكراً لك على هذا الرابط القيّم والشكر موصول ايضاً للاخ التقني على هذا المجهود الرائع.

فجزاكما الله خيراً

[اشرف]

اخي الكريم لم استطع فعل ما وجدته في الرابط السابق كل الخانات تحول ولكن اذا اضفت اي تواريخ جديدة لا يتم حساب السن فيها اي ان العملية الحسابية غير مفعله في الاكسيس ماذا افعل ؟ المرفق عندك اذا استطعت انجازه فلك الشكر وجزاك الله خيرا

[منذر عساج]

أخي الكريم

على الرابط التالي مثال طبق الأصل لما تريد :

http://www.officena.net/ib/index.php?showtopic=16052

[اشرف]

اخي الكريم / منذر عساج

اشكرك علي اهتمامك الشكر الكبير

واشكرك علي الرابط فالمثال كما اريد فعلا ولكنه لا يعمل ؟ الاسمين الموجودين بالجدول والنموذج مكتوب السن ومحسوب وعند اضافة اي اسم جديد او تاريخ جديد يكتب ولكن لا يظهر حساب السن .

ارجو الافادة . كما ارجو ان تتكرم وتحل لي المشكلة علي الجدول المرفق عاليه وارجو ان تعرفني ماذا فعلت كي اتعلم ولك وافر الاحترام والشكر علي كل حال

[اشرف]

اين ردك ايها المشرف الكريم

انا مش لاقي حل

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

[منذر عساج]

أخي الكريم

المثال على الرابط يحوي نفس الحقول التي تريدها ( الرقم -الأسم- تاريخ الميلاد-التاريخ الحالي -يوم-شهر-سنة)

قم باستيراد الجدول والنموذج والوحدة النمطية الى برنامجك

وسوف يعمل بشكل جيد .

[اشرف]

بسم الله الرحمن الرحيم

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

فعلا ما اريده موجود وانا المخطئ في تطبيقه .

وفي ردك الاخير تتبعت الخطوات ونجح الامر اشكرك مرة ثانية .واعرفك يا اخي الكريم انني مبتدئ احاول ان افهم اشكرك علي سعة صدرك وارجو منك طلب اخر وهو كيف انشئ ه مثل هذة القيم في الفاجوال او بمعني اخر كيف انشأ الزميل الكريم صاحب المثال هذا العمل؟؟؟ هذا لاتعلم ربما تكون هذه بداية لاتعلم كيف انشئ بنفسي اعمال اخري .

وتفضلوا بقبول فائق الاحترام

[منذر عساج]

أخي الكريم

إذا قمت بتتبع الكود في

Function CalcAge

Function CalcAge2

Function CalcAge3

ستجد ما يلي :

1- خاص بالتصريح بالمتغيرات (تعريف متغيرات)

Dim vYears As Integer, vMonths As Integer, vDays As Integer

2- يحسب عدد الأشهر بين تاريخين

 vMonths = DateDiff("m", vdate2, vDate1)

3- يحسب عدد الأيام بين تاريخين

 vDays = DateDiff("d", DateAdd("m", vMonths, vdate2), vDate1)

وهكذا .... ثم نقوم بإستدعاء هذه الإجراءات عن طريق حدث بعد التحديث للحقل (التاريخ الحالي):

If IsNull(Me.P) Or IsNull(Me.dm) Then Exit Sub
Me.w = "(" & CalcAge(Me.P, Me.dm) & ")"
Me.e = "(" & CalcAge2(Me.P, Me.dm) & ")"
Me.r = "(" & CalcAge3(Me.P, Me.dm) & ")"

والله الموفق ,,,

[اشرف]

اشكرك يا اخي الكريم واتنمي انيديم الله عليك الصحة والعافية وتظل دائما عونا للمحتاج