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)

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

؟؟؟

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

عندى فورم فيه مربع نص غير منضم اسمه testnameN عايزه عند الضغط دبل كليك فى اى من مربعات النص الخاصه بالفورم يفتح فورم اسمه Resultaddfixed_frm شكل الفورم دا عباره عن ليست بوكس اسمها Resultlist مصدرها استعلام زى الصوره وفى نفس الفورم دا حقل غير منضم اسمه fixedname المفروض هتيجى قيمته من الفورم السابق واللى من خلاله هيتم عمل فلتره لليست بوكس مباشرة جربت الكود دا بس مش ظابط معايا Dim frm As Form DoCmd.OpenForm "Resultaddfixed_frm", acNormal Set frm = Forms("Resultaddfixed_frm") frm.Controls("fixedname").Value = Me.testnameN.Value [Forms]![Resultaddfixed_frm]![Resultlist].Requery كل حاجه شغاله تمام ماعدا الفلتره لانى حاسه ان الفورم مش حاسس بال Requery

هل من مجيب؟؟

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

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

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

تسلم ايدك يا باشمهندس متشكره جدا لحضرتك 🌷

سؤال اخير هو ليه حضرتك ما استخدمتش الحقل اللى اسمه كود فى الفورم الرئيسى واستدعيته من داخل الليسته مع انى بستدعيه اثناء اختيار العنصر بالكود دا code.Value = Resultlist.Column(0)

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

عندى ليست بوكس داخل فورم عايزه لما اقف على اى عنصر فيها وبعدين اضغط زرار دليت يتحذف مع العلم ان فيه حقل غير منضم فى الفورم الرئيسى اسمه code بتيجى قيمته من الليست بوكس اثناء اختيار احد العناصر Dim strSQL1 As String strSQL1 = "DELETE fixedresults_tbl.code, fixedresults_tbl.* " & _ "from fixedresults_tbl" & _ "WHERE (((fixedresults_tbl.code)=" & [Forms]![Fixed_frm]![Resultlist] & "));"

الف سلامه عليك ربنا بيتمم شفاك على خير 🌷

تمام كدا ممكن نضيف للكود منع تكرار قيمة fixedresult لنفس ال fixedname موجوده مسبقا

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

الكود مش شغال معايا

عندى فورم مصدره جدول اسمه Fixed_tbl فيه حقل منضم اسمه Fixedname وعندى حقل غير منضم اسمه Newresult عايزه لما اكتب اى قيمه فى الحقل غير المنضم واضغط زرار اضافه ياخد القيمه اللى اتسجلت فىه ويحفظها فى جدول تانى اسمه fixedresult_tbl فى حقل اسمه Fixedresult وكمان ياخد معاه قيمة fixedname يحفظه فى حقل بنفس الاسم

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

بص حضرتك هى كل الفورم التانيه هتاخد default بتاعها من من نفس الجدولfixed_tbl يعنى الجدول دا انا مجمعه فيه كل نتايج التحاليل اللى بتحتاج فورم كامله لوحدها زى URINE بول STOOL براز SEMEN سائل منوى STOONE حصوه CSF سائل النخاع الشوكى

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

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