اذهب الي المحتوي
أوفيسنا

كيف يتم إعادة ترقيم السجلات الجداول

Mariam.m

بواسطه Mariam.m
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

Mariam.m

Mariam.m

قام بنشر
قام بنشر

السلام عليكم

عندي قاعدة بيانات لمدرسة فيها تقريبا 10 جداول

وطُلب مني إنشاء قاعدة بيانات مماثلة لمدرسة ثانية 

كيف يمكنني إعادة ترقيم السجلات من 1 في كل الجداول بعد حذف كااافة السجلات والبيانات الموجودة في قاعدة البيانات الجديدة 

kkhalifa1960

kkhalifa1960

قام بنشر
قام بنشر

واذا أردت بالكود ضع زر بأي فورم .:fff:  

Private Sub btnReset_Click()
' Table1, ID ' غيرهم للاسماء لديك
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Table1"
DoCmd.RunSQL "INSERT INTO Table1 (ID) VALUES (0)"
DoCmd.RunSQL "DELETE * FROM Table1"
Me.Requery
Refresh
End Sub

 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept