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

[safaa salem5]

عايزه لما افتح فورم اسمه

visit_frm

يروح يشوف فى جدول اسمه

test_order_tbl

لو 

test

 امامه كلمة

see report

متعلم عليها صح

تتنقل نفس الكلمه فى فيلد اسمه

Result

---------------------------------------------------------------------------------

النقطه التانيه عايزه لما اضغط على زرار 

result

يروح يشوف فى الجدول

test_order_tbl

لو 

test

 امامه كلمة

see report

متعلم عليها صح

يفتحلى نموزج بنفس اسم التحليل

-------------------------------------------------------------

لكن لو مش متعلم عليها صح
هيفتح فورم

 بناء على وجود احد الخياررات من جدول 

الاعدادات

---------------------------------------

الاول

فى حالة 

result_collect =-1

فى جدول

settings_general_tbl

فى الحاله دى

يفتح الفورم اللى اسمه

result_collect_frm

 

بنفس التحاليل  الموجوده فى

visit_frm

 بناء على المجموعه الفرعيه الخاصه بهم

sub

------------------------------------------------

التانى 

التحاليل فى حالة 

result_all  =-1

فى جدول

settings_general_tbl

فى الحاله دى

يفتح الفورم اللى اسمه

result_lab_frm

لكل تحليل على حده

 --------------------------------------------------------  

الاخيره 

التحاليل فى حالة

result_collect =-1

result_all  =-1

فى جدول

settings_general_tbl

فى الحاله دى

يفتح الفورم اللى اسمه

result_collect_frm

بناء على ال مجموعه الرءيسيه

main 

الخاص بالتحاليل المطلوبه

lab0.rarFetching info...

[safaa salem5]

  في 6‏/11‏/2023 at 15:58, safaa salem5 said:

 بالظبط زى المثال دا

 

 

Expand  

تم تعديل نوفمبر 6, 2023 بواسطه safaa salem5

[safaa salem5]

??

[safaa salem5]

ممكن حد يساعدنى

[عمر ضاحى]

بالنسبه للنقطه هذه 

  في 6‏/11‏/2023 at 15:58, safaa salem5 said:

عايزه لما افتح فورم اسمه

visit_frm

يروح يشوف فى جدول اسمه

test_order_tbl

لو 

test

 امامه كلمة

see report

متعلم عليها صح

تتنقل نفس الكلمه فى فيلد اسمه

Result

Expand  

استخدمي هذا الاستعلام 

UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'')
WHERE (((test_order_tbl.see_report)=Yes));

 

[safaa salem5]

  في 7‏/11‏/2023 at 12:44, عمر ضاحى said:

بالنسبه للنقطه هذه 

استخدمي هذا الاستعلام 

UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'')
WHERE (((test_order_tbl.see_report)=Yes));

 

Expand  

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

متشكره اوى لحضرتك  استاذ عمر

تحت حدث عند الفتح صح كدا

تم تعديل نوفمبر 7, 2023 بواسطه safaa salem5

[safaa salem5]

  في 7‏/11‏/2023 at 12:44, عمر ضاحى said:

بالنسبه للنقطه هذه 

استخدمي هذا الاستعلام 

UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'')
WHERE (((test_order_tbl.see_report)=Yes));

 

Expand  

 

  في 7‏/11‏/2023 at 12:44, عمر ضاحى said:

بالنسبه للنقطه هذه 

استخدمي هذا الاستعلام 

UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'')
WHERE (((test_order_tbl.see_report)=Yes));

 

Expand  

عمل خط احمر فى حاجه غلط

[safaa salem5]

??

[عمر ضاحى]

  في 7‏/11‏/2023 at 13:50, safaa salem5 said:

 

عمل خط احمر فى حاجه غلط

Expand  

لا لا مش كده 

بصي ده الملف ال كنت شغال عليه 
لكن للاسف ما كملت الشغل بسبب الشغل واطريت اوقف العمل فيه 
lab0.rar

ال كتبته لكي ده كود SQL لاستعلام 
وبيتم تشغيل الاستعلام من داخل النموذج بهذه الطريقة 
 

DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateTestTable"
DoCmd.SetWarnings True

على فرض ان الاستعلام اسمه   UpdateTestTable

 

ان شاء الله انا بحاول انفذ الفكره بتعتك لكن المشكله فى تواجدي على الجهاز 
فان شاء الله بحاول اخلثها لك غدا وانا فى الدوام 

  في 6‏/11‏/2023 at 15:58, safaa salem5 said:

result_collect =-1

 

Expand  

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

