safaa salem5 قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 (معدل) عندى فورم اسمه 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 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
أفضل إجابة M.Abd Allah قام بنشر يونيو 23 أفضل إجابة مشاركة قام بنشر يونيو 23 تم الغاء الداله حسب فهمي بما ان الحقول المفروض تاخد من الجدول الفاضي تم عمل سجل فالجدول الفاضي للتجربه عليه safaa n.accdb 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 23 الكاتب مشاركة قام بنشر يونيو 23 جزاك الله خيرا هو دا المطلوب بس اطمع بعمل ذلك باستخدام داله 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)'") رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 (معدل) مش فاهم يعني قصدك عايزه تكتبي فى حقل volume مثلا يظهر نفس النتائج دي فالحقول الغير منضمه اللي بتطابق مع الجدول التاني ولا أنا فاهم غلط ؟ ولو ده مش قصدك وقصدك تستعملي الدوال بتاعتك فى النموذج تقدري تخليها زي ماكانت فى default value حطي الدوال ونفس الاكواد اللي معملوله هتشتغل معاكي كويس بمجرد التركيز علي حقل هيظهر النتائج اللي عايزاها ( بس معلشي ايه لزومها بالطريقه دي المفروض القيم تكون متغيره قدام هتعتمدي علي الجدول الاول يبقي محتاجه عالاقل انها تكون متغيره أو عالاقل تتعمل كومبو بوكس بحيث لما تختاري منها قيمه يظهرلك القيم المماثله من الجدول التاني فالنموذج تم تعديل يونيو 23 بواسطه M.Abd Allah رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 23 الكاتب مشاركة قام بنشر يونيو 23 (معدل) 37 minutes ago, M.Abd Allah said: مش فاهم يعني قصدك عايزه تكتبي فى حقل volume مثلا يظهر نفس النتائج دي فالحقول الغير منضمه اللي بتطابق مع الجدول التاني ولا أنا فاهم غلط ؟ الحقول كلها هيكون ليها قيمه default هتيجى من الحقل fixeddefault بحيث ان المستخدم ميقعدش يكتب كل التقرير هو ممكن يعمل تعديلات عادى اما بخصوص الحقول غير المنضمه فهى لمجرد التوضيح لمدخل النتائج امثلا اسم الحقل ايه ف التقرير .. والنورمال بتاعه ايه ..وهكذا يعنى مرايه فقط وليس للتعديل عليها فى مكان تانى خاص بالتعديل على القيم ال default هو اجابة حضرتك توفى بالغرض بس كنت حابه اتعلم باكتر من طريقه وحاسه انها ممكن تتعمل بالداله دى تم تعديل يونيو 23 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 2 دقائق مضت, safaa salem5 said: الحقول كلها هيكون ليها قيمه default هتيجى من الحقل fixeddefault بحيث ان المستخدم ميقعدش يكتب كل التقرير هو ممكن يعمل تعديلات عادى اما بخصوص الحقول غير المنضمه فهى لمجرد التوضيح لمدخل النتائج امثلا اسم الحقل ايه ف التقرير زز والنورمال بتاعه ايه وهكذا يعنى مرايه فقط وليس للتعديل عليها فى مكان تانى خاص بالتعديل على القيم ال default هو اجابة حضرتك توفى بالغرض بس كنت حابه اتعلم باكتر من طريقه وحاسه انها ممكن تتعمل بالداله دى انا اصلا مبقاش يعنيني موضوع تقييم الاجابات لاني فهمت الموضوع ببساطه كل مافي الموضوع اني أغلب الوقت بفهم بالمشقلب أو اوقات مبفهمش الموضوع صح عندي ثقه إن شاءالله مفيش اي مشكله ملهاش حل بس اكون فاهم كويس ايه المطلوب وجايز مش مشكله عندك اكيد المشكله عندي اني مش فاهم ايه المطلوب بالظبط تحياتي رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 23 الكاتب مشاركة قام بنشر يونيو 23 41 minutes ago, M.Abd Allah said: انا اصلا مبقاش يعنيني موضوع تقييم الاجابات لاني فهمت الموضوع ببساطه كل مافي الموضوع اني أغلب الوقت بفهم بالمشقلب أو اوقات مبفهمش الموضوع صح عندي ثقه إن شاءالله مفيش اي مشكله ملهاش حل بس اكون فاهم كويس ايه المطلوب وجايز مش مشكله عندك اكيد المشكله عندي اني مش فاهم ايه المطلوب بالظبط تحياتي تمام تسلم لمجهودك واهتمامك وبجد اجابتك جميله وماشيه مع طلبى بالتمام بس انا كان نفسى اتعلم اعملها بالداله دى بس خلاص مش مهم رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 الان, safaa salem5 said: تمام تسلم لمجهودك واهتمامك وبجد اجابتك جميله وماشيه مع طلبى بالتمام بس انا كان نفسى اتعلم اعملها بالداله دى بس خلاص مش مهم والله انا مش متأخر بس انا فعلا أغلب الوقت مبفهمش بسهوله أو فعلا جايز مبعرفش اعبر فلو حابه تعملي حاجه تانيه ياريت حتي تعملي برسمه شبه الصوره اللي حطيتيها فالاول أو حتي اكتبي صوره بخط الايد وقولي عايزه هنا اضغط كذا او اعمل كذا أو اكتب كذا يظهرلي فالحته دي كذا و الباقي إن شاءالله بسيط رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 23 الكاتب مشاركة قام بنشر يونيو 23 هو ينفع تحويل الكود دا لماكرو لانى عندى حقول كتيره وكمان فى فورم تانيه نفس الكلام رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 1 دقيقه مضت, safaa salem5 said: هو ينفع تحويل الكود دا لماكرو لانى عندى حقول كتيره وكمان فى فورم تانيه نفس الكلام بسيطه إن شاءالله شوفي لو عايزه تعملي حاجه تانيه بالمره مفيش مشكله 🤓 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 23 الكاتب مشاركة قام بنشر يونيو 23 16 minutes ago, M.Abd Allah said: بسيطه إن شاءالله شوفي لو عايزه تعملي حاجه تانيه بالمره مفيش مشكله 🤓 بص حضرتك هى كل الفورم التانيه هتاخد default بتاعها من من نفس الجدولfixed_tbl يعنى الجدول دا انا مجمعه فيه كل نتايج التحاليل اللى بتحتاج فورم كامله لوحدها زى URINE بول STOOL براز SEMEN سائل منوى STOONE حصوه CSF سائل النخاع الشوكى 1 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 منذ ساعه, safaa salem5 said: بص حضرتك هى كل الفورم التانيه هتاخد default بتاعها من من نفس الجدولfixed_tbl يعنى الجدول دا انا مجمعه فيه كل نتايج التحاليل اللى بتحتاج فورم كامله لوحدها زى URINE بول STOOL براز SEMEN سائل منوى STOONE حصوه CSF سائل النخاع الشوكى تمام انا كده تقريبا فهمت بس معلشي مكنتش شوفت التعليق غير لما خلصت الملف ده شوفى كده عملت فورم تاني واحد بيشتغل زي مهو بالاكواد والتاني بيشتغل بالماكرو للعلم ينفع يتم دمج الماكرو مع بعض ولكن انا عملت كل واحد منفصل عشان يبقي سهل عليكي تعمليه وتعدلي فيه جربي كده وان شاء الله هبقي اعملك باقي التحاليل بالطريقه بتاعتك safaa new.accdb رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 وحسب ما فهمت كده من اخر طلب إن كل الاعتماد فى أغلب النماذج علي جدول fixed_tbl اللي فيه كل انواع التحاليل غيرت الكود فى موديل ليتناسب مع اي نموذج واعتقد كده لا داعى لوجود التكست بوكس والكمبو بوكس ممكن تحل محلهم كلهم كما بالمثال وطبعا ينفع تعملي اكتر من كمبو بوكس وتستدعي تحاليل مختلفه وبرضو ينفع يتعمل اكتر من نتيجه تحاليل فى نفس النموذج والموديل هيكون ثابت فقط تغيري اسماء الحقول الجديده وتعملي موديل ( دا إن وجد اكتر من تحليل في نفس النموذج ) لو مكانش مش هيتم تغيير اي حاجه وفالمثال نموذجين مختلفين وبيعملوا نفس النتيجه مع نفس الموديول safaa edit.accdb رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 24 الكاتب مشاركة قام بنشر يونيو 24 8 hours ago, M.Abd Allah said: وحسب ما فهمت كده من اخر طلب إن كل الاعتماد فى أغلب النماذج علي جدول fixed_tbl اللي فيه كل انواع التحاليل غيرت الكود فى موديل ليتناسب مع اي نموذج واعتقد كده لا داعى لوجود التكست بوكس والكمبو بوكس ممكن تحل محلهم كلهم كما بالمثال وطبعا ينفع تعملي اكتر من كمبو بوكس وتستدعي تحاليل مختلفه وبرضو ينفع يتعمل اكتر من نتيجه تحاليل فى نفس النموذج والموديل هيكون ثابت فقط تغيري اسماء الحقول الجديده وتعملي موديل ( دا إن وجد اكتر من تحليل في نفس النموذج ) لو مكانش مش هيتم تغيير اي حاجه وفالمثال نموذجين مختلفين وبيعملوا نفس النتيجه مع نفس الموديول safaa edit.accdb 684 kB · 1 download صباح الخير تسلم جزاك الله خيرا مينفعش اسيب الحقول زى ماهى مش عايزاها كومبوبوكس لان كل حقل ليه مكان فى تقرير رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 24 مشاركة قام بنشر يونيو 24 2 ساعات مضت, safaa salem5 said: صباح الخير تسلم جزاك الله خيرا مينفعش اسيب الحقول زى ماهى مش عايزاها كومبوبوكس لان كل حقل ليه مكان فى تقرير ينفع إن شاءالله مفيش حاجه فالغالب متنفعش فالاكسس الا حاجات نادره جدا رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 (معدل) لو سمحت حضرتك يا استاذ @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 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 منذ ساعه, 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 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 تمام كدا بس مش عايزه الاقواس اللى فى الاخر رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 دا عشان هو لقى فراغات خليكي فالتعديل ده 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 خلاص انا عرفت اشيل الاقواس من الكود نقطه اخيره والله عارفه انى تقلت عليك هو هنا لو ملقاش قيمه حقل من التلاته متسجله هيدينى رسالة لايوجد سجل لا انا عايزاه يجيب القيم المتسجله واللى مش متسجل عادى الحقل بتاعه يفضل فاضى بدل مايدينى لا يوجد سجل عايزاه يجيب قيمة اى حقل متسجل Else MsgBox "لا يوجد سجل " & fieldName, vbExclamation انت ابن حلال والله تقريبا هود دا اللى انا كنت بشرحه لحضرتك رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 لا عادي مفيش مشكله 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 فى حاجه بسيطه خالص لو مالقاش سجل بنفس الشرط اللى فى الكود دا WHERE fixedname = '" & fieldName & "'" فى الحاله دى يعمل كدا Me.testnameN = fieldName & "(" & subName & ")" Me.default = null Me.Normal = null Me.Reportname = null ورساله تخرج لا يوجد قيم مسجله لهذا التحليل رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 بسيطه إن شاءالله 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 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 بصراحه انت بتقرأ افكارى هو ازاى كدا انا لسه بكتب الطلب الاقيك عملته قبل ما اخلص كتابه تسلم لذوقك ممكن اعرف اسمك رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 مش جايز اكون عندي حد علي معرفه بالتحاليل وانواعها 😉😉 بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان