safaa salem5

محتاجه حاجه صغيره بس Creatinine_clearenceلما اعلم على الكود اللى فوق يحصل فى حدث Private Sub V_Change() ولما اعلم على Cockcroft او MDRD الكود اللى فوق يحصل فى حدث Private Sub S_Change()

خلاص الحمدلله تم الحل Private Sub V_AfterUpdate() Dim C As Double Dim age As Integer Dim wt_kg As Double Dim S As Double ' تحديد المعادلة بناءً على اختيار المستخدم If Me.Creatinine_clearence = True Then ' استخدام Creatinine clearance equation Me.C = Me.U * Me.V / (1440 * Me.S) ElseIf Me.Cockcroft = True Then ' Cockcroft formula ' استعادة القيم من النموذج age = Me.age wt_kg = DLookup("wt_kg", "resrvation_tbl", "id = " & Me.ID) S = Me.S ' حساب قيمة C باستخدام Cockcroft formula If Me.gender = "Male" Then C = (140 - age) * wt_kg / (72 * S) Else C = (140 - age) * wt_kg / (72 * S) * 0.85 End If Me.C = C ElseIf Me.MDRD = True Then ' MDRD equation ' استعادة القيم من النموذج age = Me.age S = Me.S ' حساب قيمة C باستخدام MDRD equation If Me.gender = "Male" Then C = 175 * S ^ (-1.154) * age ^ (-0.203) Else C = 175 * S ^ (-1.154) * age ^ (-0.203) * 0.742 End If Me.C = C End If End Sub

عندى اربع حقول منضمه كالاتى S ,U,V,C مطلوب حساب حقل ال C بواحد من المعادلات الاتيه واللى هيتم تحديدها باختيار المستخدم عند التعليم فى مربع الاختيار CHECK BOX Creatinine clearence فى الحالة الاولى عند التعليم امام C= U× V/1440× S ----------------------------------------------------------------------------------------------------------------- Cockcroft formula الحاله الثانيه عند التعليم امام C= [(140- age)× wt kg / [(72× S)] (Male) اذا كان حقل يساوى gender ) C= [(140- age)× wt kg / (72× S)]× 0.85 (Female) اذا كان حقل يساوى gender ) ---------------------------------------------------------------------------------------------------------------- - MDRD الحاله الثالثه عند التعليم امام C= 175× [S]-1.154 × [age]-0.203 (Male) اذا كان حقل يساوى gender ) C= 175× [S]-1.154 × [age]-0.203 × 0.742 (Female) اذا كان حقل يساوى gender ) ----------------------------------------------------------------------------------------------------------------- مع العلم بوجود حقول age ,gender فى نفس الفورم اما حقل الوزن wt kg هيتم استدعاؤه من فورم reservation_frm بشرط تساوى حقول ال id فى كلا الفورمين

If ControlValue <> 0 Then Me.inr = Math.Round((X / ControlValue) ^ IsiValue, 2) Me.ratio = Math.Round(X / ControlValue, 2) Me.conc = Math.Round((ControlValue / X) * 100, 2) End If بردو لما بضغط عالحقل بيطلع ارقام كتير بعدالعلامه عملتها بالشكل دا ظبطت معايا If ControlValue <> 0 Then Me.inr = Format((X / ControlValue) ^ IsiValue, "0.00") Me.ratio = Format(X / ControlValue, "0.00") Me.conc = Format((ControlValue / X) * 100, "0.00") End If

شاشة التحرير وترتيب القوائم كانت هتبقى احلى لو بطريقة السحب والافلات

ما شاالله ماشالله بصوت ارطغرل

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

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

ازاى اعمل واجهه الاعدادات زى دى

على فكره دا فورم الدخول بتاعى😊

حاضر الاستاذ الجليل @ابو خليل نبهنى ليها سابقا بس انا عشان مضغوطه نسيت

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

