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

السلام عليكم انا قرأت الموضوع بالخطأ ، قرأته اول وآخر سنه ، فأعتذر ارى انكم ما شاء الله اكملتوا الموضوع ، ولكني هنا اعطيكم الحل بنفس الطريقة السابقة : . والنتائج: . ولكن في شيء لم انتبه له البارحة لما وضعت جوابي ، وهو ان السنة في الجدول emp هو نص وليس رقم ، والذي معناه اننا يجب ان نحوله الى رقم قبل ان نأخذ Max ، وإلا فلن نحصل على السنة الصحيحة (صحيح ان النتائج الان ستكون صحيحة ، ولكننا نعرف ان تسلسل النص يكون غير صحيح ، وتسلسل الرقم يكون صحيح) أختي ، لا تهتمي بالاستعلامات الاولى ، فالاستعلام الاخير qry_Update_Values سيأخذ القيم بنفسه ويُتم التحديث جعفر 655.db1.mdb.zip

بعد اذن معلمى جعفر Shell "calc" هذا الامر يفتح الالة الحاسبة بغض النظر عن موقعا بالجهاز لانه يختلف من نسخ الويندوز

ربنا يبارك فيك استاذ ياسر .. عمل ولا اروع '=========================== 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو استدعاء بشرط 'تم هذا الكود في 15/2/2017 Sub استدعاء() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم شيت الهدف والمدى المطلوب مسحه Sheets("Sheet2").Range("B7:AJ10000").ClearContents 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A7:EF" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 3, 7, 8, 9, 11, 12, 24, 25, 35, 36, 46, 47, 57, 58, 72, 73) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به ورقم عمود المعيار If arr(i, 135) Like "*" & "نا*" & "*" Then temp(j, 1) = j For c = LBound(cr) To UBound(cr) temp(j, c + 2) = arr(i, cr(c)) Next c j = j + 1 End If Next i 'متغير اسم شيت الهدف With Sheets("Sheet2") .Range("B7").Resize(j - 1, UBound(temp, 2)).Value = temp 'سطر لمسح التسطير .Range("B7:AJ" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 End With End Sub ======================== هذا الكود خاص باستدعاء اعمده معينه بناء على شرط ( النجاح ) استدعاء بشرط.rar

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

اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub

وعليكم السلام أخي الغالي خالد الرشيدي بارك الله فيك وجزاك الله خيراً على كلماتك الطيبة .. وجزيت خيراً بمثل ما دعوت لي وزيادة

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

انا لا اعرف هل هذه المشاركتي مخالفة للقوانين ام لا اتفضل خذت هذا من برامجي اللي اعمل عليه الان BackUp.rar

وعليكم السلام أخوي حربي انا انتظرت من الامس الى اليوم حتى اعطيك هذه الملاحظة طريقة عرضك للموضوع تحتم على علينا انزال المرفق ، ثم النظر فيه لمعرفة السؤال !! مقدرة الاعضاء في المنتدى للإجابة على الاسئلة تعتمد على: 1. وجود الوقت الكافي عند العضو للإجابة ، 2. اذا كان يعرف الاجابة مباشرة على السؤال حسب وقته ، 3. بعض الاعضاء يجاوب على الاسئلة من الموبايل ، فلا يستطيع تحميل المرفق ، لذلك ، فانت حسمت الموضوع انه لا رد إلا بإزال المرفق جعفر

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

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

شكرا أستاذنا الفاضل ، دالة vlookup كانت كافية VLOOKUP VLOOKUP

وفقك الله جارى التنزيل و الدراسة

جزاك الله خيرا ... تمام

احسنت عملا شكرا لك

المطلوب السنتان الأخيرتان أيا كانا يتغير ذلك سنويا و مع ذلك فقد توصلت لحل بسيط جدا يتطلب إضافة واحدة و هى حقل فى جدول REPORT يسجل فيه رقم تقرير الموظف يعنى رقم داخلى غير الرقم العام المسلسل كما بالصورة بعد ذلك نستخدم هذا الحقل فى شرط فى استعلام التحديث DLookUp("[REP]";"REPORT";"[EMP_ID]=" & [EMP_ID] & "AND [EMP_TAQNO]=" & DCount("[EMP_ID]";"REPORT";"[EMP_ID]=" & [EMP_ID])) و مفادها البحث عن القيمة فى حقل REP بالجدول REPORT بحيث أولا : تساوى رقم الموظف ثانيا : رقم تقرير الموظف = عدد تقاريره التى حصل عليها (هذا لتقرير العام الحالى و عدد تقارير الموظف -1 و هذا لتقرير العام السابق و نبتعد عن التواريخ غير المنضبطة هاكم الملف بعد التعديل 655keraFINAL.db1.rar وشكرا لتعاونكم

نعم اعرف انا لا استخدمت قاعدة بياناتها لان بعد ما وضح لي المطلوب الى اختنا @ساره عبدالمنعم مثلا السنين تابع لموظف الاول مثلا هما 1914 و 1915 و 1916 و 1917 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 و 1919 ما تريد الان هل تريد ان يظهر لكل موظف سنتين الاخرين ام تريد ان تظهر السنتين الاخرين 1918 و 1919 وفي هذه الحالة سيكون للموظ الاول ما بها اي سجل

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

المرفق مختلف عن الملف فى أول مشاركة

بكل سرور لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام استخدمت هذا Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub واليك ملفك بعد تعديل test150.rar

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

المطلوب أحدث سجلين اثنين

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

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

المطلوب اخر سنتان ايا كانت نحن الان فى سنه 1917 يكون المطلوب تقرير 1916 -1917 السنه القادمه يكون المطلوب هما تقرير 1917- 1918 وهكذا مع شكرى لحضرتك استاذ عبدالفتاح

شكرا أخي محمد

السلام عليكم ورحمة الله وبركاته نموذج سريع للبحث في القرآن الكريم يمكنك البحث فيه بالتشكيل او بدونه طلب من الاخ الحبيب ياسر خليل ملحوظة : ارجوا استخدام المرفق فقط لغرض البحث واستخراج المعلومة المرفق 2003 نموذج بحث سريع في القرآن الكريم.rar

جزاكم الله الخير الوفير وزادكم حرصًا علي مرضاته

جزاك الله خيرا ذكرتنى ببرنامج لى قديم استخدمت فيه هذه الملفات أو مثلها Holy_Quran.rar

جرب الكود التالي Sub Test() Dim r As Range For Each r In Range("D5:D" & Cells(Rows.Count, "D").End(xlUp).Row).SpecialCells(2, 1).Areas r(r.Count + 1).Formula = "=subtotal(9," & r.Address & ")" r(r.Count + 1).Offset(, 1).Formula = "=subtotal(9," & r.Offset(, 1).Address & ")" Next End Sub

تم النقيح وضم المواضيع المتشابهة

أوك الحين البيانات ستدخل لكن راجع الجمع وانتبه لأن الشهور لو زادت عن 12 تتحول إلى سنوات كذلك الأيام لو زادت عن 30 أو 60 أو 90 ProgWork 3.rar

بالنسبة للتنقل 1. التالي Me.مستندات.Forward 2. السابق Me.مستندات.Back وبالنسبة للتقرير صمم تقرير عادي مصدره الجدول ثم اسحب المرفق للتقرير بالتفصيل وكبر حجم العنصر ليناسب حجم الصفحة بالتوفيق

افترضت - على غير المطلوب- أن المطلوب سنتان محددتان هما 1916 - 1917 و هذا المرفق ربما يحتاجه أحد غير الأخت السائلة 655kera.db1.rar

استاذ محمد عند تحويل الملف الي اكسيل 2003 اعطاني هذا الخطاء التقاط صورة2.rar

تفضل الفترق حدث قبل التحديث test120.rar

فعلا هذا ما حدث معي ولم أحاول المساعدة في الحل سابقا هلا أ/ حربي ليس عندي دالة جاهزة تؤدي للحل في مسألة جمع التواريخ لكن اجتهدت في وضع شروط للجمع ربما طابت العين . وربما أظلمت كلتا العينين ههههههه ProgWork 2.rar

استاذى الفاضل / العلم نور المطلوب بالمرفق لعله يكون هو الجواب المطلوب وشكرا 22.rar

اشكرك اخي الكريم ما زالت المشكلة على حالها؟!!

وهذا مثال للاكسس طبعا يجب ادخال الاسماء يدويا ( كما هي مسجلة في الهاتف تماما ) send1.rar

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

السلام عليكم تفضل هذا الكود شبه النهائي ، وشغال 100% مع اللغة الانجليزية 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & "Hason" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & "Testing" & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) ولكن للوصول الى الارقام في السطر قبل الاخير ، يجب اتباع التالي (بدل ان تكون ارقامك بالتجربة): . اختر الحقلين 1 و 2 بعلامة الصح ، واللي محتاجين لهم ليعطونا نتائج رقم 3 و 4 (وبعد الحصول على الارقام الصحيحة ، يجب الغاء الصح من الحقلين 1 و2): . لمعرفة مكان زر الارسال ، محور س و ص X Y : ثم بعد ان ندخل اي شيء في حقل الكتابة في الواتس اب ، اغغط وخليك ماسك زر المايكروفون (لانه بعد الكتابة سيتغير الى زر الارسال) ، لاحظ الارقام في الاعلى في المربعين الاحمرين ، وسترى من الصورة انها 1022 في 1062 ، والذي قربته انا في الكود الى 1000 في 1100 . جعفر

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

