Barna

ما شاء الله تبارك الله ... الله ينور عليك أخي @kanory تفكير رائع ...

انظر صور للبرنامج نفسه من جهازي .... لاحظ الثلاث طلاب وفصولهم !!!!

اعتقد الطالب الثالث الذي تذكره في فصل اخر غير فصل الطالبين ... ابحث عنه

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

اين ظهر هذا الخطأ ... في استيراد ملف الاكسل ... ام ماذا وضح اكثر

تفضل هل هذا ما تريد ... importmarks.accdb

وهذه طريقة اخرى ... ايضا عملت على الزر الاول وانت طبق للبيقة .. سجلات 05.accdb

انظر المرفق عملت على اول زرار .... طبق انت على بقية الازرة سجلات 06.accdb

لم افهم .... هل تقصد ان الترقيم الذي تم اجراءه في السابق يتم بعد تحديد الرقم المطلوب من خلال نموذج منبثق ..؟؟

ربنا يسهل ..... طيب شوف كدا .... يارب يكون المطلوب سجلات 03.accdb

استبدل الكود بهذا أخي الكريم Public Function re_Num() Dim rst As DAO.Recordset Dim i As Long Dim RC As Long Set rst = CurrentDb.OpenRecordset("Select * From b14") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!HNO = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Function

جرب المرفق ..... واعلمنا هل تغيرت السرعة أم لا .... سجلات 01.accdb

تفضل ... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE b14 SET b14.hno = DCount(""*"",""b14"",""ID <="" & [ID]);" DoCmd.SetWarnings True

معليش هل رقم الفترة والتاريخ هذا متغير يوم عن يوم أم هو ثابت ....

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

ممكن ترفق الجدول المعدل التي تحوي تلك الاضافات

تفضل حسب فهي للموضوع .... نقل المعلومات1.accdb

رقم الفترة حتى الصفر يتم استبداله ام لا ....

ما شاء الله تبارك الله دروس نتعلمها من الكبار امثالكم

ما شاء الله تبارك الله بارك الله فيك استادنا الكبير @أبو إبراهيم الغامدي مدرسة نتعلم منك الكثير ......

استخدم هذا الكود في النموذج الرئيسي لديك عند حدث التحميل ..... جرب ووافينا بالنتيجة If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

ممكن مثالك مصغر عشان نعرف تفاصيل اكثر ونطبق

ربما هذا طلبك حسب فهمي لموضوعك .... Database1 (7).rar

بارك الله فيك ونفع بعلمك

لم افكر في طريقتك .... راحت من فكري تماما ... =MFAvrg(Nz([a1]);Nz([a2]);Nz([a3])) جزاك الله خيرا على التنبيه