' تعريف المتغيرات الخاصة بالنموذج PT_frm Dim gender As String Dim age As Integer Dim ageunit As String Dim ptRValue As Variant Dim ptLValue As Variant Dim ptHValue As Variant Dim conc_rValue As Variant Dim INR_rValue As Variant Dim ratio_rValue As Variant Dim normalType As String OpenFormAndSetFields "PT_frm" If Not CurrentProject.AllForms("PT_frm").IsLoaded Then MsgBox "نموذج PT_frm غير مفتوح.", vbExclamation Exit Sub End If With Forms("PT_frm") gender = .gender age = .age ageunit = .ageunit End With normalType = DLookup("normal_type", "test_tbl", "tcode = 144") If normalType = "sex" Then If gender = "female" Then ptRValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 147") ElseIf gender = "male" Then ptRValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 147") End If ElseIf normalType = "sex and age" Then Dim reference_value As Variant reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & gender & "' AND " & _ "Ageunit = '" & ageunit & "' AND " & _ "tcode = 144 AND " & _ age & " >= [from] AND " & age & " <= [to]") If Not IsNull(reference_value) Then Forms("PT_frm")("pt_r").value = reference_value Else MsgBox "لم يتم العثور على قيمة مرجعية للشروط المحددة.", vbExclamation End If End If ' تعيين قيمة ptRValue للحقل pt_r (خارج التحققات الشرطية) Forms!pt_frm!pt_r = ptRValue Forms!pt_frm!pt_h = ptHValue Forms!pt_frm!pt_l = ptLValue Forms!pt_frm!conc_r = conc_rValue Forms!pt_frm!inr_r = INR_rValue Forms!pt_frm!ratio_r = ratio_rValue ' استرداد الوحدات والقيم الافتراضية Forms!pt_frm!pt_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 144") Forms!pt_frm!control = DLookup("default", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 148") Forms!pt_frm!conc_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 145") Forms!pt_frm!inr_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 146") Forms!pt_frm!ratio_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 147") بص حقل pt_r الموجود فى فورم pt_frm هتيجى قيمته بناء على شرطين الشرط الاول بناء على قيمة الحقل normal_type من جدول الاعدادات فى حالة لو قيمة الحقل دا تساوى sex وكمان قيمة حقل gender الموجود فى فورمpt_frm تساوى female فى الحاله دى قيمة حقل pt_r هتيجى من حقل اسمه rfemale من جدول test_tbl ----------------------------------------- اما لو قيمة حقل gender الموجود فى فورمpt_frm تساوى male فى الحاله دى قيمة حقل pt_r هتيجى من حقل اسمه rmaleجدول test_tbl ------------------------------------------------------------------ normal_type اما لو قيمة حقل تساوى sex and age فى الحالة دى قيمة الحقل pt_r هتيجى من جدول اخر اسمه normals_tbl بحيث انه يجيب القيمه اللى تتوافر فيه الشروط الثلاث الاتيه تتساوى القيم gender ,sex,ageunit مع نظيراتها فى الجدول كما ان حقل age فى الفورم يكون بين القيمه from ,to فى الجدول او يساويهم كل الشروط دى شغاله تمام معايا بس فى حالة الاخيره مبيدنيش اى خطأ وبيدينى قيمة حقل pt_r فاضيه فلما غيرت اسم الحقل من pt_r الى pt_r1 فى الكود فى الحاله الاخيره وانشأت حقل بنفس الاسم pt_r1 تظهر القيمه بشكل طبيعى مع العلم كما قلت سابقا انها تظهر فى الحقل بدون تغيير الاسم فى الحالتين الاولى والثانيه بشكل طبيعى ودا كل الكود بسلطاته باباغنوجه ----------------------------------------------------------------------------------------------------------------------------- OpenFormAndSetFields "PT_frm" ' تعريف المتغيرات الخاصة بالنموذج PT_frm Dim gender As String Dim age As Integer Dim ageunit As String Dim ptRValue As Variant Dim ptLValue As Variant Dim ptHValue As Variant Dim conc_rValue As Variant Dim INR_rValue As Variant Dim ratio_rValue As Variant Dim normalType As String ' استخراج قيم gender و age و ageunit من النموذج pt_frm gender = Forms!pt_frm!gender age = Forms!pt_frm!age ageunit = Forms!pt_frm!ageunit ' استخراج normalType من جدول test_tbl بناءً على قيمة tcode = 144 normalType = DLookup("normal_type", "test_tbl", "tcode = 144") ' نفترض أن tcode 144 يحدد نوع الطبيعة ' التحقق من normalType و gender لتحديد السيناريو المناسب If normalType = "sex" Then If gender = "female" Then ' استخراج القيم المطلوبة للإناث ptRValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 147") ElseIf gender = "male" Then ' استخراج القيم المطلوبة للذكور ptRValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 147") End If ElseIf normalType = "sex and age" Then Dim reference_value As Variant ' استرجاع القيمة المرجعية من جدول "normals_tbl" reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & Forms("pt_frm")("gender").value & "' AND " & _ "Ageunit = '" & Forms("pt_frm")("ageunit").value & "' AND " & _ "tcode = 144 AND " & _ "Forms!pt_frm!age >= [from] AND Forms!pt_frm!age <= [to]") ' التحقق مما إذا كانت القيمة المرجعية غير فارغة If Not IsNull(reference_value) Then ' تعيين القيمة المرجعية المسترجعة إلى الحقل pt_r Forms("pt_frm")("pt_r").value = reference_value Else ' إذا لم يتم العثور على قيمة مرجعية، عرض رسالة بذلك MsgBox "لم يتم العثور على قيمة مرجعية للشروط المحددة.", vbExclamation ' قد ترغب في مسح القيمة الموجودة في حقل pt_r إذا لم تكن هذه هي السلوك المرغوب ' Forms("pt_frm")("pt_r").Value = "" End If End If ' تعيين قيمة ptRValue للحقل pt_r (خارج التحققات الشرطية) Forms!pt_frm!pt_r = ptRValue Forms!pt_frm!pt_h = ptHValue Forms!pt_frm!pt_l = ptLValue Forms!pt_frm!conc_r = conc_rValue Forms!pt_frm!inr_r = INR_rValue Forms!pt_frm!ratio_r = ratio_rValue ' استرداد الوحدات والقيم الافتراضية Forms!pt_frm!pt_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 144") Forms!pt_frm!control = DLookup("default", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 148") Forms!pt_frm!conc_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 145") Forms!pt_frm!inr_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 146") Forms!pt_frm!ratio_u = DLookup("unit", "test_tbl", "normal_type = '" & normalType & "' AND tcode = 147")

نفس المشكله ماتزال قائمه

انا عرفت سبب المشكله .... لما بغير اسم الحقل من pt_r الى اى اسم تانى واحط الاسم دا فى الكود القيمه بتظهر بشكل طبعى بجد مش عارفه اى السبب وانا عايزه الاسم مايتغيرش لانه داخل فى احتمالات تانيه ودا الكود كامل ' فتح النموذج PT_frm وتعيين الحقول المختلفة اعتمادًا على gender و normalType OpenFormAndSetFields "PT_frm" ' تعريف المتغيرات الخاصة بالنموذج PT_frm Dim gender As String Dim age As Integer Dim ageunit As String Dim ptRValue As Variant Dim ptLValue As Variant Dim ptHValue As Variant Dim conc_rValue As Variant Dim INR_rValue As Variant Dim ratio_rValue As Variant Dim normalType As String ' استخراج قيم gender و age و ageunit من النموذج pt_frm gender = Forms!pt_frm!gender age = Forms!pt_frm!age ageunit = Forms!pt_frm!ageunit ' استخراج normalType من جدول test_tbl بناءً على قيمة tcode = 144 normalType = DLookup("normal_type", "test_tbl", "tcode = 144") ' نفترض أن tcode 144 يحدد نوع الطبيعة ' التحقق من normalType و gender لتحديد السيناريو المناسب If normalType = "sex" Then If gender = "female" Then ' استخراج القيم المطلوبة للإناث ptRValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hfemale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rfemale", "test_tbl", "normal_type = 'sex' AND tcode = 147") ElseIf gender = "male" Then ' استخراج القيم المطلوبة للذكور ptRValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptLValue = DLookup("lmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") ptHValue = DLookup("hmale", "test_tbl", "normal_type = 'sex' AND tcode = 144") conc_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 145") INR_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 146") ratio_rValue = DLookup("rmale", "test_tbl", "normal_type = 'sex' AND tcode = 147") End If ElseIf normalType = "sex and age" Then Dim reference_value As Variant ' استرجاع القيمة المرجعية من جدول "normals_tbl" reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & Forms("pt_frm")("gender").value & "' AND " & _ "Ageunit = '" & Forms("pt_frm")("ageunit").value & "' AND " & _ "tcode = 144 AND " & _ "Forms!pt_frm!age >= [from] AND Forms!pt_frm!age <= [to]") ' التحقق مما إذا كانت القيمة المرجعية غير فارغة If Not IsNull(reference_value) Then ' تعيين القيمة المرجعية المسترجعة إلى الحقل pt_r Forms("pt_frm")("pt_r1").value = reference_value Else ' إذا لم يتم العثور على قيمة مرجعية، عرض رسالة بذلك MsgBox "لم يتم العثور على قيمة مرجعية للشروط المحددة.", vbExclamation ' قد ترغب في مسح القيمة الموجودة في حقل pt_r إذا لم تكن هذه هي السلوك المرغوب ' Forms("pt_frm")("pt_r").Value = "" End If End If ----------------------------------------------------------------------------------- ' دالة لفتح النموذج المحدد وتعيين الحقول Private Sub OpenFormAndSetFields(formName As String) ' ?? ??? ??? ????? ??? ?? ?? ?????? ??????? ???? ??? ???????? ????? ?? ??? ??? DoCmd.OpenForm formName, , , "[ID]=" & Me.ID Forms(formName)!ID = Me.ID Forms(formName)!pname = Forms![visit_frm]![pname] Forms(formName)!gender = Forms![visit_frm]![gender] Forms(formName)!age = Forms![visit_frm]![age] Forms(formName)!code = Forms![visit_frm]! Forms(formName)!vdate = Forms![visit_frm]![vdate] Forms(formName)!ageunit = Forms![visit_frm]![ageunit] Forms(formName)!tcode = Me.tcode Forms(formName)!sub = Me.test Forms(formName)!dtitle = Me.Parent![dtitle] Forms(formName)!ref_by = Me.Parent![ref_by] Forms(formName)!ptitle = Me.Parent![ptitle] End Sub

