Barna

تفضل هل هذا ما تريد ... 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])) جزاك الله خيرا على التنبيه

طيب جرب الثلاث مواد الاولى واعلمنا بالنتيجة علما ني غيرت بعض مسميات مربعات النص لسهولة كتابة الكود 1 (2).rar

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

ممكن توضح اكثر .... لاحظ الصورة اليس هذا هو المطلوب أم ماذا ؟؟؟؟

جزاك الله خيرا ونفع بك

انظر للمواد الثلاثة الاول وطبق لبقية المواد الاحرى ملاحظة : لي تحفظ على اسلوب تصميم الجدول ؟؟؟ 1 (2).rar