مشكله في بعض الجداول مع الكود

[co2002co]

احاول اربط جدول prescription مع patient inf يحدث خلل بالكود الي بالنموذج medication

وايضا عندما احاول اضافه حقول من اي جدول اخر ل form2 تختفي جميع الحقول

 

المطلوب هو

اضافة حقول من patient inf الى form2 مع تخزين كافه المعلومات

 

Medication.rar

[jjafferr]

السلام عليكم 

 

انا رأيت عند بعض الاطباء برنامج يعمل التالي:

1. نموذج اسم المريض ومعلوماته (عندك الجدول ولكن بدون بيانات وبدون نموذج) ،

2. نموذج الادوية (وهو موجود عندك ، مع بيانات الجدول) ،

3. نموذج الوصفات لكل مريض ، وفيه جزئين ، في الاعلى اسم المريض والتاريخ ، وفي الاسفل وصفات الدواء لهذه الزيارة ، ويعمل النموذج كالتالي:

الطبيب يفتح النموذج ، ثم يختار اسم المريض ،

ثم يضغط على زر الادوية ، فينفتح نموذج الادوية تحت نموذج المريض ،

وعندما يختار الدكتور اي دواء ، يضغط عليها مرتين ، فتلقائيا ينتقل هذا الدواء الى نموذج المريض (والطبيب يحدد عدد مرات استخدام الدواء وووو في نموذج المريض لهذا الدواء) ،

ويستطيع الطبيب ان يختار اي عدد من الادوية ،

واذا اخطأ الطبيب ، وتبين له انه ادخل دواء خطأ للمريض ، فيذهب الى نموذج المريض ويحذف هذا الدواء.

 

هل هذا الذي تريده؟

 

اذا كان الجواب لا ،

فالرجاء عمل توضيح وشرح (مثل ما انا قمت به) ، ولا تستعمل كلمات برمجية ، وانما شرح بالعربي

 

 

جعفر

 

[co2002co]

مساء الخير

في نموذج medication انا محدد كل شي للطبيب حتى كمية الدواء المقدم للمريض

كلامك صحيح هذا الي ابيه

 

لكل وصفه عدد محدد من الاويه ( 3 اوديه )

وعند الضغط على دواء رابع راح تفتح وصفه جديده وهكذا

[jjafferr]

السلام عليكم 

 

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

 

في 2/24/2016 at 01:22, co2002co said:

لكل وصفه عدد محدد من الاويه ( 3 اوديه )

وعند الضغط على دواء رابع راح تفتح وصفه جديده وهكذا

 

رجاء تفسر شو معنى افتح "وصفة جديدة" ؟

هل معناه انك تريد عمل فرز للأدوية عند طباعتها ، بحيث كل وصفة ادوية تحتوي على 3 ادوية فقط؟

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

 

 

جعفر

298.Medication.accdb.zip

[co2002co]

السلام عليكم 

صباح الخير

يعطيك الف عافيه

بس حاجه وخده الى الان ما اتعملت

هو ان لكل وصفه 3 ادويه فقط

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

او

هل بالامكان عمل التقرير فقط ب 3 ادويه + 3 اويه + 3 ادويه وبنفس معلومات المريض

[jjafferr]

السلام عليكم 

 

بعدما تختار اسم المريض ، وتختار جميع زياراته ،

ترى جميع زياراته في حقل Visit_Date ، وعندها تستطيع ان تنقر مرتين على التاريخ الذي تريد ، فسيتم تصفية النموذج على اساسه 

 

وهذا شكل التقرير ، كل 3 ادوية مجموعة مع بعض:

 

 

جعفر

298.Medication.accdb.zip

[co2002co]

الله يبيض وجه دنيا واخره

طيب التقرير اثناء الطباعه

يطبع كل نموذج لحاله

او ورقه A4

لاني احتاج الطباعه على ورق معد مسبقا

وجاهز للطباعه عليه

انا راح اعمل على النماذج شوي تعديل

عشان باقي الاضافات 

 

[jjafferr]

حياك الله 

 

الشئ المهم معرفته هو:

1. اذا اردت 3 سجلات في التقرير فقط ، استخدم رقم 3 ،

واذا اردت 4 سجلات في التقرير استخدم الرقم 4 ، وعلى هذا الاساس تستخدم الرقم الصح لعدد سجلات التقرير ،

2. هذه المعادلة لا تتغير ، والتقرير يعتمد على هذا الحقل في عمل المجموعة ،

وهذين الحقلين يمكن استخدامهما في اي برنامج ، والتغيير يكون في مسميات الحقول في رقم 1:

.

والنتيجة (لاحظ الحقل Int_S ، كما اشرت لك في رقم 2 اعلاه ، تلاحظ كل 3 سجلات برقم مسلسل):

.

وهكذا نعمل مجموعة للحقل Int_S :

.

والنتيجة كما في مشاركتي السابقة:

 

 

البرنامج بين يديك ، فاعمل به ما تشاء 

 

جعفر

[co2002co]

جزاك الله كل خير

لسه ماخلصنا البرنامج

هل نكمل هنا ام نفتح موضوع جديد

[jjafferr]

 

لوسمحت تفتح موضوع جديد ، فلكل سؤال موضوع مستقل ، هذه قوانين المنتدى 

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

 

جعفر

[co2002co]

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

كيف الغي الاسم والتاريخ الاجباري من دون الاضرار بالكود

[jjafferr]

وعليكم السلا م 

 

الوصفات الطبية تُحفظ في جدول tbl_Prescription ، والجدول به هذه الحقول:

 

File_No : رقم المريض ، فتمييز الوصفات بين المرضى ، وإلا فكيف نعرف هذه الوصفة لمن!!

Visit_Date : تاريخ الزيارة ، فالمريض له عدة زيارات للدكتور ، ووصفة كل زيارة تحدد نوع مرضه ، وبدون التاريخ يصبح للمريض سلسلة ادوية متراكمه

DoseID : عند اختيارك للأدوية ، البرنامج يحتفظ برقم الدواء فقط (لأن بقية معلومات الدواء موجودة في الجدول tbl_Drugs) ، وعند عمل استعلام ، نربط الجدولين فنحصل على بقية معلومات الدواء.

 

7 ساعات مضت, co2002co said:

كيف الغي الاسم والتاريخ الاجباري من دون الاضرار بالكود

اذا عملت هذا ، فكأنك جعلت الجدول tbl_Prescription  مثل الجدول tbl_Drugs 

 

 

جعفر

[سعيد صواب]

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

تكرما لا أمرا  ارفاق القاعدة بصيغة اقدم حتى تعم الفائدة 

وبالتوفيق للجميع 

 

تم تعديل مارس 3, 2016 بواسطه سعيد صواب

[co2002co]

مساء الخير لكم جميعا

اشكرك 

على التوضيح

عملت نموذج ل ادخال بيانات المرضى

وبدل من الادخال الاجباري ل اسم المريض وتاريخ الزياره

بمجرد وضع رقم الملف او الرسم التسلسبي للمريض او الاسم او رقم البطاقه تضهر جميع المعلومات بشكل تلقائي بالوصفه

لكن بمرجرد حذف الكود لا يتضهر اي شي بالتقرير

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

هنا البدايه

 

عملت ربط للجداول بهدا الشكل

لكني لست خبير بالاكواد

في كل مره اغير افشل 

Database2.rar

[jjafferr]

السلام عليكم 

 

في 3/3/2016 at 07:10, co2002co said:

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

كيف الغي الاسم والتاريخ الاجباري من دون الاضرار بالكود

 

الكود عبارة عن خطوتين:

عمل سجل جديد في النموذج ،

واضافة 3 معلومات:

في 3/3/2016 at 14:59, jjafferr said:

File_No : رقم المريض ، فتمييز الوصفات بين المرضى ، وإلا فكيف نعرف هذه الوصفة لمن!!

