UserUser2

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

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

هذا الكود لاستاذنا @ابوخليل المطلوب تعديله ان الكود يفتح السجل المحدد فى النموذج المستمر وبعدين اللى بعده وهكذا الى ان ينتهي للسجلات التى حقل OK بها FALSE الكود الحالى بيبدا باول سجل فى النموذج المستمر help3 6.mdb

UP

تمام بالظبط كده ياريت لو ترسل مثال من فضلك او تعدل على الملف الاساسى

الملف الاساسى كبير ويحتوى على نماذج عده لو فى التقرير اختبار الكود الخاص به 42 وايضا اختبار اخر الكود الخاص به 65 المطلوب ان التقرير SUBFORM يعرض الخاص بهم فقط

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

بالظبط هذا المفترض يظهر

تمام جزاك الله خيرا على تعبك ومجهودك استاذ @ابو البشر يتبقى خطوه من فضلك اطلع على الملف Testreport (1).mdb

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

اشكرك على وقتك استاذ @ابو البشر المطلوب نفس الصوره بالظبط

فى الملف المرفق تقرير مطلوب ظهور Tital مره واحده وعدم تكرارها مع باقى البيانات فى حقل com Testreport.mdb

استاذ @ابوخليل جزاك الله خيرا على وقتك المطلوب نفس المشاركه المشار اليها فى الموضوع بالاعلى الجديد المطلوب هو لو التست Urine يفتح نموذج ال urine وليس نموذج form2 وكذلك تست stool يفتح نموذج ال stool وليس نموذج form2 Testform.mdb

up

هذا الموضوع لاستاذنا الفاضل @ابوخليل محتاج انفذه على الاكواد دى كيفيه عمل ذلك Private Sub Command3_Click() DoCmd.GoToRecord , , acFirst DoCmd.OpenForm "form2" ifrm = 1 j = 1 هذا الكود خاص بحضرتك ------------------------------------------------- محتاج انفذه هنا [Forms]![Orders_frm]![testcode] = Me.testcode [Forms]![Orders_frm]![testname] = Me.testname If Me.testcode = 346 Then DoCmd.OpenForm "Postcoital_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] ElseIf Me.testcode = 5 Then DoCmd.OpenForm "Znstain_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] ElseIf Me.testcode = 440 Then DoCmd.OpenForm "Tuberculin_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] Else DoCmd.OpenForm "Resultenter_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID] End If