نجوم المشاركات

شاشة المستخدمين بالطريقة التي اشرت اليها

بعيدا عن تقديم الحل حيث ان الاستاذ الفاضل @husamwahab وضع حل جميل ومختصر اكثر مما كنت ساقدمه ولكن لي تعليق اتمنى قبوله من وجهة نظري ان وضع خاصية عدم التكرار لاسم العميل امر غير صحيح للاسباب التالية سوف تجد عملاء يحملون نفس الاسم حينها ستجد انك مضطر لتعديل البرنامج قد يتم تسجيل اسم الموظف ثلاثي ويعاد تسجيله رباعيا عندها سوف يقبل البرنامج التسجيل قد يحصل ان مدخل البيانات يسجل الاسم بشكل مختلف مثلا إبراهيم و ابراهيم او عبدالله و عبد الله وهكذا وبالتالي ستجد ان لديك عملاء مكررة سجلاتهم لذا يتطلب ان يكون عدم التكرار للرقم المدني او السجل المدني حسب التسمية لكل دولة لكون هذا الرقم فريد ولايمكن تكرارة

عمل جميل اخي العزيز كل عمل من صنع البشر عرضة لوجود بعض النواقص والملاحظات والاقتراحات وما سوف اكتبه ليس انتقاد لعملك ولكن وجهة نظر قد تصيب وقد تخطئ وانا اخطئ اكثر مما اصيب اولا : امل في البداية الاطلاع على الموضوع التالي فيه بعض النصائح والتي قد تكون ذات فائدة ثانيا في جدول المستخدمين توجد بعض الملاحظات لو قمت بتقسيم الجدول الى جدولين الاول لكود المستخدم واسمه وكلمة المرور والجدول الاخر للصلاحيات وهذه الملاحظة سبق ان ذكرت في الموضوع المشار اليه اعلاه "تقسيم الجدول" انت قمت بوضع مايقارب 70 حقل للصلاحيات في جدول المستخدمين لاسماء كائنات القاعدة وكان بالامكان اختصارها الى حقلين فقط وبدل من هذا العدد الكبير للحقول كان بامكان اسناد حقل اسماء النماذج والتقارير الى استعلام من جدول النظام المخفي msysobjects والحقل الاخر حقل من نوع "نعم لا" وتوجد بالموقع العديد من الامثلة الخاصة بالصلاحيات اعطاء صلاحيات للمستخدم على الاستعلام اجده غير مفيد فمن الافضل ان يتعامل المستخدم مع النماذج والتقارير ثالثا اغلاق الشفت بكلمة مرور لايقدم الحماية المنشود لسهولة فتحه عن طريق ملف خارجي متوفر ايضا بالموقع والافضل بعد الانتهاء من البرنامج واختباره تحويله الى صيغة accde وقبل التحويل لا تنسى الاحتفاض بنسخة مفتوحة اعتذر عن اي اخطاء املائية او لغويه تحياتي وتقديري

استاذ @husamwahab بارك الله فيك الحقيقة انت ماقصرت وقدمت حل جميل حسب طلب الاخ جو ونفس الكود الجميل يمكن ان يخدمه لو قبل النصيحة بحيث يكون عدم التكرار للرقم القومي تقبل كل التقدير والاحترام 🌹

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

تفضل اخي العزيز ارجو ان يكون طلبك APE.rar

الشكر لله اخي العزيز RaDwAn00 تفضل هذا المثال قد يكون فيه طلبك Database1.rar

في حال تكرر الاسم اكثر من مرة كيف يمكن للتكست بوكس (الاسماء) ان يتسع اكثر من اسم واحد و للتكست بوكس (الرقم) ان يتسع اكثر من رقم واحد الخ..... اذا اردت يمكن عمل ذلك على الصفحة وليس داخل اليوزر كما في هذا الملف (صفحة 2) sader_mh_ali_2.xlsm