خلاص انا هحاول مع نفسى متشكره

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

Private Sub RE_cmd_Click() OpenFormAndSetFields "PT_frm" ------------------------------------------------------------------------------------------- Private Sub OpenFormAndSetFields(formName As String) DoCmd.OpenForm formName, , , "[ID]=" & Me.ID Forms(formName)!ID = Me.ID Forms(formName)!gender = Forms![visit_frm]![gender] Forms(formName)!age = Forms![visit_frm]![age] Forms(formName)!ageunit = Forms![visit_frm]![ageunit] Forms(formName)!pname = Forms![visit_frm]![pname] End Sub Dim reference_value As Variant reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & Forms("pt_frm")("gender").value & "' AND " & _ "Ageunit = '" & Forms("pt_frm")("ageunit").value & "' AND " & _ "tcode = 144 AND " & _ "age >= [from] AND age <= [to]") If Not IsNull(reference_value) Then Forms!pt_frm!pt_r.value = reference_value End If Private Sub RE_cmd_Click() OpenFormAndSetFields "PT_frm" ------------------------------------------------------------------------------------------- Private Sub OpenFormAndSetFields(formName As String) DoCmd.OpenForm formName, , , "[ID]=" & Me.ID Forms(formName)!ID = Me.ID Forms(formName)!gender = Forms![visit_frm]![gender] Forms(formName)!age = Forms![visit_frm]![age] Forms(formName)!ageunit = Forms![visit_frm]![ageunit] Forms(formName)!pname = Forms![visit_frm]![pname] End Sub هل ممكن انه مش قادر يقرأ قيمة age ممكن اكتبها بالشكل دا reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & Forms("pt_frm")("gender").value & "' AND " & _ "Ageunit = '" & Forms("pt_frm")("ageunit").value & "' AND " & _ "tcode = 144 AND " & _ "Forms!pt_frm!age >= [from] AND Forms!pt_frm!age <= [to]")

مع العلم الكود هيكون تحت زرار عشان يفتح الفورم اللى اسمه pt_frm والفورم دا هيكون موجود فيه حقول غير منضمه بالاسماء التاليه age و gender و ageunit بالشكل التالى ----------------------------------------------------------------------------------------------- Private Sub RE_cmd_Click() OpenFormAndSetFields "PT_frm" ------------------------------------------------------------------------------------------- Private Sub OpenFormAndSetFields(formName As String) DoCmd.OpenForm formName, , , "[ID]=" & Me.ID Forms(formName)!ID = Me.ID Forms(formName)!gender = Forms![visit_frm]![gender] Forms(formName)!age = Forms![visit_frm]![age] Forms(formName)!ageunit = Forms![visit_frm]![ageunit] Forms(formName)!pname = Forms![visit_frm]![pname] End Sub

السلام عليكم لو عايزه اجيب قيمة reference_value من جدول بس بشروط Dim reference_value As Variant reference_value = DLookup("Reference", "normals_tbl", _ "Gender = '" & Forms("pt_frm")("gender").value & "' AND " & _ "Ageunit = '" & Forms("pt_frm")("ageunit").value & "' AND " & _ "tcode = 144 AND " & _ "age >= [from] AND age <= [to]") If Not IsNull(reference_value) Then Forms!pt_frm!pt_r.value = reference_value End If دا شكل الجدول اللى عايزه منه قيمة Reference بيدينى ايرور على كلمة age تفتكرو ليه normals_tbl num tcode Gender from to Ageunit Low High unit Reference 1 1 Male 1 10 Days 10 90 µg/mL 10-90 2 1 Female 1 10 Days 15 20 µg/mL 15-20 3 1 Male 11 20 Days 11 44 µg/mL 11-44 4 1 Female 11 20 Days 15 58 µg/mL 15-58 7 144 Male 1 50 Years 10 50 % 10-50

انا مش حابه اعلق على كلامك انا عموما عملتها بمساعدة منتدى اجنبى شكرا لكل اللى تعب معايا ومش ناسيه ولا ناكره مجهود حد. وعلشان مش حابه اسبب لحد تعب او اجهاد بسبب طلباتى اللى بتكون صعبه ومبهمه او مش واضحه بالنسبالكم علشان كدا انا اخدت قرار مش هدخل المنتدى تانى شكرا لكل الناس اللى ساعدتنى ووقفت معايا @عمر ضاحى شكرا @Foksh شكرا @ابو جودي شكرا @ابو خليل شكرا @kkhalifa1960 شكرا حبيبتى @hanan_ms

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

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

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

اصل انا هلغى زرار ابديت وهخلى الكود عند النقر المزدوج