المساعدة فى التعديل على كود

[jo_2010]

السادة الخبراء الافاضل 

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

هذا الكود ساعدنى بة السيد الخبير الفاضل Eng.Qassim

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

اريد تجميع كل التحاليل فى سطر واحد حسب تاريخ عمل التحليل فى form1

اليكم مرفق للتعديل علية شكرا لكم

A.accdb

تم تعديل ديسمبر 31, 2022 بواسطه jo_2010

[jjafferr]

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

 

ايه ده ، جوسف عنده سؤال من السنة الفايته وملقاش جواب 😉

 

هناك طريقتين لحل طلبك:

1. تكرار الاسم لكل تاريخ ، وفي حقل C يتم تجميع الفحوصات ، وهذه الطريقة الافضل في نظري ،

2. عدم تكرار الاسم ، وحذف حقل التاريخ من النموذج ، ثم جعل الحقل C يحتوي على التاريخ والفحوصات ، هكذا مثلا:

29/11/2022
CBC, Urine Culture and Sensitivity

01/01/2023
CBC, PT_Prothrombin Time, PTT_ Partial Thromboplastine  Time

.

بس علشان نعمل اي من الطريقتين:

1. تختار الطريقة الافضل لك ، والطريقة الصحيحة للاختيار ، هي معرفة طريقة عمل المستخدم للنموذج وفرزه وتصفيته ،

فإذا اخترت الطريقة الاولى ، فيمكنك الفرز والتصفية بالتاريخ مباشرة من النموذج بالفأرة اليمين ،

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

2. يجب ان ترفق بيانات الشخص لأكثر من يومين (على الاقل شخصين ، علشان التجارب) ، لأني ما عرفت كيف اضيف 🙂

 

جعفر

[jo_2010]

استاذى الفاضل ومعلمى الجليل  jjafferr

لك التحية وعام سعيد

اولا انا اريد الطريقة الاولي

وهي كمايلي

كود         الاسم          التاريخ             التحاليل

201    محمد احمد     2/2/2022      cbc, urine

حضر نفس المرض بعد فترة مثلا

435     محمد احمد      4/6/2022      sugar, tsh

وهكذا ممكن حضرتك تساعدني في عمل هذا  الاستعلام عند فتحة أجدة

كما بالمثل السابق

قمت باضافة قاعدة جديدة  للتعديل عليها بعد اضافة اسماء مكررة

احسان على سالم تكررت 3 مرات بتواريخ مختلفة بتحاليل مختلفة

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

اسف علي الاطالة

اريد استعلام  مثل query1  وبياخد البيانات من استعلام اخر باسم  1_jo  وانا بعد ذلك اعمل لة نموذج سامحني gعدم خبرتي الجيدة بالاكسيس  خالص الشكر لحضرتك

A.accdb

تم تعديل يناير 1, 2023 بواسطه jo_2010

[jjafferr]

تفضل 🙂

 

.

الوحدة النمطية الجديدة (شايف خط يدي في الوحدة النمطية القديمة 🙂 ) ، فكما تلاحظ ، التعديل جدا بسيط :

Public Function Concatenate_pcode(C As String, D As Date) As String

    Dim rst As DAO.Recordset
    Dim myWhere As String
    
    myWhere = myWhere & "[PName]='" & C & "' "
    myWhere = myWhere & " And"
    myWhere = myWhere & " [DDate]=#" & D & "#"
    
    Set rst = CurrentDb.OpenRecordset("Select [TName] From [1_JO] Where " & myWhere)
    Do Until rst.EOF
    
        Concatenate_pcode = Concatenate_pcode & ", " & rst!TName
        
        rst.MoveNext
    
    Loop
    
    Concatenate_pcode = Mid(Concatenate_pcode, 3)
    
    rst.Close: Set rst = Nothing
    
End Function

.

جعفر

1540.A.accdb.zip

[jo_2010]

الاستاذ الفاضل    jjafferr

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

 

 

قمت بارسال القاعدة مرة اخرى وطريقة اضافة اسماء جديدة وتحاليل جديدة  للتجربة شكرا لهتمام حضرتك بحل مشكلتى

1540.A.accdb

[jo_2010]

صورة من القاعدة الاولى بعد فك الضغط

انا استخدم اكسيس 2010  32bit

[jjafferr]

هي مشكلة تنسيق التاريخ بين الكمبيوترات ، وتفضل الحل 🙂

 

جعفر

1540.A.accdb.zip

[jo_2010]

استاذى الفاضل جعفر

شكرا لحل مشكلة التاريخ

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

[jjafferr]

شوف نتائج الاستعلام 3 ، ان شاء الله تكون مرادك ، وإلا ، فمحتاج معلومات ومثال من بياناتك لوسمحت 🙂

 

جعفر

1540.1.A.accdb.zip

[jo_2010]

استاذى الفاضل جعفر

شــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــكرا لك اخيرا وصلت لما اريد ولكنى اعتذر عن الازعاج الذى سببتة لك خالص الشكر

الخبير الفاضل قدمت لى الكثير من المساعدة فى مرات كثيرة سابقة شكرا شكرا شكرا

[jjafferr]

الان, jo_2010 said:

الخبير الفاضل

حياك الله اخي الفاضل 🙂