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

تأكد من اسم المربع النصي اللي فيھا قيمة حقل price_masrof ھل اسمە نفسە ، لان الاكواد مضبوطة وما بھا شيء

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

جرب هذا ووافنا بالنتائج يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود Photo.rar

ممكن نجربة هذا الكود اذا لم يكن هناك صفحة بأي اسم يقوم الماكرو باضافة صفحة جديدة بهذا الاسم و ينقل البيانات اليها Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub الملف مرفق tarhil_by_names.xlsm

جرب هذا الماكرو ( اذا كان هناك تكرار تصدر رسالة بمكان التكرار و يقوم الماكرو بمسح ما كتبته) Option Explicit Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim x%, First As Range, y%, My_address$ Application.EnableEvents = False If Not Intersect(sh.Columns(1), Target) Is Nothing Then Set First = Cells(Target.Row, 1) y = Application.CountIf(ActiveSheet.Columns(1), First) If y > 1 Then MsgBox "Error!" & Chr(10) & "This Record is Allready Exits in" & Chr(10) & _ ActiveSheet.Name Target = vbNullString GoTo Exit_me End If For Each sh In Sheets If sh.Name = ActiveSheet.Name Then GoTo My_next: x = Application.CountIf(sh.Columns(1), First) If x > 0 Then My_address = sh.Columns(1).Find(First, lookat:=1).Address MsgBox "Error!" & Chr(10) & "This Record Is Already Exits in" & Chr(10) & _ sh.Name & ":" & My_address Target = vbNullString GoTo Exit_me End If My_next: Next End If Exit_me: Application.EnableEvents = True End Sub الملف مرفق No Repeat In All Sheets.xlsm

انظر المرفق ..... لسرعة الاجابة حاولت تعديل حقول الجدول لديك .... Database1.mdb

شكرا لك والحمدللە خلصت من المشكلة

وعليكم السلام و رحمة الله و بركاته لان نموذجين الفرعي و رئيسي مربوطين بعلاقة عمودين id و Title احذف علاقة Title و تنحل المشكلة بإذن الله

شكرا استاذ خالد على المداخلة في الاكسس نتاعمل مع النماذج والتقارير كشكل الظاھري والجداول والاستعلامات و الماكرو والاكواد نتعاملە بشكل خلفي من شان جمالية البرامج واسف ما نظرت للاسم المشتركين

هههه ... طيب الحمد لله رب العالمين

لقد عرفت اين الخطا الدالة هذه صحيحة .. ولكن اتضح ان المشكلة ان النموذج مغلق الاضافة والتعديل وعندما عدلتهم نجحت الطريقة =Nz(Sum([price_masrof]);0) جزاكم الله خيرا جميعا وبارك الله فيكم

السلام عليكم بعد اذن الاساتذه الكرام ممكن تعمل اخقاء للنموذج عند فتح الجدول بالكود التالي DoCmd.OpenTable "Table1", acViewNormal DoCmd.OpenForm "FORM1", , , , , acHidden

السلام عليكم "...";Iif( isnull([Price_masrof]);0) لعل هذا ما تحتاج. أعتذر لعدم تنسيق الأمر كوني أكتب من الهاتف الجوال.

ادخل دالة Nz في تلك العمليات

اخي العزيز هذه الدالة تعمل لدي بصورة صحيحة 100% 1- هل جربت ان تجعل القيمة الافتراضية للحقل = صفر 2- جرب الدالة iif isnull ارفق مثال لو احبب لكي نرى المشكلة تحياتي

نعم ممكن ، لكن لماذا تريد فتح الجدول ؟ لماذا لا تعمل نموذج اخر على ذلك الجول وتفتحە ؟ اتفضل اليك كود لفتحە Docmd.openTable “NameTable”,acViewNormal

السلام عليكم انظر هل هذه النتيجة مرضية لك ووافنا بالنتائج تمنياتي بالتوفيق ادارة محل1.rar ملاحظة هامة صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات (وليس + مرتجع المبيعات) فالكمية التي قام العملاء بارجاعها الينا يجب خصمها وليس اضافتها الي المبيعات وكذلك بالنسبة للمشتريات

تفضل اخي العزيز ملف لاحد الاخوة في الموقع اتمنى ان يكون المطلوب Access Import_ up.rar

العامود D اجعله فارغاً من كل شيء نفذذ هذا الماكرو Sub tarheel22() Dim myrange1 As Range Set myrange1 = Sheets("Sheet1").Range("E3:G4") Sheets("Sheet1").Range("a3").CurrentRegion.Clear Sheets("Mydata").Range("A3:C500").AdvancedFilter _ xlFilterCopy, myrange1, Sheets("Sheet1").[a3] End Sub الملف مرفق Salim_222.xlsb