Visit_Date : تاريخ الزيارة ، فالمريض له عدة زيارات للدكتور ، ووصفة كل زيارة تحدد نوع مرضه ، وبدون التاريخ يصبح للمريض سلسلة ادوية متراكمه

DoseID : عند اختيارك للأدوية ، البرنامج يحتفظ برقم الدواء فقط (لأن بقية معلومات الدواء موجودة في الجدول tbl_Drugs) ، وعند عمل استعلام ، نربط الجدولين فنحصل على بقية معلومات الدواء.

 

فيصبح الكود بدون رقم المريض ، وبدون تاريخ الزيارة:

    Forms!frm_Medication!tbl_Prescription!File_NO = Forms!Forms!frm_Medication!cmb_Patient_Name
    Forms!frm_Medication!tbl_Prescription!Visit_Date = Forms!frm_Medication!Auto_Date
    Forms!frm_Medication!tbl_Prescription!DoseID = Me.ListDosing.Column(7)

 

جعفر

 

 

 

 

[co2002co]

مساء الخير

اشكرك عالرد

عملت هاذي الخطوه لكن التقرير لا يضهر فيه شي

او تظهر جميع الادويه

حاولت اعمل اضافة معلومات المريض بشكل تلقائي او بواقع الرقم التسلسلي للمريض او حتى ب رقم الملف او id بس كل محاولاتي تفشل لذالك رسلت القاعده كامله

[co2002co]

اتوقع اني حليت المشكله

راح اعيد المحاوله واخبرك ان شاء الله بالنتيجه

غيرت التقرير كله وضيط الوضع تقريبا

[jjafferr]

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

في 3/3/2016 at 14:59, jjafferr said:

 

في 3/3/2016 at 07:10, co2002co said:

كيف الغي الاسم والتاريخ الاجباري من دون الاضرار بالكود

اذا عملت هذا ، فكأنك جعلت الجدول tbl_Prescription  مثل الجدول tbl_Drugs 

 

 

خليني اخبرك ايش هي المشكلة:

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

 

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

وإلا ، فللأسف العمل يصير عملين لك ولنا ، وبقية الشعر اللي على راسي يتنتّف 

 

جعفر

[co2002co]

هههههه

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

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

الفكره كانت كما هي بالسابق 

لكن تستجد امور

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

[co2002co]

مساء الخير

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

حاول اعملها ما تضبط معي

[jjafferr]

وعليكم السلام 

 

ياريت تعطي مثال بطلبك ، توفر علينا نحن الاثنين الوقت 

 

اذا كان قصدك ان تجمع قيم الحقول في سجل واحد ، 

فهذا الكود يعطيك الحقول للسجل ، وجمع قيمها:

    Dim rst As DAO.Recordset
    Dim fld As Field
    
    'get this Name Record from the table
    Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'")
    
    T = 0   'initial Total
    
    'loop through the fields
    For Each fld In rst.Fields
    
        'Debug.Print fld.Name & vbTab & fld.Value
        
        'skip the Full_Name field name
        If fld.Name <> "Full_Name" Then
            'add the field values
            T = T + fld.Value
        End If
        
    Next fld

	rst.close : set rst=nothing

 

جعفر

[co2002co]

اشكرك جزيل الشكر

احاول ان اعمل ب نهاية اليوم تجميع لجميع الادوية المصروفه

بنفس الجدول المرفق

Database1.rar

سواء كانت بتقرير او استعلام

[jjafferr]

3 ساعات مضت, co2002co said:

احاول ان اعمل ب نهاية اليوم تجميع لجميع الادوية المصروفه

على بركة الله 

 

جعفر

[co2002co]

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

[jjafferr]

لم انزل المرفق 

 

ولكن وبدل طريقتي السابقة (لأنك لم تعطي اي معلومات عن ماذا كنت تريد ان تعمل) ، تستطيع في الاستعلام ان تعمل حقل جديد فلنسميه A ، ولنقل ان اسماء حقولك B و C ، عليه يصبح الحقل A:

A: nz([b],0) + nz([c],0)

 

جعفر