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

السلام عليكم ورحمة الله وبركاته أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه أثناء تصفحي لأحد المواقع وجدت يوزرفورم به خيارات متعدد لتوليد الكود الخاص بـ MsgBox ووجدته مفيد للأخوة المبتدئين في برمجة الـ VBA وأنا أولهم اليوزر فورم أنا ترجمت المحتوى الظاهر عليه للغة العربية حتى يتمكن الجميع من استخدامه بمشيئة الله أتمنى يكون الموضوع غير مكرر ويكون مفيد ومرفق الملف. MsgBox Code Generator.rar

الأخ الكريم سعد زياد أهلا ومرحبا بك في المنتدى ومنور يا صاحبي يرجى فيما بعد إن شاء الله أن تضغط الملف نفسه وترفعه بدلاً من إرفاق صورة إليك الملف التالي عله يفي بالغرض يوجد بالملف المرفق 5 معادلات بالنسبة للمعادلات المكتوب بجانبها كلمة Array Formula عند كتابتها يجب الضغط على Ctrl + Shift + Enter لأنها معادلات صفيف عندك 5 اختار اللي تعجبك (ممكن يكونوا أربعة مفيش مشكلة بس 5 مع بعض لا مينفعش .. الشرع محللك أربعة بس ) تقبل تحياتي Smallest Number Greater Than Zero.rar

السلام عليكم مرحبا أخي انا جربت اكثر من شئ صراحة ما اشتغل على Activx Control الموجود " Spinner " ما ظبطت ولكن جربت كحل بديل اني عملت 2 ماكرو واحد لزيادة الرقم الذي يتم تغيير والأخر لنقص الرقم بأكواد بسيطة Range("I2").Value = [I2] + 1 Range("I2").Value = [I2] - 1 وتم حماية الصفحة كاملة واستخدام الكود التالي في حدث Thisworkbook > Workbook_Open حتى يتم حل مشكلة الباسورد Private Sub Workbook_Open() Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.Protect Password:="", _ UserInterFaceOnly:=True Next wSheet End Sub الباسورد طبعا انا حطيته فارغ "" وإنما لو في باسورد أخر هيكون مكانه كالتالي wSheet.Protect Password:="كلمة السر تكتب هنا ", _ المنادة 2.rar

أخي الحبيب محمد صالح جرب الرقم 101000 جرب هذا الملف Tafket UDF Function.rar

السلام عليكم ورحمة والله أقدم لكم أخواني البرنامج رقم 22 من تصميمي وهو برنامج خاص بضبط المحاضرات ومواعيدها 1- يحوي البرنامج على نظام تصنيف حديث معتمد في معظم برامج المحاسبة 2- نموذجي الكشف وطريقة العمل ( التحكم بالاعمدة المعروضة في نافذة معاينة - التحكم في التقرير - خيارات الفلترة متعددة الاشكال و الانماط ) 3- يمكن انشاء اكثر من قاعدة بيانات والعمل عليهم طريقة تشغيل البرنامج 1- بعد فك الضغط 2- تنصيب البرنامج على قرص D 3- تشغيل البرنامج من أيقونة تظهر على سطح المكتب 4- تخفيض أمان أكسس تلقائيا أثناء التنصيب 5- لا يوجد مستخدمين أو كلمات مرور أنتظر منكم الرد والتقييم الرابط https://drive.google.com/file/d/0B_ZrhTFFRjn3QnB4b3hzVTFZRHc/view?usp=sharing تحياتي للجميع

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

