mrnooo2000

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

اخى الكريم يجب الالتزام بقواعد المشاركة بالمنتدى

ما هى نسخة الاوفيس لديك

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

تفضل اخى المرفق به ما تريد جرب الازرار على يسار الصورة pic.rar

اخى الكريم ما وضحته صحيح و تم تعديل الخطأين فى المرفق بالنسبة للخطأ الاول تم التعديل بحيث ان البرنامج الان عند وجود اسم مكرر يضيف 1 على يمين الاسم و بالنسبة للخطأ الثانى فكما اشار الاخوة end if ناقصة تم التعديل بالمرفق pic.rar

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

تفضل اخى راجع العلاقات فى الاستعلام db1.rar

ماذا تقصد بصورة من داخل الاكسس

تفضل اخى ماتريد بطريقتين monthly_AutoNumber.rar

تفضل اخى db1.rar

مطلوبك غير واضح اشرح ما تريد

تفضل اخى date nembe1r.rar

تفضل اخى اليك ما تريد Search Example.rar

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

تفضل اخى commdity class.rar

اخى الكريم لا يمكنك التحويل العكسى من mde الى mdb

بالمرفق ما تريدان ان شاء الله pic.rar

اليك اخى ماتريد افتح وحدة نمطية و ضع بها هذا الكود Dim ArrayIntelized As Boolean Dim EventsArray, OldEventsArray Dim EventArrayArgs Public MyTime As Date Dim objActiveForm As Object Dim PrevInterval As Long Const IdleMinuts = 2 Sub IntelizeArray() If ArrayInte…

فعلا مثال رائع و يوفر الكثير من الجهد جزاك الله خيرا