إعادة الترقيم التلقائي أبتداءً من رقم

تفضل اخي فتى الوادي

وكل عام وانتم بخير

ReAutoNumber.rar

السلام عليكم

اولا كل عام وأنتم بالف خير وينعاد على الكل بالصحة والسلامه

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

أسف على المقاطعة ولكن لتعم الفائدة ان شاء الله

هذا الكود لجعل الترقيم التلقائي يبدأ من الرقم المحدد اي ان الرقم التلقائي الجديد سيبدأ من القيمه المحددة

ولكن لا يعيد ترتيب السجلات

'/**
' * startFrom الرقم الذي سيبدأ منه الترقيم التلقائي
' * Increment مقدار الزيادة للترقيم التلقائي
' */
Sub SetAutoNumberStartFrom(ByVal tblName, ByVal fldName, Optional ByVal startFrom = 1, Optional ByVal Increment = 1)
	Dim oCat As Object
	Set oCat = CreateObject("ADOX.Catalog")
	oCat.ActiveConnection = CurrentProject.Connection
	Set oCol = oCat.Tables(tblName).Columns(fldName)
	oCol.Properties("seed") = startFrom
	oCol.Properties("increment") = Increment
	Set oCat = Nothing
	Set oCol = Nothing
End Sub

لاستخدامه

SetAutoNumberStartFrom "t_1", "txtid", 100

لا أملك لكم إلا الدعاء في ظهر الغيب في هذه الأيام المباركة ... وكل عام وأنتم بخير .

السلام عليكم ,,,,, كل عام وانتم بخير ....

/index.ph...mp;#entry583100

الأخ Mo7eb_Alrasool

ممكن توضح بمثال مرفق ؟