السلام عليكم ورحمة الله وبركاته منتدانا العظيم الكبير اوفيسنا تحية طيبة وبعد اخي الفاضل/ رجب جاويش تحية عطرة علي ما تقدمه لنا من كنترولات شيت ساعدتنا كثيرا في انجاز اعمالنا بسرعة ودقة وشكل جميل ولكن لي طلب هو للكل وليس لي وحدي وهو ارجو من الله ان تتكرم علينا به فالموضوع مستعجل جدا وهذا رجاء من فضلكم وسامحونا عليه سارسل لسيادتكم شكل الشيت بالمواصفات المطلوبة للادارة وبالحجم المطلوب (90 × 50)سم ارجو من سيادتكم ان تتكرموا علينا باضافة هذه الصفحة الي ملفكم محتوية علي الناجحين وصفحة اخري محتوية علي الراسبين(زي ما هي مرسلة لسيادتكم) وللعلم سيادتكم انه يجب ان يكون في كنترول الصف الاول صفحة للناجحين وصفحة للراسبين اما في الصف الثاني الثانوي (لكل شعبة صفحة للراسبين وصفحة للناجحين) ملحوظة: الشيت يحتوي في حالة الناجحين علي 20 اسم ، وفي حالة الراسبين علي 10 اسماء فقط فوق كل اسم صف فارغ سواء للصف الاول او الصف الثاني ولسيادتكم جزيل الشكر شيت تبييض الادارة.rar

السلام عليكم ورحمة الله تعالى وبركاته نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام كيفية استرجاع الجداول المحذوفة يمكن استرجاع الجداول المحذوفة فى قاعدة بينات اكسس ولكن بثلاث شروط 1 - لم يتم اغلاق قاعدة البانات بعد حذف الجدولا 2 - لم يتم ضغطها 3 - تم حذف الجدول باستخدام واجهة مستخدم اكسس ضع هذا الكود فى وحدة نمطيه Function UnDeleteTable(Optional sName As String) Dim db As DAO.DATABASE Dim tdf As DAO.TableDef Dim sTable As String Dim sSQL As String Dim sMsg As String If IsMissing(sName) Then sName = "RestoredTable" If Len(sName) = 0 Then sName = "RestoredTable" Set db = CurrentDb() For Each tdf In db.TableDefs If Left(tdf.Name, 4) = "~tmp" Then sTable = tdf.Name sSQL = "SELECT [" & sTable & "].* INTO " & sName sSQL = sSQL & " FROM [" & sTable & "];" db.Execute sSQL sMsg = "A deleted table has been restored as " & sName MsgBox sMsg, vbOKOnly, "Restored" GoTo Exit_Undelete End If Next MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found" Exit_Undelete: Set db = Nothing Exit Function Err_Undelete: MsgBox Err.Description Resume Exit_Undelete End Function ويمكنك استدعائها فقط بهذا الكود UndeleteTable("MyTable") لااعلم مدى اهمية ذلك بالنسبة لكم اخوانى الكرام ولكن ما كنت احبسه عنكم قم بتصميم قاعدة بينات للتجربة وانشء الجداول واضف بسجلاتك ثم قم بمسها واستدعها من خلاا الكود

أخي الحبيب احمد الرشيدي تفضل Smallest Number Greater Than Zero.rar

بتعصب لما أسمع 2003 (مع احترامي لكل الأعضاء الذين ما زالوا يستخدمون الأوفيس العجوز ..!!) خليكوا في الأوفيس الشباب ..ربنا يفتح عليكم من بركاته

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

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

أخي الكريم أسامة .. الاستفسار الأول : وجدت بالملف المرفق 3 تواريخ .. وفي شرحك للمطلوب أفهم أن العمل على تاريخين .. وضح .. هل العمل سيكون على تاريخين فقط (وما هما إذا كانت الإجابة بنعم ) وإذا كان العمل على 3 تواريخ فكيف سيتم التعامل مع التواريخ الثلاثة؟ استسفسار آخر .. الملف المرفق النتائج التي به صحيحة ؟؟ وأنت تريد اختزال هذا الكم من المعادلات ؟؟!!

وضحت الفكره يحفظك ربنا ويبارك فيك شرحك ولااروع

اتفق معك واذا كنت ترد كود حذف بينات جدول اماماك طريقان اما استعلام حذف او هذا الكود حيث table1 هو اسم الجدول المراد حذف بياناته DoCmd.Requery DoCmd.SetWarnings False DoCmd.RunSQL "DELETE table1.* FROM table1" DoCmd.SetWarnings True Form.Requery MsgBox "تم مسح جمع البيانات"

