تحديث ترقيم ارقام بطائق منتسبين دفعة واحدة حسب تاريخ الانتساب وقيمة اولية عبر تكست بوكس

[Abd ul-hakim Gharsan]

السلام عليكم ورحمة الله وبركاته اخباركم ياشباب 
لو سمحتوا ابغا مساعدة في كود اكسس يعيد ترقيم كافة السجلات برقم اولي احددة من خلال مربع نص من نموذج مثلا انا كل سنة اقوم باعادة ترقيم بطاقات لعدد الفين منتسب ابغا اعيد ترقيمهم مثلا من الرقم ٤٥٠٠٠٠ ومرتبين بحسب حقل تاريخ الانتساب عن طريق مثلا الدالة for فارجو المساعدة ولكم جزيل الشكر ابغا الكود اللي يعيد ترقيم ارقام البطائق دفعة واحدة بناء على الاقدم في تاريخ الانتساب وحسب الرقم اللي ادخلة في مربع نص كرقم اولي للترقيم ويتزايد 

[jjafferr]

وعليكم السلام ورحمة الله وبركاته 🙂

 

اهلا وسهلا بك في المنتدى 🙂

للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

 

بالنسبة الى سؤالك:

جرب هذا الكود (الغير مجرب) :

'ID = "رقم البطاقة"
'iDate = "تاريخ الانتساب"
'tbl = اسم الجدول  

	dim rst as dao.recordset
  	dim inc as long
    
  	set rst=currentdb.openrecordset("Select ID, iDate From tbl Order By iDate")
  	rst.movefirst
  
  	inc= 450000	'Forms!frm123!initial_Number
  	do until rst.eof
  		
  		inc = inc + 1
  		rst.edit
  			rst!ID = inc
  		rst.update
  
  		rst.movenext
  	loop
     
	rst.close: set rst=nothing
      
	msgbox "Done"      

.

ولكن رجاء اعمل نسخة من جدولك قبل تجربة الكود 🙂

 

جعفر

[Abd ul-hakim Gharsan]

تسلم يادكتور جزيل الشكر لك 

[jjafferr]

حياك الله 🙂

 

 

 

 

 

 

 

 

 

 

 

 

 

 

من وين جابوا سالفة الدكتور هاي 🤔

ليكون انا صدق دكتور وانا ما ادري 🤭