[safaa salem5]

  في 7‏/11‏/2023 at 17:41, عمر ضاحى said:

لا لا مش كده 

بصي ده الملف ال كنت شغال عليه 
لكن للاسف ما كملت الشغل بسبب الشغل واطريت اوقف العمل فيه 
lab0.rar

ال كتبته لكي ده كود SQL لاستعلام 
وبيتم تشغيل الاستعلام من داخل النموذج بهذه الطريقة 
 

DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateTestTable"
DoCmd.SetWarnings True

على فرض ان الاستعلام اسمه   UpdateTestTable

 

ان شاء الله انا بحاول انفذ الفكره بتعتك لكن المشكله فى تواجدي على الجهاز 
فان شاء الله بحاول اخلثها لك غدا وانا فى الدوام 

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

Expand  

 ميرسى لحضرتك يا استاذ عمر

تمام منتظره حضرتك . ولو فى امكانيه تحويل الاستعلام لكود بالكامل يبقى افضل

[عمر ضاحى]

  في 7‏/11‏/2023 at 17:58, safaa salem5 said:

 ميرسى لحضرتك يا استاذ عمر

تمام منتظره حضرتك . ولو فى امكانيه تحويل الاستعلام لكود بالكامل يبقى افضل

Expand  

Dim strSQL As String
strSQL = "UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'') " & _
         "WHERE (((test_order_tbl.see_report)=Yes));"
DoCmd.RunSQL strSQL

اتفضلى 
لكن محتاج توضيح بخصوص 
هذه النقطه 
 

 

  في 7‏/11‏/2023 at 17:41, عمر ضاحى said:

 

  في 6‏/11‏/2023 at 15:58, safaa salem5 said:

result_collect =-1

 

Expand  

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

Expand  

 

[safaa salem5]

  في 7‏/11‏/2023 at 18:08, عمر ضاحى said:

Dim strSQL As String
strSQL = "UPDATE test_order_tbl SET test_order_tbl.result = IIf([see_report]=Yes,[test],'') " & _
         "WHERE (((test_order_tbl.see_report)=Yes));"
DoCmd.RunSQL strSQL

اتفضلى 
لكن محتاج توضيح بخصوص 
هذه النقطه 
 

 

 

Expand  

بيعمل

UPDATE 

باسم التحليل

لا انا عايزه يعمل

UPDATE 

بقيمه ثابته اللى هى كلمة 

SEE REPORT

 

[عمر ضاحى]

اوك
سهله 
غيري فى الكود الكلمة

[test]

الى 

 

'SEE REPORT'

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

راجعي الملف المرفق

 

 

lab0.rarFetching info...

تم تعديل نوفمبر 7, 2023 بواسطه عمر ضاحى

[safaa salem5]

  في 7‏/11‏/2023 at 18:22, safaa salem5 said:

بيعمل

UPDATE 

باسم التحليل

لا انا عايزه يعمل

UPDATE 

بقيمه ثابته اللى هى كلمة 

SEE REPORT

 

Expand  

ملخص الفكره  كلها 

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

هكلمك مثلا على وظايف الكى

فيها 

UREA

CREATININE

URIC ACID

SODIUM

POTASSIUM

فى الحاله دى

وظايف الكلى هى المجموعه الفرعيه 

SUB

كل تحليل من اللى انا زكرتهم داخل تحت ال 

SUB دي

تمام

------------------------------------------------------------

طيب 

وظايف الكلى ووظايف الكبد مجموعه الدهون

كلها مجموعات فرعيه

SUB

تقع تحت مجموعه رأيسيه

MAIN

اسمها 

CHEMISTRY

---------------------------------------------------------------

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

لكن فى بعض الاوقات بيكون التحليل تقريره كبير 

زى صورة الدم وزى البول 

علشان كدا عايزاه يفتح الفورم الخاص باسم التحليل 

تم تعديل نوفمبر 7, 2023 بواسطه safaa salem5

[عمر ضاحى]

  في 7‏/11‏/2023 at 18:37, safaa salem5 said:

ملخص الفكره  كلها 

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

هكلمك مثلا على وظايف الكى

فيها 

UREA

CREATININE

URIC ACID

SODIUM

POTASSIUM

فى الحاله دى

وظايف الكلى هى المجموعه الفرعيه 

SUB

كل تحليل من اللى انا زكرتهم داخل تحت ال 

SUB دي

تمام

------------------------------------------------------------

طيب 

وظايف الكلى ووظايف الكبد مجموعه الدهون

كلها مجموعات فرعيه

SUB

تقع تحت مجموعه رأيسيه

