ازهر عبد العزيز قام بنشر منذ 10 ساعات مشاركة قام بنشر منذ 10 ساعات السلام عليكم في النموذج fnumber يوجد نموذج فرعي يحتوي ارقام قد تزيد وقد تنقص احتاج ترتيب هذة الارقم من 1 الى نهاية الارقام من خلال الزر الموجود في النموذج الرئيسي اي .......12345 بمعنى لوفرضنا انة لدي 50 سجل وتم حذف السجل رقم 40 يتم يصبح عدد السجلات 49 ويتم ارجاع القيمة بارجاع القيمة 40 المحذوفة بدل السجل 50 اتمنى ان تكون الفكرة واضحة numbers.accdb 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر منذ 10 ساعات مشاركة قام بنشر منذ 10 ساعات يعني لو انت حذفت السجل رقم 40 ، وبعدها بوقت ثاني جيت وضفت سجل جديد . تريد السجل الجديد يكون رقمه 40 بدلاً من 51 !!!!!!!! رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر منذ 10 ساعات الكاتب مشاركة قام بنشر منذ 10 ساعات 6 دقائق مضت, Foksh said: يعني لو انت حذفت السجل رقم 40 ، وبعدها بوقت ثاني جيت وضفت سجل جديد . تريد السجل الجديد يكون رقمه 40 بدلاً من 51 اخي باختصار احتاج ان تكون هذة الارقام مرتبة دائما بشكل تلقائي سواء حذف او اضافة رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر منذ 9 ساعات مشاركة قام بنشر منذ 9 ساعات (معدل) 3 ساعات مضت, ازهر عبد العزيز said: اخي باختصار احتاج ان تكون هذة الارقام مرتبة دائما بشكل تلقائي سواء حذف او اضافة لا يا صديقي ، لا تختصر حتى تتوضح الصورة تم تعديل منذ 6 ساعات بواسطه Foksh رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر منذ 8 ساعات أفضل إجابة مشاركة قام بنشر منذ 8 ساعات جرب هذا ..... Dim rst As DAO.Recordset Dim biggest_Number As Long Dim i As Long Dim RC As Long biggest_Number = Len(DMax("[num]", "fnumber")) Set rst = CurrentDb.OpenRecordset("Select * From fnumber") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!num = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر منذ 8 ساعات الكاتب مشاركة قام بنشر منذ 8 ساعات 17 دقائق مضت, Barna said: جرب هذا ..... استاذ شكرا جزيلا لكن هناك مشكلة لا اريدة ان يعد على الارقام الموجودة في الجدول اريدة يعدل على الارقام الموجودة في النموذج الفرعي فقط لاني احتاج اعمل فرز ثم اقوم بترتيب الارقام ارجو ان تكون الفكرة واضحة رابط هذا التعليق شارك More sharing options...
Barna قام بنشر منذ 6 ساعات مشاركة قام بنشر منذ 6 ساعات 1 ساعه مضت, ازهر عبد العزيز said: لا اريدة ان يعد على الارقام الموجودة في الجدول اريدة يعدل على الارقام الموجودة في النموذج الفرعي فقط تفضل Dim rst As DAO.Recordset Dim i As Long Dim RC As Long Set rst = Forms!fnumbermain!fnumbersub.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!num = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر منذ 6 ساعات الكاتب مشاركة قام بنشر منذ 6 ساعات زادك الله من فضلة جزيل الشكر يااخي وهو المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان