اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


co2002co

الردود الموصى بها

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

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

 

المطلوب هو

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

 

Medication.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم :rol:

 

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

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

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

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

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

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

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

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

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

 

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

 

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

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

 

 

جعفر

 

رابط هذا التعليق
شارك

مساء الخير

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

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

 

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

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

رابط هذا التعليق
شارك

السلام عليكم :rol:

 

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

 

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

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

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

 

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

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

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

 

298.gif.1958e57b4194e62d186746596ce6f5cc

 

جعفر

298.Medication.accdb.zip

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 

صباح الخير

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

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

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

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

او

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

رابط هذا التعليق
شارك

السلام عليكم :rol:

 

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

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

298.Clipboard02.jpg.0cda28f6a267493f10a8

 

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

298.Clipboard01.jpg.29d1de0130eaf36d6b6e

 

 

جعفر

298.Medication.accdb.zip

رابط هذا التعليق
شارك

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

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

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

او ورقه A4

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

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

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

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

 

رابط هذا التعليق
شارك

حياك الله :rol:

 

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

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

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

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

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

298.Clipboard03.jpg.f3e0464e5543043463a9

.

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

298.Clipboard04.jpg.c8de010103f8d700049d

.

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

298.Clipboard05.jpg.f1d54a897dc701edc146

.

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

298.Clipboard01.jpg.29d1de0130eaf36d6b6e

 

 

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

 

جعفر

رابط هذا التعليق
شارك

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

 

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

298.Clipboard06.jpg.edccbb6c58506c8e5b57

 

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

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

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

 

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

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

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

 

 

جعفر

رابط هذا التعليق
شارك

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

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

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

 

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

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

اشكرك 

على التوضيح

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

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

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

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

untitled.JPG

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

هنا البدايه

 

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

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

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

Database2.rar

untitled.JPG

رابط هذا التعليق
شارك

السلام عليكم :rol:

 

في 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)

 

جعفر

 

 

 

 

رابط هذا التعليق
شارك

مساء الخير

اشكرك عالرد

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

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

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

رابط هذا التعليق
شارك

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

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

 

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

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

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

 

 

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

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

 

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

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

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

    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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

 

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

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

 

جعفر

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information