MAIN

اسمها 

CHEMISTRY

---------------------------------------------------------------

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

لكن فى بعض الاوقات بيكون التحليل تقريره كبير 

زى صورة الدم وزى البول 

علشان كدا عايزاه يفتح الفورم الخاص باسم التحليل 

Expand  

جربي المرفق ولو فى ملاحظات اكتبيها 

 

[safaa salem5]

كل اللى قدامه كلمة 

SEE REPORT 

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

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

سواء كانت تحت مجموعه فرعيه او مجموعه رئيسيه

 لكن 

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

[عمر ضاحى]

غيري فى الاعدادات 

 

[safaa salem5]

كلمة 

See Report

خلاص ظبطها تسلم ايديك

 

  في 7‏/11‏/2023 at 18:56, عمر ضاحى said:

غيري فى الاعدادات 

 

Expand  

بص يا استاذ عمر 

اى تحليل قدامه كلمة 

see report

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

[عمر ضاحى]

واضح انى ممكن اكون مش مركز  وفى غلط انا واقع فيه 
فانا هستأذنك لغدا ان شاء الله لاني مش شايف قدامي وبصحة الساعه 4:30 الفجر 
ف باذن الله هعيد الكود كله من اول وجديد واعطيكى الحل النهائى ان شاء الله

[safaa salem5]

  في 7‏/11‏/2023 at 19:09, عمر ضاحى said:

واضح انى ممكن اكون مش مركز  وفى غلط انا واقع فيه 
فانا هستأذنك لغدا ان شاء الله لاني مش شايف قدامي وبصحة الساعه 4:30 الفجر 
ف باذن الله هعيد الكود كله من اول وجديد واعطيكى الحل النهائى ان شاء الله

Expand  

متشكره لحضرتك جزاك الله كل خير فى انتظارك

[safaa salem5]

  في 7‏/11‏/2023 at 17:41, عمر ضاحى said:

لا لا مش كده 

بصي ده الملف ال كنت شغال عليه 
لكن للاسف ما كملت الشغل بسبب الشغل واطريت اوقف العمل فيه 
lab0.rar

ال كتبته لكي ده كود SQL لاستعلام 
وبيتم تشغيل الاستعلام من داخل النموذج بهذه الطريقة 
 

DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateTestTable"
DoCmd.SetWarnings True

على فرض ان الاستعلام اسمه   UpdateTestTable

 

ان شاء الله انا بحاول انفذ الفكره بتعتك لكن المشكله فى تواجدي على الجهاز 
فان شاء الله بحاول اخلثها لك غدا وانا فى الدوام 

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

Expand  

اه سجل واحد

[عمر ضاحى]

جربي الملف ده

lab0.rarFetching info...

[safaa salem5]

  في 8‏/11‏/2023 at 04:01, عمر ضاحى said:

جربي الملف ده

lab0.rar 179.12 kB · 8 downloads

Expand  

مساء الخير يا استاذ عمر

معلش لسه فاتحه الملف دلوقتى

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

بس عندى  ملاحظه لو وقتك يسمح

لو  ينفع بدل ما ندخل جدول 

setting 

جوا الفورم 

استبدلها بكود

زى 

dulookup

ياريت ياريت ياريت

--------------------------------------

النقطه التانيه

لما اضغط على زرار 

result 

عايزه قيمة 

sub,code,test

تتنقل من ال

sub form

للفورم الرءيسى زى الصوره

الزرار

lab after.rarFetching info...

تم تعديل نوفمبر 8, 2023 بواسطه safaa salem5

[عمر ضاحى]

  في 8‏/11‏/2023 at 16:39, safaa salem5 said:

مساء الخير يا استاذ عمر

معلش لسه فاتحه الملف دلوقتى

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

بس عندى  ملاحظه لو وقتك يسمح

لو  ينفع بدل ما ندخل جدول 

setting 

جوا الفورم 

استبدلها بكود

زى 

dulookup

ياريت ياريت ياريت

--------------------------------------

النقطه التانيه

لما اضغط على زرار 

result 

عايزه قيمة 

sub,code,test

تتنقل من ال

sub form

للفورم الرءيسى زى الصوره

الزرار

lab after.rar 752.61 kB · 0 downloads

Expand  

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

انا كنت حاطه علشان اغير واجرب بدل ما ادخل على جدول الاعدادات وادور واعدل مجرد اختصاره

-------------

بالنسبه للنقطه الثانيه سهله جدا

بس ايه الغرض

[عمر ضاحى]

عموما 

اتفضلى هذا الحل 

lab after.rarFetching info...