حياك الله يا أبا البراء ..وأشهد الله إن مرورك وتشجيعك أسعدني.. ..أسعدك الله، ووفقك لكل خير.. ..مع خالص حبي.. وتقديري..

الاستاذ الفاضل المحترم / ياسر بعد التحية ،، بعتزر عن عدم تواجدي لظروف خارجة عن ارادتي وبعتزر على مجهودك الخالص لوجه الله تعالي ، وايضا الاستاذ علاء وكل من شارك فى حل هذه المشكلة ، وكلمة شكر لا تكفي فعلا لمجهوداتكم العظيمة ، وبعتزر عن اهمالي ، جاري ان شاء الله تنزيل الملف والمتابعة

استبدل الكود بهدا Sub hid() Dim myrng As Range lr1 = Cells(Rows.Count, 2).End(xlUp).Row Set myrng = Range("a2:a1048576") myrng.Rows.Hidden = True Range("a" & lr1 + 1 & ":" & "a" & lr1 + 2).Select Selection.Rows.Hidden = False Range("a" & lr1).Rows.Hidden = True 'Range("a" & "2" & ":" & "a" & lr1 - 1).Rows.Hidden = True Range("a" & lr1 + 1).Select Range("a" & lr1 + 1).Activate End Sub Private Sub Worksheet_Change(ByVal Target As Range) lr1 = Cells(Rows.Count, 2).End(xlUp).Row mycell = Range("d" & lr1).Address If Not Intersect(Target, Range(mycell)) Is Nothing And Target.Count = 1 Then If Target.Address = Range("d" & lr1).Address Then On Error Resume Next Application.ScreenUpdating = False hid Range("a" & lr1 + 2 & ":" & "a" & "1084576").Rows.Hidden = True End If End If Application.ScreenUpdating = True End Sub

أنا لسه شايف رسالتك الكريمة... دخلت على العنوان وسأقرأ الموضوع "الحلقة التكرارية" ثم أسجل رأيي الذي هو من الآن "الموضوع أكثر من رائع" لي طلب : في موضوع "طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري خطوة بخطوة" كان هناك كود لإلغاء علامة "X" في الفورم ولكن ما التغيير فى الكود إذا كان عندي أكثر من فورم وأريد إلغاء علامة "X" من جميع الفورم بالبرنامج وجزاكم الله الخير الكثير سأرسل لك أول مذكرة عملتها في الكمبيوتر سنة 1984 (طبعا هذا للتندر وليس للتعلم ولتعرفوا الفرق الكبير بين ما كنا نعرفه زمان وما يتيسر لكم الآن... ربنا يوفقكم ويقويكم). السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

شكرا لمرورك اخى الكريم وانتم فضلكم علينا كثيرا

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

موضوع جميل جدا اعزائي ! وحبيت اشارك بالمعلومات التالية : 1. يعتبر فكرة مناسبة لاكسس زمان ! ايام 2003 ! وقد طرح في موقع الفريق العربي على ما اذكر ومن اخ اسمه هشام ! وهذا رابط الشرح بالفيديو إنشاء قاعدة بيانات علي الانترنت وربطها بمايكروسوفت إكسيس - YouTube 2. هناك حلول جديدة من ميكروسوف وهي : - باستخدام الشير بوينت حيث يوجد به خدمة اضافية اسمها اكسس سيرفيس تتيح الربط بملفات اكسس ليعمل ملف على الانترنت طبعا لابد ان يكون نوع الملف اكسس انترنت وذلك من خيارات انشاء ملف جديد في الاصداري 2010 و 2013 لان الشاشات والتقارير لابد ان تكون صديقة لمستعرض الويب ! - استخدام sql azure وهو ضمن التحول للتقنية السحابية clouding طبعا مشاركتي هي معلومة فقط وليس لي خبرة في ذلك ! اي هي مفاتيح فقط وعليك البحث عن التفاصيل وفي اي من المصادر التعليمية الموثوقة ! تحياتي

