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

للمتابعه

الحمد لله

للمتابعه.........

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

لقد جربته ولكن ظهر لي خطأ في التاريخ إليك مثال التجربة

تاريخ الميلاد : 15/3/1398

تاريخ اليوم : 15/3/1428

الناتج كالتالي : عدد السنين = 30 عدد الأشهر = 0 عدد الأيام =11

الصحيح هو : عدد السنين = 30 عدد الأشهر = 0 عدد الأيام =0

وربما يكون الفارق أكبر لو جربت تاريخ أخر ولكنني أكتفيت بهذا المثال .

أعتقد أن السبب هو استخدامك لنوع حقل تاري الميلاد كــ ( تاريخ/وقت ) ومن المعروف أن هذا النوع يعتمد في عدد أيامه على أيام الأشهر الميلادية على سبيل المثال لديك شهر 2 من كل سنة تكون أيامه أما 29 أو 28 بينما هو لدينا في الهجري قد يكون 30 يوم بالأضافة إلى أشهر أخر .أو قد يكون الكود غير دقيق .

هناك برنامج خاص بحساب تاريخ الميلاد من إعداد الإخت المشرفة زهرة يمكنك اتباع نفس الطريقة ومن المعروف عن الأخت زهرة الإيضاح بحيث من يقرأ لها مشاركة لا يمكن يبقى لديه أي غموض يسأل عنه فالله قد حباها بميزة إيصال المعلومة للمتلقي أضافة إلى علمها الغزير.

أما بالنسبة لتحديث البيانات فالأمر سهلا جداً تحتاج إلى استدعاء الدالة في كود على نموذج ثم تستخدم المرور عبر السجلات بواسطة DoCmd.GoToRecord , , acNext وتضع أمر التحديث بعد هذا الأمر ليقوم بالتنقل بين السجلات والتحديث آلياً.

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