تفضل اخي الكريم db11.rar

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

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

السلام عليكم أخي الحبيب / أبو عبدالله عمل جميل وإسمح لي لإثراء الموضوع أن أقدم حل بدون أكواد فمعظم اللي ماعنده خبره إكسل لايحب حتي التعامل بها وتقبل تحياتي وإحتراماتي الأخت الفاضلة مرفق نموذج وبه الشرح Tenders TRACKING.rar

مع سبق الاصرار والترصد قل للماكرو وداعاً كانت هناك مشكلة تزعجني وكنت على وشك طرح موضوع لغرض الوصول الى حلها لقد كنت حتى هذا اليوم لا اطيق العمل بالازرار داخل النماذج بطريقة الاكواد لاسباب كثيرة منها وباختصار 1- جرب تغيير تسمية الزر - فستلاحظ انك ستحتاج الى الدخول الى الكود ايضا لتعديلة حسب التسمية الجديدة 2- جرب ان تستفيد من هذا الزر في نموذج اخر بنسخة ولصقة - فلن تستطيع لانك ستضطر الى نسخ الزر ثم ستعود لنسخ الكود مرة اخرى (وجرب هذة الحالة مع مجموعة ازرار) ستكون مملة 3- اثناء الخول الى اكواد النموذج ستلاحظ وجود العديد من الاكواد المتناثرة هنا وهناك اغلبها مكررة في اغلب النماذج وكثرتها تسبب لك الدوران في الرأس (بل سأزيدك من الشعر بيت) ستجد بعض الاكواد مكررة مثل كود اغلاق النموذج مثلا وذلك قد يكون بسبب انك غيرت تسمية الزر واضطريت الى عمل الكود مرة اخرى (تصدقون دخلت على بعض النماذج عندي لقيت فيه سبع اكواد متناثرة للاغلاق) وقد كانت في السابق جميع برامجي تحتوي على مجموعة من الماكرو تخص كل زر من ازرار النماذج لان الماكرو يوفر لي ميزة (عدم ازدحام الاكواد داخل النموذج) (امكانية نسخ الزر والاستفادة منه في نماذج اخرى) (عدم النظر الى تسمية الزر حتى لا اضطر الى اعادة برمجة الزر كما هو الحال في كود الوحدة النمطية) اذا ستجد مطلوبك هنا وستكون نماذجك نظيفه جدا من الان وصاعدا من كثرة الاكواد مع Enjoy وحدة نمطية واحده تجمع جميع هذة الاوامر وتستطيع استخدامها على جميع ازرارك مع الاستفادة من الملاحظات السابقة (نسخ ولصق وكذلك الابتعاد عن زحمة الاكواد داخل النماذج) جرب وعطني رايك اتمنى ردود بنفس عدد نسخ الملف (ست سبع صفحات عادي المنتدى يستحمل) اخوكم ابو عبدالله Enjoy_All_buttons.rar