السلام عليكم و رحمة الله و بركاته أعمل بكود لفتح الصور على الرسام (Shell "mspaint.exe ""d:\photo\worker\" & [Worker] & ".jpg""", vbMaximizedFocus) المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path) وجزاكم الله خيرأ Photo.rar

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

اخى الفاضل امير كيف يتم حذف رقم 2 وتمت عليه نفس العمليات والعملاء معهم نسخ مطبوعه الحذف يتم للسجل الحالى واللذى تم الترجع عن تنفيذه اما ما تم فلا والله اعلى واعلم اما بالنسبه لداله DMax فكما تتقول معى 1,3,4 فهنا الداله ستاخذ اعلى رقم وهو 4 وتضيف 1 سيكون السند رقم 5 هنا لم نقم بعمليه اعاده الترقيم بتاتا وجرب احذف السجل رقم 1 بالمثال المعدل من الجدول ثم افتح النموذج وشوف ماذا سيعطيك هل سيعطيق رقم 1 ام 3 وقد قمت بالتجربه قبل رفع مشاركتى هذه والله اعلى واعلم وفى انتظار مشاركه اخوانى واساتذتنا الافاضل للمزيد من المعلومات والايضاح تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

جرب هذا IIf(IsError(Sum([price_masrof];0)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

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

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

لا استطيع البرنامج كبير جدا

اخي العزيز يمكن لديك مشكله ارفق مثال يكون افضل للتصحيح تحياتي nullzero.rar

السلام عليكم و رحمة الله و بركاته رغم اخي احمد و اخي حسين حل الموضوع ولكن حبيت مشاركة طريقة التعديل على طريقة متغيرات في نفس فنكشن Pupil Names.accdb

اخي العزيز محمد سلامة انطر لدالة IIF بالصورة تحياتي

اخواني الافاضل شكرا من القلب على هذه الكلمات الطيبة و المؤثرة في النفس تفضل التعديل اخي الكريم Pupil Names_UPDate.accdb

اذا كنت تريد الاستيراد يتم من خلال الأكواد فلابد من اتباع الخطوتين الأوليين بالمشاركة السابقة ثم استخدم الكود التالي DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel12, _ ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود "StUpdatInfo", _ ' هنا تحدد اسم الجدول المراد الاستيراد اليه Me.txtPath, _ 'هنا تحدد مسار ملف الاكسل المراد استيراده True, _ 'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا "A1:Z10000" 'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها ولا تنسي الخطوتين الأوليين تمنياتي بالتوفيق

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

تم حذف مشاركة بسبب مشاركة موضوع قبل اطلاع على مشاكة أخي و الاستاذ/ @احمد الفلاحجي ونسبة تشابه مشاركتين 99% تقريبا

الاخ ميلاد طارق يجب اختيار الرقم من القائمة في الخلية( N1 ) شاهد المرفق Test_1.xls

فكرة رائعة (حفظ الصور بالـ ID الخاص بالموظف ) لان بالفعل بعض الرموز تعمل مشاكل جزاكم الله خيراً

كفكرة هل جربت nz

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

وعليكم السلام -تفضل New Microsoft Excel Worksheet.xlsx

انت استعملت الكود الذي يذكر لك المكرر في نفس الصفحة مرة واحدة كات يجب استعمال الكود الثاني اي الكود الموجود في الرد على الأخ (ابا يوسف) التي تحمل عنوان : في هذاه الحالة يلزم هذا الكود

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

يرجى اضافه الايميل وكذلك رقم الواتس للمراسلة

ملحق الدرس الرابع الخاص بالرسائل نستعرض هنا الرساله التى تحتوى على مربع ادخال بيان قد يكون اسم ما وقد يكون كلمه سر للدخول فيما يختص بالجزئية الأولى يكون كود الرساله بهذا الشكل وهذا الكود على سبيل المثال Sub example() Dim result As String result = InputBox("Text?", "Title") If result <> "" Then End If End Sub فتكون الرساله بهذا الشكل كما بالصورة التالية وإذا أفترضنا أننا نريد أن يجعل الاكسل يظهر الاسم او الكلمه التى ستكتب داخل هذا المربع فيكون الكود بهذا الشكل Sub example_1 () Dim result As String ("result = InputBox("Text ?", "Title", "write the name If result <> "" Then MsgBox result End If End Sub الاختلاف بين الكودين فى اضافة هذه الجملة Msgbox result وهى تعنى ظهور رساله تاليه بها الجملة التى تم ادخالها بالمربع فتظهر الرساله كما بالصورتيين التاليتين بعد كتابه الاسم على سبيل المثال تظهر الرساله بالشكل التالى نأتى لجزئية كلمة السر لقد جعلت الكود خاص بالمثال العملى المرفق يختص بالدخول الى الشيت الثانى وقد سجلت الكود بمحرر الأكواد الخاص بحدث الشيت الثانى أى داخل الصفحه نفسها من خلال الفيجوال بيسك وان شاء الرحمن سوف نتطرق لأمر الأكواد بشىء من التفصيل فى الدروس القادمة وما هو الفرق بين الكود داخل موديول أو بحدث الشيت أو بحدث المصنف بالكامل والكود الخاص برساله كلمه السر كالتالى Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "يلزم معرفة كلمة السر للدخول لهذه الصفحه ", "فضلاً أدخل كلمة السر") If IsNull(x) Or x = "" Then GoTo xx If x = "بسم الله" Then MsgBox "كلمة السر تم قبولها تفضل لتنفيذ العمليه" Else MsgBox "Wrong Password" & Chr(13) & " عفواً لم تدخل كلمة السر الصحيحه سيتم العوده بك للصفحة الرئيسيه !!", vbOKOnly Sheets("sheet1").Activate End If End Sub فعند محاولة الدخول للشيت الثانى تظهر لنا الرساله كما بالصورة التالية وعند كتابة كلمه السر وهى بسم الله بين الكلمتين مسافة واحده فقط تظهر لنا رساله بهذا الشكل وبالضغط على زر OK يتم الدخول الى الشيت الثانى فى حال كوننا لم ندخل كلمه السر الصحيحة تظهر لنا رساله توضح ذلك وتنتقل مباشرة الى الشيت الأول والرساله كما بالشكل التالى مرفق ملفين الأول ملحق الدرس الرابع PDF الثانى مثال عملى لما ورد بالدرس وتقبلوا منى وافر الاحترام والتقدير ملحق الدرس4.rar مثال عملى ملحق الدرس 4.rar

طريقتي في عمل الاستعلام الخاص بالنموذج الفرعي المخصص لعرض نتائج البحث وكلها تؤدي الغرض طريقة البحث في النموذج الفرعي2.rar

حياكم الله أجمعين وأعتذر لانقطاعي والحمد لله ... مرفق المطلوب طريقة البحث في النموذج الفرعي.rar

طريقة ثانية : البحث في النموذج الفرعي نفرض أن لدينا مكتبة في جدول باسم Book تحوي اسم الكتاب والمؤلف والناشر وتاريخ النشر ونرغب في عمل مربع بحث مشترك بحيث عند الكتابة فيه يبحث في أي خانة مباشرة سواء كان اسم الكتاب أو المؤلف أو الناشر ... فالعمل على النحو التالي : 1) ننشئ جدولا باسم Book ونضمنه الحقول المطلوبة من اسم الكتاب والمؤلف والناشر ... إلخ. 2)ننشئ نموذجا مرتبطًا بالجدول (نماذج مستمرة) ونسميه FoBook. 3) ننشئ نموذجا آخر من جديد ثم طريقة عرض التصميم . 4) في رأس النموذج نضع مربعي نص الأول نسميه Text1 والآخر text2 5) في مربع النص text1 من الخصائص حدث عند التغيير نضع الكود التالي Dim x x = Text1.Text text2 = x Me.FoBook.Requery حيث text1 اسم مربع النص الأول و text2 اسم مربع النص الثاني وFobook هو اسم النموذج الذي تم عمله كما في الفقرة 2. 6) من خصائص مربع النص text2 تنسيق مرئي (لا). 7) في خانة التفصيل من هذا النموذج ندرج نموذج فرعي ونختار استخدام نموذج موجود ثم نختار نموذج FoBook. 8) نغلق النموذج ونقوم بحفظه باسم FoormBook 9) نعود للنموذج FoBook (الذي تم عمله في الفقرة 2) ومن خصائص النموذج بيانات مصدر السجل ثم نضغط على النقاط الثلاث ثم يطلب هل تريد عمل استعلام ثم موافق يفتح لك استعلام أدرج فيه حقول الجدول كافة. 10) وفي هذا الاستعلام ضع الكود التالي تحت كل حقل تريد البحث فيه في خانة معيار مع ملاحظة تدرجة في كل مرة في أو كما في المثال ثم اغلق واحفظ عملك Like "*" & [Forms]![Foormbook]![Text2] & "*" 11) ارجع إلى النموذج FoormBook واكتب في مربع النص الظاهر أمامك وتجد آليه البحث قد عملت.. أ والله الموفق طريقة البحث في النموذج الفرعي.rar

بسم الله ما شاء الله اخي حامل المسك انت حامل المسكين مسك الافكار و مسك الإبداع ما الفائدة من الحقل nz([book].[namebook];"**"] و احببت ان الفت نظرك الى الحقل namebook في النموذج لماذا لم تقفله منعا لاي تعديل !! ووفقك الله الى ما يحبه و يرضاه

نفس الشيء ضع فى المعيار الخاص بحقل التاريخ فى مصدر بيانات التقرير Between [Forms]![FormName]![DateFrom] And [Forms]![FormName]![DateTo] حيث DateFrom و DateTo هي أسماء مربعات النص التي تحوي التاريخ مرفق مثال أعتقد أنه للاخ ابن مسقط Date_from_to.rar

فى مصدر بيانات التقرير ضع المعيار التالي في حقل التاريخ Between [أدخل تاريخ البداية من فضلك] And [أدخل تاريخ النهاية من فضلك] و اذا أردت اظهار التاريخين علي التقرير فضع مربعي نص و اجعل وصدرهما التعبيران التاليان [أدخل تاريخ البداية من فضلك] [أدخل تاريخ النهاية من فضلك]