تسلم يالعزيز الغالي على مرورك المشرف لموضوعي بس المشكلة انني حصلت على هذا الكود من احد البرامج الموجوده بالمنتدي ولم اجد حل غيره لكن وجدت بالامس قاعدة بيانات لحساب التقاعد من اعداد الاخت زهره حفظها الله لكن تحتاج الى مفكر لكي يقوم باصلاح قاعدة البيانات الموجوده لدينا بالمركز حتى تعمل باكواد الاخت زهره..زانا اخي مصلح ما اعرفني بذلك انا فرحت بالكود لما وجدت وقمت بوضعه فب القاعده حيث ان تواريخ الميلاد لدينا طبعا حسب دفتر العائلة نقوم بتسجيلها بالتاريخ (((( الهجري فقط))) وهذا ممكن سبب مشاكل حساب السنين فاذا كانت لديك اخي مصلح يفظكم الله طريقة ممكن ان اقومك بها لكي استبدل الاكواد الموجوده لديه ويعطيني ولو بالتقريب الجيد العمر الحقيقي حيث يهمنا ذلك في التطعيمات .... فاذا كانت هناك طريقة او كود معين لأحد الأعضاء بالمنتدى فارجوا ان تنصحني به

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

اخوك ابو انس

للمتابعه

عزيزي:

حياك الله

بالنسبة لمشكلة زر تحديث العمر تم التغلب عليها.. بحيث يقوم عند الضعط عليه بتحديث جميع السجلات حسب الكود الموجود..ولكن

ارجو ان تشرح المطلوب الاخر بنقاط واضحة ...

صحيح اظن ان الشرح كافي في المرفق

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

لذا ارجو ان يتسع صدرك لوضع نقاط بتسلسل لما تريد

وحياك الله

اخوك همام

تسلم اخي همام واسعد الله مساءك ومساء جميع الاخوة في منتدانا العزيز .....

النقاط كما تريد اخي همام تتمحور على الأتي:

اولا : استعلام يقوم بتحديث جميع السجلات الموجوده في جدول الافراد مره واحده حيث يوجد لدينا الان قرابة 9500 شخص مسجلين وارغب تحديث اعمارهم حسب الكود المرفق بالاستعلام حيث لم يعمل معي الاستعلام كما اريد

ثانيا : اذا كانت طريقة الاستلام غير مجديه فارجوا اذا امكن اخي العزيز وضع الكود تحت زي .. بحيث انه يقوم اوتوماتيكيا بالتنقل بين السجلات بدون تدخل من المستخدم من السجل الأول الى اخر سجل ويقوم بتحديث سنة الميلاد وشهر الميلاد ويوم الميلاد حسب الكود .... وعلى فكره .. اخي العزيز مصلح الحريصي يقول الكود غير صحيح ويعطي اخطأ لكن انا لا اعلم شيء عن هذا الكود وكذلك والله ماقدرت افهم ويش يسوي ماعدا انني عرفت انه يقوم بحساب عدد ايام السنه الهجرية على انها (354) وهذا الذي نريده تقريبا حيث ان تواريخ الميلاد تسجل بالسنة الهجرية فقط ولا تعتمد السنه الميلاده ...... فأذا وجدت اخي العزيز كود اصح من هاذا فأننا ممتنون لك ولجميع الاعضاء بالمنتدي وياليت ان تضع الكود في استعلام بحيث استخدمه في القاعده الاصليه لتحديث كل السجلات

==============================

في مايخص رقم الملف ......

طبعا كل السجلات الصحية بالمراكز الصحية لها رقم ملف يتكون من عدة ارقام مثل (12/03/14/021) الرقم الاول يمثل رقم العماره والثاني رقم الشقه والثالث رقم المربع السكني والثالث رقم القطاع فنحن توجد لدينا قاعدة بيانات تحتوي على رقم الملف كما هو موضح بقاعدة البيانات كاملا ... وكذلك يوجد مربع نص لرقم المربع وحقل اخر لرقم القطاع .. بحيث انك بعد ماتدخل رقم الملف كاملا تقوم ايضا بأدخال رقم المربع والقطاع وهي اخر اربعة ارقم موجوده برقم الملف مثلا رقم 03 لرقم المربع و 12 لرقم القطاع ... انا ارغب اخوتي الاعزاء بأنني بعد ما اقوم بكتابة رقم الملف كاملا وفي حدث بعد التحديث يقوم باستخلاص رقم المربع والقطاع واظهارهما بالحقلين الخاصين بهما ... وقد شرحت شكل الارقام في النموذج المرفق بالقاعده

حيث اننا نقوم بادخاله يدويا يعني نقوم باعادة كتابة رقم القطاع والمربع بعد كتابة رقم الملف كاملا ودائما تحدث اخطأ من قبل الزملاء بالمركز حيث يقوم بادخال رقم المربع خطأ اي غير الرقم الموجود في رقم ملف المريض مما يظهر الاحصائيات بأخطا كثيره ... طلبي ان المستخدم لايتدخل في ذلك بحيث تظهر الارقام مباشرة بالحقول الخاصة بها بعد التحديث مباشره ... ووجدت كود في النتدى تجده فى حدث بالنموذج يقوم بتقسيم الارقام لكن اخي والله لم افلح في استعماله بحيث يقوم مرات باستخلاص الارقام التي قبل الارقام المقصودة.. كذلك ارغب بان يظر الرقم حتى ولو كان بيساره صفر مثل (04)

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

اخوك ابو انس

المدينه المنوره

اقتباس

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

بصراحة كما قلت هذه عملتها بزر الامر تحديث العمر...ولكن هذه ..

اقتباس

فأذا وجدت اخي العزيز كود اصح من هاذا فأننا ممتنون لك ولجميع الاعضاء بالمنتدي وياليت ان تضع الكود في استعلام بحيث استخدمه في القاعده الاصليه لتحديث كل السجلات

بصراحة لا اعلم بالضبط ان كان هناك كود اصح لاني لم الاحظ الأخطاء التي لاحظها الاستاذ الكريم مصلح..

المهم..

هذه:

اقتباس

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

ان شاء الله تكون سهلة وعندي افكار تسهلها عليك..بس لي سؤال.. هل لديكم جدول او معلومات مخزنة مسبقا عن ارقام القطاعات وبالتالي ارقام المباني في كل قطاع وبالتالي رقم السكن في كل مبنى....يعنى لما لا تختار رقم القطاع فيعكل تصفية للسجلات لعرض المباني الموجودة في هذا القطاع بالذات ثم تصفية السكنات حسب هذا المبنى...

اعتقد هذا مهم جدا للتسهيل في ادخال البيانات وقد نستغني عن عملية صعبة لاستخلاص ارقام القطاعات وغيرها...

وباذن الله تعالى جاري العمل على الافكار التي لدي وان شاء الله تعالى انها تعجبك وتزيح كثثير من المتاعب والمصاعب سواء في الادخال او في اخراج البيانات حسب الطلب.,

حياك الله

اخوك همام

السلام عليكم اخي العزيز اشكرك ومن لايشكر الناس لايشكر الله واسف على ضياع وقتك معي

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

فأذا اردت اخي العزيز بأن اقوم بأزالة جميع الارقام الخاصة بالقطاع والمربع من جدول البيانات فسوف اقوم بذلك عند طلبك مني

.. عند جدول مرتبط بجدول الافراد اسمه رقم القطاع طبعا الربط فيه واحد الى متعدد والجدول هذا فيه ارقام القطاعات المتوقعه في منطقتك مثلا المنطقة التي يوجد بها مركزنا تحتوي على المربعات (10) و (11) (12) (13) ... فقط وكذلك جدول اخر مرتبط يحتوي على رقم المربع كما هو معروف لديك

======================================

اشكرك اخي العزيز مره اخرى وارجوا ان ترهق نفسك نفعنا الله واياك بالعلم النافع وجزاك الله خير

السلام عليكم اخي العزيز اشكرك ومن لايشكر الناس لايشكر الله واسف على ضياع وقتك معي

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

فأذا اردت اخي العزيز بأن اقوم بأزالة جميع الارقام الخاصة بالقطاع والمربع من جدول البيانات فسوف اقوم بذلك عند طلبك مني

.. عند جدول مرتبط بجدول الافراد اسمه رقم القطاع طبعا الربط فيه واحد الى متعدد والجدول هذا فيه ارقام القطاعات المتوقعه في منطقتك مثلا المنطقة التي يوجد بها مركزنا تحتوي على المربعات (10) و (11) (12) (13) ... فقط وكذلك جدول اخر مرتبط يحتوي على رقم المربع كما هو معروف لديك

======================================

اشكرك اخي العزيز مره اخرى وارجوا ان لا ترهق نفسك بسببي... نفعنا الله واياك بالعلم النافع وجزاك الله خير

ممتاز جدا

اخي لا وقت يضيع خسارة خصوصا عندما يكون بفائدة

والمسالة ليست مسألة تعب وانما اردت فقط ان اخدمك

ممتاز ان القطاعت مخزنة...

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

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

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

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

انتظر وسارفق الملف كاملا غدا وليتسع صدرك ..باذن الله.. حتى يخرج في اجمل صورة

اخوكم

همام

تسلم وبارك الله فيك وفي امثالك وجعله الله في ميزان حسناتك

هذا مثال مرفق أنظر هل تجد فيه الفائدة وأمسح معدل العمر ثم يوم الميلاد وسهر الميلاد وسنة الميلاد من الجدول ثم جرب ضغط الزر على النموذج كذك جرب صحة التاريخ

DataBase1.rar

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

اخي تقبل شكر اخاك ابو انس وكل العاملين لدينا بالمركز

واخص كذلك بالشكر والتقدير اخي الغالي ... همام .. زاده الله علما ووفقه في الدنيا والاخره وامده بالصحة والعافيه

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

بارك الله فيكما الى يوم الدين

اخوكم ابو انس

المدينه المنوره

واي خدمه انا موجود .. بس ماهو في البرمجه عشان انا مثل ... الخروف في زريبة الدجاج ..مستغرب ليش محطوط فيه

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

أخي ابو أنس بارك الله فيك وفيك الخير والبركة

وإذا احتجت أي شرح وهناك شيء لم تفهمه في المثال ما عليك إلا طرح السؤال وستجد الجميع متفاعل بإذن الله

أخي العزيز: مصلح السلام عليكم ورحمة الله وبركاته و مساك الله بالخير

اخي العزيز ترانا مانستغني عن خدماتك .. جعلها ربي في ميزام حسناتك

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

... البرنامج رائع واكثر من رائع .. بس هناك شيء واحد امل منك مشكورا ان تقوم فقط وفي (( مربع النص المسمى معدل العمر الموجود على النموذج مسبقا)) بأن يقوم فقط بعرض العمر بالسنوات بحيث يستخلصها من مربع النص الذي قمت انته بوضعه على النموذج والمسمى ((العمر)) حيث عزيزي انني حاولت عن طريق استعلام ان يستخلص لي فقط العمر بالسنوات من هذا الكود الذي قمت انت بوضعه لكن لم افلح ((=IIf(IsNull([df]) Or IsNull([mf]) Or IsNull([yf]) Or IsNull([dt]) Or IsNull([mt]) Or IsNull([yt]) Or ([yf]*10000)+([mf]*100)+[df]>([yt]*10000)+([mt]*100)+[dt];"بعض الإدخالات ناقصة أو خاطئة";Age([df];[mf];[yf];[dt];[mt];[yt]))

فأرجوا عزيزي اذا كان لديك الوقت فقط ان تقوم اما بكتابه الكود لي او انك تقوم بوضعه على المثال الذي ارسلته لي مسبقا

-----------------

تعلم اخي اننا نحسب عدد النساء ... فرضا في معدل العمر من ((16 الى 45)) سنه النساء في سن الانجاب لكن في معدل العمر تظهر النتيجه كامله كألاتي:مثال ((06 سنوات و 02 شهر و 10 أيام)

== ارجوا اخي مصلح ترك هذا الكود الخاص في مربع نص العمر كما هو وان تقوم مشكورا بجعل الكود يقوم بتفصيل العمر في خانة ( سنه الميلاد) و (شهر الميلاد) و ( يوم الميلاد) ومعدل العمر يساوي عمر الشخص بالسنوات فقط حيث اريد ان يظهر عمر الشخص في هذه الحقول وليس كما كان مسبق بحيث تعرض هذه الحقول ((تاريخ الميلاد الاساسي)) للشخص وتتوزع حسب تاريخ ميلاده

انا اريد ان يظهر في هذه الحقول عمر الشخص الحقيقي اي عمره بالسنوات في حقل (سنة الميلاد) وعمره بالاشهر في حقل (شهر الميلاد ) وعمر بالايام في ( يوم الميلاد) حيث ان البرنامج لدينا مصمم على الحساب من معدل العمر بالسنوات وهو اكثر مانحتاج اليه في العمل ويحسب الاحصائيات منه

كذلك دائما ما نحتاج الى استخلاص فئات عمريه محدده ونقوم بعمل استعلام يقوم بتحديد سنوات معينه عن طريق معدل العمر

كذلك نحتاج شهريا الى استعلام تقوم بحساب عدد الاطفال المستهدفين فرضا للجرعة الثانية واعمارهم ((شهرين)) فأعجبني ماصنعت لنا لكن حاولت انا وزميلي نستخلص ذلك من الكود الذي وضعته من عصر هذا اليوم حتى الساعه العاشره تقريبا ولكن لم نفلح حيث ان الكود يقوم بعرض العمر كاملا بالسنه والشهر واليوم مع بعض

فارجوا ان تجعل عملا الشخص الحقيقي بالسنوات والايام يظهر في الحقول التي اشرت اليها كما امل ترك مربع النص الذي قمت انته بعمله كما هو

----------------------

اسف اخي مصلح بس ترانا مانستغني فارجوا ان لاتكلف على نفسك في عمل ذلك اذا كانت لديك التزامات بس فقط اخبرني وانا سوف انتظرك

اخوك ابو انس

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

ماعليش اخي ابو ساره نسيت اقولك على الزر الخاص بالتحديث امل اي يكون التحديث على هذا الاساس المعروض اعلاه ... يعني معدل العمر (عمر الشخص بالسنوات ) وتحديث سنة الميلاد على انها ( عمر الشخص بالسنوات ) وشهر الميلاد على انها عمر الشخص بالاشهر وكذلك يوم الميلاد العمر بالايام

===============

وهل استطيع عزيزي ابو ساره ان اجعل تحديث البيانات اوتوماتيكيايعني عن طريق حدث معين او استعلام عند تشعيل البرنامج بأن يقوم بتحديث البيانات دون تدخل من المستخدم عشان اضمن تحديث البيانات يوميا على الاقل عند تشغيل البرنامج

او في حدث عند فتح النموذج او تحميله

من اجل المتابعه ......... ابو انس

الحمد لله رب العالمين

أخي الكريم

أسف جداً والله ما شفت موضوعك إلا الليلة وحسبت أن الموضوع أنحل نهائي ولكن لا يهمك.

الطريقة :

في حدث ( في الحالي ) للنموذج أستبدل السطر

  Me.[معدل العمر] = Me.TxtAge

بالسطر التالي :

Me.[معدل العمر] = Left(TxtAge, 2)

وكذلك الكود الموجود على زر الأمر

وهذا المثال مرفق بعد التعديل

وجرب إذا كان هذا ما تريد وإذا أردت خلاف ذلك فأخبرني ولا تتردد ولا تعتذر عن إزعاجي بل بالعكس فأنني أُسر بذلك لأنني أحاول أن أكون شخص نافع

DataBase1.rar

نسيت البارحة لأنني كنت مستعجل أروح أنام ولم اذكر لك طريقة التحديث الآلي :

إذا أردت أن يتم التحديث آلياً فما عليك سوى نقل الكود الموجود على زر التحديث ووضعه في حدث ( عند الفتح ) للنموذج.

كذلك يمكنك إنشأ وقت تحديث ثم تحدد الساعة والدقيقة التي يتم فيها التحديث.

تسلم يالغالي .. والله يجزاك بالخير ويجعله في ميزان حسناتك

إن شاء الله سوف احمله معي غدا للعمل ونقوم بتركيب الكود وإن شاء الله سوف افيدك بمايطرا بعد ذلك .. واسف اخي ابو ساره على تعبك معي لكن ويش اسوي وانا مثل ---- الأطرش بالزفه ___ ماقدرت افهم شيء من الكود الذي وضعته مسبقا مما جعلني اسأكلك مرة ثانية .. لكن ان شاء الله سوف يكون كل شيء على مايرام ودعواتي لكل العاملين بهذا المنتدى بالتوفيق والى الامام

ابو انس