قَالَ شُرَيْحٌ: دَعْ مَا يَرِيبُكَ إِلَى لَا مَا يَرِيبُكَ، فَوَاللَّهِ مَا وَجَدْتُ فَقْدَ شَيْءٍ تَرَكْتُهُ ابْتِغَاءَ وَجْهِ اللَّهِ.

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

السلام عليكم عفوا اخي احمد ، اسمح لي بإبداء رايي: صحيح ان البرنامج قد يكون ملكا لك ، ولكن البيانات ليست ملكك ، فهي ملك الذي ادخلها ، واذا دمرتها/حذفتها فانك تعتدي على ملكية غيرك !! لو كنت مكانك ، لأقفلت البرنامج بعدم السماح للمستخدم بعمل اي شئ ، سوى تصدير بياناته الى الاكسل مثلا. جعفر

الك الحل تقريب.rar

أخي الكريم بفرض أن الرقم موجود في الخلية A1 ضع المعادلة التالية في الخلية B1 مثلاً =FLOOR(A1,10)

تفضل أخي الكريم هذا الملف من أفضل مقنياتي تفقيط عربي وانجليزي في ملف واحد ar_en_tafkeet.rar

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

واحقاقا للحق هو كود منقول من احد اساتذة المنتدى مع التعديلات البسيطة

اخى الفاضل جرب المرفق برنامج متابعة المكتبة.rar

هذا هو المرفق المطلوب عند كتابه رقم الجلوس تكتمل بيانات الشهادة استدعاء شهادات1.rar

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

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

السلام عليكم أحبتي في الله عذرا أخي ياسر كنت أظن أن تحويل الدالة لكود أمر سهل وخاصة بعد ما عرضت الفكرة وعلى العموم هذا الملف بعد تحويل الدالة لكود حتى تعم الفائدة Mas_Translator2.rar

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

أخي الحبيب أبو يوسف للأسف الكود لا يعمل الآن حيث أن الخدمة التي يعتمد عليها الكود أصبحت غير مجانية ولكن هناك كود بالمنتدى أو بالأحرى دالة معرفة للأستاذ محمد صالح (ابحث عن ترجمة ) ستجد موضوع بهذا الخصوص .. http://www.officena.net/ib/index.php?showtopic=61139&hl=%D8%AA%D8%B1%D8%AC%D9%85%D8%A9#entry394249

وعليكم السلام ورحمة الله وبركاته ... تابع مع هذا المنتدى الرائع حتى تصل لما تريد لن تجد أفضل من منتدانا "أوفيسنا " عطاء بلا حدود

أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar

أضف القرآن الكريم الى الاوفيس

بعد اذن الاساتذة الافاضل هذه معادله اخرى لاثراء الموضوع =IF(B4="";"";IF(ISNUMBER(SEARCH(".";B4;1));1;2)) تقبلوا تحياتى n.rar

اكتب هذه المعادلة واسحب نزولاً حيث A هو عامود الارقام المطلوبة =IF(A1<>"",IF(INT(A1)=A1,1,2),"")

هل هذا ما تريد ؟ جرب المرفقات Book1.rar

اساتذى الاعزاء اعضاء منتدى الكرام لكم منا جزيل الشكر والامتنان على ما قدمته لنا من اثراء للمعلومات وتوفير للوقت ودقه البيانات وما اريده هو عمل UserForm تكون مهمته ترحيل البيانات وتسكينها فى اماكنها المحدده وان يكون كل عمليه ترحيل برقم مسلسل ينشا تلقائى حتى اذا تم الادخال خطا بامكانيع المستخدم الضغط على التعديل وكتابع رقم القيد وادخال التعديل عليه كما اريد فى توقيت الخروج السيارة وتوقيت الخروج اختصار بحيث يسنع من ساعه الكمبيوتر بمعنى السياره خرجت الساعه 11صباحا اريد اختصار على الكيبوبورد مثلا ALT. T يعطنى وقت الساعه اللى على الكمبيوتر وشكر على تعاونك المستفيض معنا سيارات.rar