[abdou]

(19-10-20, 11:31 PM)aftfm كتب : السلام عليكم ورحمة الله وبركاته

استخدم الكود لجلب عدد السجلات الموجودة بداخل الجدول بقاعدة ابيانات اكسس
بحيث يظهر لي رقم السجل التالي في حالة اضافة سجل جديد 
ولكن المشكلة في حال تم حذف سجل او اثنين من السجلات سيتم البحث عن اكبر رقم موجود ويأتي به وليكن الرقم الاكبر 4 مثلا سيأتي بالرقم 5 مع العلم ان عدد السجلات 2 في حال تم حذف سجلين 
المطلوب التعديل على الكود بحيث يتم اعادة ترتيب او اضافة النواقص قبل الاكيبر 

الكود 

كود :

Dim dt as new DataTable
Dim da as new OleDbDataAdapter("Select Max(ID) From TblName " , Con)
da.Fill(dt)
if IsDBNull(dt(0)(0))=True then
MynewID =1
else 
MyNewID =dt(0)(0)+1

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

الكود المستخدم ليس للجلب عدد السجلات وانما لجلب اكبر قيمه\

اما لمعرفة عدد السجلات فهو

كود :

Select Count