قلت لك عندي زوجتي (هاي واحدة) ، ومن مشاركاتك السابقة ، قلت لي استاهل عروسة (صاروا اثنين) ، وبعدها على طول بعد صرت استاهل واحدة (صاروا ثلاث) ، يعني صاروا اثنين في رقبتك 🙂 وهاي الرابعة ان شاء الله 🙂 منو قدّي يا ولد جعفر

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

شكر علي الملاحظات كما أوضحت سابقا انا مش مبرمج انا بتعلم من العمالقه الموجودين في الموقع ١_ اعترف بخطأ استخدام الغه العربيه في التصميم وان شاء الله خطأ لايتكرر في المستقبل ٢_ صلاحيات المسخدمين لم ابحث علي امثال كثيره بل صممت ما يناسب امكانياتي البسيطه في البرمجه وما يوصلني للهدف بسرعه ٣_ اتفق معك علي ان الشفت ليس حمايه لمن لديهم معرفه باكسس لاكن مش كل المستخدمين للبرنامج لديهم معرفه باكسس ٣_ محتاج مقترحاتكم للحمايه هل الموجود امامكم كافي لحمايه البرنامج ولا لا ؟؟؟؟

اذا كنت ستستخدم البرنامج عن طريق الشبكة تجنب استخدم البحث والفلترة في حدث عند التغيير واستخدم بدلا من ذلك حدث بعد التحديث ايضا من الاخطاء التي نشاهدها استخدام في بداية اي كود on error resume next وهذا يؤدي الى استكمال تنفيذ الاجراء حتى في حالة وجود خطأ

تمام شكرا جزيلا استاذ سليم ربنا يبارك فى حضرتك وكل سنة وحضرتك طيب .

عفوا ، قمت بتعديل الشرح الى: 2. وسرعة الـ Switch او Router يجب ان تكون 1 جيجا كذلك ، ما اعرف بالضبط ، ولكن مادام يوجد اتصال بين الجهاز والسيرفر عن طريق كتابة المسار ، فلا يوجد مشكلة 🙂 جعفر

لا يُنصح بإستعمال حقول Lookup ، ولا حقول المرفقات في الجدول ، ولا عمل الكومبوبوكس في الجدول.

هنا مشاركتين قد تفيدك

السلام عليكم و رحمة الله و بركاته حبيت مشاركة طريقة حساب فاتورة كهرباء في مصر بعد رفع اسعار من خلال برنامجين الاول ملف اكسس للكمبيوتر و انشاء ملف آخر بصيغة (اتش تي ام ال) للجوال و الكمبيوتر من خلال اكسس يمكن ارفاق ملف (اتش تي ام ال) جاهز ولكن من اجل رعاية قواعد منتدى خليت اكسس ينشئ الملف و بعد ضغط على زر اسفل النموذج تجد ملف للموبايل في مسار برنامج KiloByts.accdb

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

وماذا عن المبلغ الأكبر من 5000 هل عليه خصم فيستمر الخصم 20% أم بدون خصم؟ عملت العديل بحيث أي مبلغ بعد 3750 يشمله 20% خصم =IFERROR(IF(A1<=1250;A1*2.5%;IF(AND(A1>1250;A1<=2500);(A1-1250)*10%+1250*2.5%;IF(AND(A1>2500;A1<=3750);(1250*2.5%)+(1250*10%)+(A1-2500)*15%;IF(A1>3750;(1250*2.5%)+(1250*10%)+1250*15%+(A1-3750)*20%;0))));0)

عمل جميل أخي ASUS2020 ويحقق المطلوب من السائل ومن باب النقاش والفائدة فقد تتفق معي أن القيم بالمعادلة لم تكن بعد 5 سنوات ربما المعادلة =DATE(YEAR(A2) + 5, MONTH(A2), DAY(A2)) تعطي قيم دقيقة، مع التعديل عليها لتوافق المطلوب من السائل تقبل مروري

وعليكم السلام أشكر الإدارة على متابتعها وحرصها، وأتمنى من أخي محمد7788 الإلتزام بشروط المنتدى مرفق ملف كما طلبت راجعه وأفدني بأي ملاحظة لاحظ أن المعادلات في الصف 3 مستمرة ولم يظهر نتيجة في الخلايا المتقدمة لأن الخلية في الصف 1 بدون قيمة بالتوفيق محمد7788.xlsx

