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

[safaa salem5]

عندى فورم اسمه

urine_frm

مصدر بياناته جدول اسمه

urine_tbl

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

Fixed_tbl

فى حقول غير مرتبطه فى نفس الفورم

فمثلا 

عند الوقوف فى حقل

volume

المطلوب

TestnameN=Volume(Urine)

Reportname=Volume

default=Random sample

Normal=Random sample
    
    
    وهكذا لكل الحقول
    

انا حاولت 

=DLookUp("fixedname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

=DLookUp("Reportname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

=DLookUp("fixeddefault";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

=DLookUp("fixednormal";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

بس مش عارفه اظبط الكود

وهل فى ماكرو للفورم بكل حقوله بدلا من وضع الكود فى كل حقل

New Microsoft Access Database (2).accdb

تم تعديل يونيو 23, 2024 بواسطه safaa salem5

[M.Abd Allah]

تم الغاء الداله حسب فهمي بما ان الحقول المفروض تاخد من الجدول الفاضي تم عمل سجل فالجدول الفاضي للتجربه عليه 

safaa n.accdb

[safaa salem5]

جزاك الله خيرا  هو دا المطلوب

بس اطمع بعمل ذلك باستخدام

 داله DLookUp

زى كدا

DLookUp("fixedname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

DLookUp("Reportname";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

DLookUp("fixeddefault";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

DLookUp("fixednormal";"fixed_tbl";"[fixedname] = 'Volume(Urine)'")

 

[M.Abd Allah]

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

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

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

تم تعديل يونيو 23, 2024 بواسطه M.Abd Allah

[safaa salem5]

37 minutes ago, M.Abd Allah said:

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

الحقول كلها هيكون ليها قيمه 

default

هتيجى من الحقل

fixeddefault

بحيث ان المستخدم ميقعدش يكتب كل التقرير

هو ممكن يعمل تعديلات عادى 

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

فى مكان تانى خاص بالتعديل على القيم ال default 

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

تم تعديل يونيو 23, 2024 بواسطه safaa salem5

[M.Abd Allah]

2 دقائق مضت, safaa salem5 said:

الحقول كلها هيكون ليها قيمه 

default

هتيجى من الحقل

fixeddefault

بحيث ان المستخدم ميقعدش يكتب كل التقرير

هو ممكن يعمل تعديلات عادى 

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

فى مكان تانى خاص بالتعديل على القيم ال default 

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

انا اصلا مبقاش يعنيني موضوع تقييم الاجابات لاني فهمت الموضوع ببساطه 

كل مافي الموضوع اني أغلب الوقت بفهم بالمشقلب أو اوقات مبفهمش الموضوع صح 

عندي ثقه إن شاءالله مفيش اي مشكله ملهاش حل بس اكون فاهم كويس ايه المطلوب وجايز مش مشكله عندك 

اكيد المشكله عندي اني مش فاهم ايه المطلوب بالظبط 

تحياتي 

[safaa salem5]

41 minutes ago, M.Abd Allah said:

انا اصلا مبقاش يعنيني موضوع تقييم الاجابات لاني فهمت الموضوع ببساطه 

كل مافي الموضوع اني أغلب الوقت بفهم بالمشقلب أو اوقات مبفهمش الموضوع صح 

عندي ثقه إن شاءالله مفيش اي مشكله ملهاش حل بس اكون فاهم كويس ايه المطلوب وجايز مش مشكله عندك 

اكيد المشكله عندي اني مش فاهم ايه المطلوب بالظبط 

تحياتي 

تمام تسلم لمجهودك واهتمامك وبجد اجابتك جميله وماشيه مع طلبى بالتمام بس انا  كان نفسى اتعلم اعملها بالداله دى  بس خلاص مش مهم

[M.Abd Allah]

الان, safaa salem5 said:

تمام تسلم لمجهودك واهتمامك وبجد اجابتك جميله وماشيه مع طلبى بالتمام بس انا  كان نفسى اتعلم اعملها بالداله دى  بس خلاص مش مهم

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

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

و الباقي إن شاءالله بسيط

[safaa salem5]

هو ينفع تحويل الكود دا لماكرو لانى عندى حقول كتيره

وكمان فى فورم تانيه نفس الكلام

[M.Abd Allah]

1 دقيقه مضت, safaa salem5 said:

هو ينفع تحويل الكود دا لماكرو لانى عندى حقول كتيره

وكمان فى فورم تانيه نفس الكلام

بسيطه إن شاءالله شوفي لو عايزه تعملي حاجه تانيه بالمره مفيش مشكله 🤓

[safaa salem5]

16 minutes ago, M.Abd Allah said:

بسيطه إن شاءالله شوفي لو عايزه تعملي حاجه تانيه بالمره مفيش مشكله 🤓

بص حضرتك هى كل الفورم التانيه هتاخد

default 

بتاعها من

من نفس الجدولfixed_tbl

يعنى الجدول دا انا مجمعه فيه كل نتايج التحاليل اللى بتحتاج فورم كامله لوحدها

زى

URINE بول

STOOL براز

SEMEN سائل منوى

STOONE  حصوه

CSF سائل النخاع الشوكى

[M.Abd Allah]

منذ ساعه, safaa salem5 said:

بص حضرتك هى كل الفورم التانيه هتاخد

default 

بتاعها من

من نفس الجدولfixed_tbl

يعنى الجدول دا انا مجمعه فيه كل نتايج التحاليل اللى بتحتاج فورم كامله لوحدها

زى

URINE بول

STOOL براز

SEMEN سائل منوى

STOONE  حصوه

CSF سائل النخاع الشوكى

تمام انا كده تقريبا فهمت بس معلشي مكنتش شوفت التعليق غير لما خلصت الملف ده شوفى كده عملت فورم تاني

واحد بيشتغل زي مهو بالاكواد 

والتاني بيشتغل بالماكرو 

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

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

 

safaa new.accdb

[M.Abd Allah]

وحسب ما فهمت كده من اخر طلب 

إن كل الاعتماد فى أغلب النماذج علي جدول fixed_tbl اللي فيه كل انواع التحاليل 

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

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

وفالمثال نموذجين مختلفين وبيعملوا نفس النتيجه مع نفس الموديول

safaa edit.accdb

[safaa salem5]

8 hours ago, M.Abd Allah said:

وحسب ما فهمت كده من اخر طلب 

إن كل الاعتماد فى أغلب النماذج علي جدول fixed_tbl اللي فيه كل انواع التحاليل 

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

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

وفالمثال نموذجين مختلفين وبيعملوا نفس النتيجه مع نفس الموديول

safaa edit.accdb 684 kB · 1 download

صباح الخير 

تسلم جزاك الله خيرا

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

[M.Abd Allah]

2 ساعات مضت, safaa salem5 said:

صباح الخير 

تسلم جزاك الله خيرا

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

ينفع إن شاءالله مفيش حاجه فالغالب متنفعش فالاكسس الا حاجات نادره جدا

[safaa salem5]

لو سمحت حضرتك يا استاذ @M.Abd Allah

عايزه اعمل تعديل يسيط فى الكود دا

 

 Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = rs!fixedname
        Me.default = rs!fixeddefault
        Me.Normal = rs!fixednormal
        Me.Reportname = rs!Reportname

   Else
      MsgBox "لا يوجد سجل & fieldName
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

عايزه 

Testname N

يساوى اسم الفيلد اللى انا واقفه فيه مع اسم SUB

يعنى مثلا لو انا واقفه فى فيلد اسمه Color

واسم SUB

URINE

يبقى

Testname N

يساوى

Color(URINE)

تم تعديل يونيو 26, 2024 بواسطه safaa salem5

[M.Abd Allah]

منذ ساعه, safaa salem5 said:

لو سمحت حضرتك يا استاذ @M.Abd Allah

عايزه اعمل تعديل يسيط فى الكود دا

 

 Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = rs!fixedname
        Me.default = rs!fixeddefault
        Me.Normal = rs!fixednormal
        Me.Reportname = rs!Reportname

   Else
      MsgBox "لا يوجد سجل & fieldName
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

عايزه 

Testname N

يساوى اسم الفيلد اللى انا واقفه فيه مع اسم SUB

يعنى مثلا لو انا واقفه فى فيلد اسمه Color

واسم SUB

URINE

يبقى

Testname N

يساوى

Color(URINE

مفيش اي مشكله 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = fieldName & "(" & subName & ")"
        Me.default = rs!fixeddefault
        Me.Normal = rs!fixednormal
        Me.Reportname = rs!Reportname
    Else
        MsgBox "لا يوجد سجل " & fieldName, vbExclamation
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

[safaa salem5]

5 minutes ago, M.Abd Allah said:

مفيش اي مشكله 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = fieldName & "(" & subName & ")"
        Me.default = rs!fixeddefault
        Me.Normal = rs!fixednormal
        Me.Reportname = rs!Reportname
    Else
        MsgBox "لا يوجد سجل " & fieldName, vbExclamation
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

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

[M.Abd Allah]

دا عشان هو لقى فراغات 

خليكي فالتعديل ده 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = fieldName & "(" & subName & ")"
        
        If Not IsNull(rs!fixeddefault) Then
            Me.default = rs!fixeddefault
        Else
            Me.default = ""
        End If
        
        If Not IsNull(rs!fixednormal) Then
            Me.Normal = rs!fixednormal
        Else
            Me.Normal = ""
        End If
        
        If Not IsNull(rs!Reportname) Then
            Me.Reportname = rs!Reportname
        Else
            Me.Reportname = ""
        End If
    Else
        MsgBox "لا يوجد سجل " & fieldName, vbExclamation
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

[safaa salem5]

خلاص انا عرفت اشيل الاقواس من الكود

نقطه اخيره والله عارفه انى تقلت عليك

هو هنا لو ملقاش قيمه حقل من التلاته متسجله هيدينى رسالة لايوجد سجل

لا انا عايزاه يجيب القيم المتسجله واللى مش متسجل  عادى الحقل بتاعه يفضل فاضى

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

 Else
        MsgBox "لا يوجد سجل " & fieldName, vbExclamation

 

انت ابن حلال والله تقريبا هود دا اللى انا كنت بشرحه لحضرتك

[M.Abd Allah]

لا عادي مفيش مشكله 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = fieldName & "(" & subName & ")"
        
        If Not IsNull(rs!fixeddefault) Then
            Me.default = rs!fixeddefault
        Else
            Me.default = ""
        End If
        
        If Not IsNull(rs!fixednormal) Then
            Me.Normal = rs!fixednormal
        Else
            Me.Normal = ""
        End If
        
        If Not IsNull(rs!Reportname) Then
            Me.Reportname = rs!Reportname
        Else
            Me.Reportname = ""
        End If
    Else
        ' إذا لم يتم العثور على أي سجل، تعيين الحقول كقيمة فارغة
        Me.testnameN = fieldName & "(" & subName & ")"
        Me.default = ""
        Me.Normal = ""
        Me.Reportname = ""
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

[safaa salem5]

فى حاجه بسيطه خالص لو مالقاش سجل

بنفس الشرط اللى فى الكود دا

 WHERE fixedname = '" & fieldName & "'"

فى الحاله دى

يعمل كدا

Me.testnameN = fieldName & "(" & subName & ")"

        Me.default = null
        Me.Normal = null
        Me.Reportname = null

ورساله تخرج لا يوجد قيم مسجله لهذا التحليل

[M.Abd Allah]

بسيطه إن شاءالله 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    
    Set db = CurrentDb
    sql = "SELECT * FROM Fixed_tbl WHERE fixedname = '" & fieldName & "'"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        rs.MoveFirst
        Me.testnameN = fieldName & "(" & subName & ")"
        
        If Not IsNull(rs!fixeddefault) Then
            Me.default = rs!fixeddefault
        Else
            Me.default = Null
        End If
        
        If Not IsNull(rs!fixednormal) Then
            Me.Normal = rs!fixednormal
        Else
            Me.Normal = Null
        End If
        
        If Not IsNull(rs!Reportname) Then
            Me.Reportname = rs!Reportname
        Else
            Me.Reportname = Null
        End If
    Else
        ' إذا لم يتم العثور على أي سجل، تعيين الحقول كـ Null
        Me.testnameN = fieldName & "(" & subName & ")"
        Me.default = Null
        Me.Normal = Null
        Me.Reportname = Null
        
        ' عرض رسالة تنبيه
        MsgBox "لا يوجد قيم مسجلة لهذا التحليل", vbExclamation
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

[safaa salem5]

بصراحه انت بتقرأ افكارى 

هو ازاى كدا انا لسه بكتب الطلب الاقيك عملته قبل ما اخلص كتابه

تسلم لذوقك

ممكن اعرف اسمك

[M.Abd Allah]

مش جايز اكون عندي حد علي معرفه بالتحاليل وانواعها 😉😉

بالتوفيق