Barna

حياك الله اخي الكريم

تفضل .... New.rar

لدي اوفيس 19 البرنامج يعمل بصيغة mde ولا مشكلة انظر .....

حاول الكتابة بهذه الصورة .... " & me.textbox & "

نفضل طبقتها على زرين وانت طبيق الباقي مثال19.rar

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

هل بحثت في المنتدي ... هناك صور واشكال كثيرة جدا تم طرحها في المنتدى ومن ضمنها طلبك ....

ما شاء الله تبارك الله ... الله ينور عليك أخي @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

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