الكودات في اليوزر معقدة بعض الشيء لذلك قمت بنغييرها و وضعت لك االاكواد المناسبة اضغط على الزر Show User لاظهار اليوزرفورم تختار اسم الصف من الكومبو فتظهر لك في اليست بوكس كل البيانات لاضافة سجل >>>>>>>>>>>> تختار اسم الشيت من الكومبو وتملإ البيانات تم تضغط على "اضافة" اذا لم تكن الببيانات كافية(8 عناصر على عدد الأعمدة) يتم تلوين التكست بوكس الفارغ باللون الاحمر و يتوقف الكود عن العمل بانتظار تعبئة كل البيانات لحذف سجل >>>>>>>>>>>>>>>>>>> تحتار من الليست بوكس وتضغط حذف لتعديل سحل >>>>>>>>>>>1- تختار من الليست بوكس 2-تبدل ما تريد من خلال التكست بوكسات ثم تضغط على تعديل الملف يحتوي على صفحتين فقط ويمكن اضافة قدر ما تريد من الصفحات (بشرط التقيد بجدول البيانات من العامود A الى العامود H ) بدون صفوف فارغة abdo_1.xlsm

يعطيكم الف عافيه وجزاكم الله كل الخير

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

السلام عليكم شاهد الملف المرفق حساب التاريخ.xlsx

حمل المرفق البحث بالرقم القومى.xlsx

جرب هذا التعديل fc = Application.WorksheetFunction.CountIfs(Sheet13.Range("C2:C5000"), invs, Sheet13.Range("B2:B5000"), invn)

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

=INDEX(صور;MATCH(رقموظيفي;الرقم;0);0) نقوم يتسمية عمود الرقم الوظيفي ب الرقم نقوم بتسمية عمود الصور ب صور نقوم بتسمية الرقم الوظيفي ب رقموظيفي ثم نستعمل الدالتين لجلب الصورة ثم من الصيغ نقوم بتحديد المعادلة =INDEX(صور;MATCH(رقموظيفي;الرقم;0);0) باسم photo نقوم بجلب اي صورة بعد الظغط في شريط الصيغة =photo يمكنك تغيير التسميات كما تشاء بروف.xlsx

تفضل اخي العزيز هذا مثال بسيط حسب فهمي لطلبك كلمة المرور : 123 Root211.rar

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

تفضل اخي الكريم والمشكلة كما ذكرت لك في اسماء الحقول Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "ExaminationT", "Patient=" & Forms!All_Data!Patient_id & " and [DataEntryDate] = #" & Me.Date_Examination & "#") > 0 Then MsgBox "تاريخ الزيارة مكرر", vbInformation, "تحذير" Cancel = True End If End Sub مشكلة تكرار الكشف فى نفس اليوم.rar تحياتي

تم تحرير كود لهذا الغرض Option Explicit Sub MY_Data_New() Application.ScreenUpdating = False Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, ro%: ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) SH_from.Cells(3, 1).Resize(MY_max, 6).Copy With T.Cells(ro, 1) .PasteSpecial (xlPasteValues) .PasteSpecial (xlPasteFormats) End With ro = ro + MY_max End If Next SH_from With T.Range("A4").Resize(ro - 4, 6) .Sort key1:=Range("b3"), Header:=1 .Value = .Value End With Application.ScreenUpdating = True arraNge_all End Sub '+++++++++++++++++++++++++++++++++++ Sub arraNge_all() Application.ScreenUpdating = False Dim nro% Dim MM% nro = Cells(Rows.Count, 1).End(3).Row Dim color_rg As Range For MM = 4 To nro If Range("a" & MM).Interior.ColorIndex <> xlNo Then If color_rg Is Nothing Then Set color_rg = Range("a" & MM).Resize(, 6) Else Set color_rg = Union(color_rg, Range("a" & MM).Resize(, 6)) End If End If Next color_rg.Copy Range("a" & nro + 1) color_rg.EntireRow.Delete Range("A4", Range("A3").End(4)).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" Range("A3").CurrentRegion.Value = _ Range("A3").CurrentRegion.Value Range("A4").Select Set color_rg = Nothing Application.ScreenUpdating = True End Sub الملف من جديد M_data_new_SA.xlsm

تم معالجة الامر ملاحظة يجب ترك الصف 2 في الشيت total فارغاً للحفاظ على بنية الجدول دون تدخل خلايا غريبة (بذلك تكون اول خلية بالجدول بعد الرأس هي الخلية A4) Option Explicit Sub get_data_New() Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, Ro%: Ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value Ro = Ro + MY_max End If Next SH_from With T.Range("A3").CurrentRegion .Sort key1:=Range("b3"), Header:=1 .Columns(1).Offset(1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" .Offset(1).Borders.LineStyle = 1 .Offset(1).InsertIndent 1 .Value = .Value .Font.Bold = True End With End Sub M_data_new.xlsm

قم بتغيير اسم الشيت مجمل إلى Total ونفذ هذا الكود Option Explicit Sub get_data() Dim SH_from As Worksheet Dim T As Worksheet Dim Rt%, MY_max%, Ro%: Ro = 3 Set T = Sheets("Total") Rt = T.Cells(Rows.Count, 2).End(3).Row If Rt <= 2 Then Rt = 3 With T.Range("B3").Resize(Rt, 5) .ClearContents .Interior.ColorIndex = xlNo End With For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value With T.Cells(Ro + MY_max, 3) .Value = SH_from.Name .Offset(, -1).Resize(, 5).Interior.ColorIndex = 6 End With Ro = Ro + MY_max + 1 End If Next SH_from End Sub الملف مرفق M_data.xlsm

اعرض الملف الفرق بين تاريخين بالميلادي والهجري بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ============== استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بالتواريخ في الأكسس مثل حساب العمر أو مدة بينتاريخين ------------------------------- سواء بالتقويم الميلادي أو الهجري ////////////////////////// سواء التاريخ منسق كتاريخ أو كنص ++++++++++++++++++ ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 31 ماي, 2017 الاقسام قسم الأكسيس

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا واوعى تنسى مشاركة الفيديو لو بخل بها غيرك ما وصلت إليك زكاة العلم نشره

تفضل الكود الذي يتيح لك فتح الموقع عن طريق الانترنت إكسبلورر Sub OpenStudentURL() Dim IE 'Microsoft HTML Object Library Dim Element As IHTMLElement Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate "http://student.moe.gov.eg/new/serch_students.aspx" Do Until .readyState = 4 DoEvents Loop .document.all.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = Sheets("URL").Range("B1").Value .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = Sheets("URL").Range("C1").Value .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = Sheets("URL").Range("D1").Value For Each Element In .document.getElementsByTagName("input") If Element.Type = "submit" Then Element.Click: Exit For Next End With End Sub تقبل تحياتي

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

أخى العزيز البرنامج المرفق فى نسخته المجانية ولا يحتاج بيانات تسجيل وبالطبع النسخة الكاملة بها مزايا أكثر فهذه النسخة تزيل الحماية دون أن تعرفك بكلمات المرور أما النسخة الكاملة الغير مجانية فهى تخيرك بين إزالة كلمات المرور أو إظهارها لك وعلى ذلك فالبرنامج المجانى لحل مشكلة بعضنا يعانى منها وليس أكثر ولو كنت نسيت كلمة المرور فبإمكانك إزالتها بالبرنامج المجانى ثم وضع كلمة مرور جديدة لحماية ملفاتك

شكر وتقدير واحترام استاذنا الحسامى بارك الله فيك استاذنا لكل روائعك بالمنتدى ممكن اخالف حضرتك واوافقك فى نفس الوقت فأن البرنامج له وعليه استاذنا كالكوب يشرب فيه الدواء ويشرب فيه المحرمات وكلا حسب نواياه احب اسجل شكرى لحضرتك كثيرا جدا احترامى