لا تتم إعادة تعيين الحقل "ترقيم تلقائي" بعد ضغط قاعدة بيانات Access

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(CTF) او من خلال مترجم بشري. تقدم لك شركة مايكروسوفت هذه المقالات المترجمة بشكل آلي او بالترجمة البشرية او بعد تحريرها وتدقيقها من قبل مجموعات الترجمة حتى تمكنكم من الوصول إلى جميع المقالات الموجودة في قواعد المعرفة لديها بلغات مختلفة. إلا أن المقالات المترجمة قد تحتوي على أخطاء في المفردات او بناء الجمل او النحو. وعليه، فإن شركة مايكروسوفت ليست مسؤولة عن اية أخطاء او عدم دقة في الترجمة او أية أضرار قد تحدث نتيجة أخطاء في ترجمة محتويات النص او استخدامه من قبل العملاء.

اضغط هنا لرابط المقالة باللغة الانجليزية287756
متوسطة: يتطلب ماكرو الأساسية ترميز والمهارات إمكانية التشغيل المتداخل.

تنطبق هذه المقالة لقاعدة بيانات Microsoft Access (.mdb أو.accdb) ومشروع Microsoft Access (.adp).
الأعراض
عند حذف سجل أو سجلات في جدول آخر أو في نموذج الذي يحتوي على حقل "الترقيم التلقائي"، ثم ضغط قاعدة البيانات، لا يبدأ الحقل "ترقيم تلقائي" في العدد الصحيح الأعلى عند إضافة سجلات جديدة.
السبب
قمت بتثبيت Microsoft Jet 4.0 Service Pack 4 (Msjet40.dll الإصدار 4.00.2927.4) أو الإصدار الأحدث.
الحل
للتغلب على هذا السلوك، استخدم إحدى الطريقتين التاليتين.

الطريقة الأولى

إنشاء جدول جديد وإلحاق السجلات الموجودة بالجدول الجديد. سيبدأ السجلات الجديدة التي تمت إضافتها إلى هذا الجدول بقيمة "الترقيم التلقائي" لأحد إلا إذا قمت بتعيين قيمة الزيادة برمجياً.

ملاحظة: إذا لم تعد تحتاج إليها السجلات الخاصة بك، يمكنك أيضا إعادة تعيين الحقل "ترقيم تلقائي" بحذف كافة السجلات من الجدول، ثم ضغط قاعدة البيانات. ومع ذلك، إذا كنت تستخدم هذا الأسلوب، لا تعود السجلات المحذوفة.

لإنشاء جدول جديد وإلحاق السجلات الموجودة بجدول جديد في قاعدة بيانات Microsoft Access (.mdb)، اتبع الخطوات التالية:
  1. انقر فوق الجدول في إطار قاعدة البيانات.
  2. بريسكترل + c.
  3. بريسكترل + V.
  4. في مربع الحوار لصق جدول باسم ، انقر فوق البنية فقط، اكتب اسم تبلنيوتابل، ثم انقر فوقموافق.
  5. إينميكروسوفت Office 2003 الوصول أو في Microsoft Access 2002، أشر إلى كائنات قاعدة البيانات في القائمة عرض ، انقر فوق استعلاماتوثم انقر نقراً مزدوجاً فوق إنشاء استعلام في طريقة عرض التصميم.

    إينميكروسوفت Office Access 2007، انقر فوق علامة التبويب إنشاء ، وثينكليك تصميم الاستعلام في المجموعة الأخرى .
  6. في مربع الحوار " إظهار جدول "، انقر فوق الجدول القديم وانقر فوق إضافة، ومن ثم انقر فوق إغلاق.
  7. تؤدي إلى فائدتين 2003 أو في Access 2002، انقر فوق استعلام إلحاقي القائمة الاستعلام .

    تؤدي إلى فائدتين 2007، انقر فوق إلحاقفي المجموعة نوع الاستعلام ضمن علامة التبويب تصميم .
  8. في مربع الحوار " إلحاق "، انقر فوق تبلنيوتابل في مربع اسم الجدول ومن ثم انقر فوق موافق.
  9. إضافة كافة الحقول إلى شبكة تصميم الاستعلام ما عدا الحقل ثيوتونومبير.
  10. تؤدي إلى فائدتين 2003 أو Access 2002 في قائمة الاستعلام ، ثم انقر فوق تشغيل لإلحاق السجلات إلى الجدول الجديد.

    تؤدي إلى فائدتين 2007، انقر فوق تشغيل<b00> </b00> في مجموعة نتائج ضمن علامة التبويب تصميم لإضافة السجلات إلى الجدول الجديد.
  11. افتح الجدول تبلنيوتابل ثم قم بإضافة أريكورد.

    لاحظ أن "الترقيم التلقائي" العدد الصحيح الأعلى.

الطريقة الثانية

يمكنك استخدام الدالة التالية في قاعدة بيانات Microsoft Access (.mdb) إعادة تعيين القيمة الأصلية لحقل "الترقيم التلقائي" الخاص بك برمجياً. يمكنك إضافة الدالة إلى وحدة نمطية، وقم بتشغيله في إطار التصحيح. أو، يمكنك استدعاء الدالة من زر أمر أو من ماكرو.

ملاحظة: لهذه التعليمات البرمجية لتعمل بشكل صحيح، يجب أن تشير كل كائنات بيانات Microsoft ActiveX 2.x وتحويله ADO Microsoft 2.x ل DDL ومكتبات أمان (حيث 2.x 2.1 أو أحدث). للقيام بذلك، انقر فوق " مراجع " في القائمة " أدوات " في محرر Visual Basic. تأكد من كائنات بيانات Microsoft ActiveX 2.x و Microsoft ADO Ext 2.x ل DDL ومكتبات أمان تحديد خانتي الاختيار.
Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean'You must pass the following variables to this function.'strTbl = Table containing autonumber field'strCol = Name of the autonumber field'lngSeed = Long integer value you want to use for next AutoNumber.Dim cnn As ADODB.ConnectionDim cat As New ADOX.CatalogDim col As ADOX.Column'Set connection and catalog to current database.Set cnn = CurrentProject.Connectioncat.ActiveConnection = cnnSet col = cat.Tables(strTbl).Columns(strCol)col.Properties("Seed") = lngSeedcat.Tables(strTbl).Columns.RefreshIf col.Properties("seed") = lngSeed Then    ChangeSeed = TrueElse    ChangeSeed = FalseEnd IfSet col = NothingSet cat = NothingSet cnn = NothingEnd Function				
تصريح
أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".
معلومات أخرى

خطوات إعادة إنشاء المشكلة

  1. تثبيت Microsoft Jet 4.0 Service Pack 4 (SP4) أو الإصدار الأحدث. لمزيد من المعلومات حول كيفية الحصول على أحدث حزمة خدمة ل Microsoft Jet، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
    239114 كيفية الحصول على أحدث حزمة خدمة لـ Microsoft Jet 4.0 Database Engine
  2. تؤدي إلى فائدتين 2003 أو في Access 2002، قاعدة بيانات جديدة createa.
  3. إنشاء الجدول التالي:
       Table: tblExample   ---------------------   Field Name: ID   Data Type: AutoNumber      Field Name: MyText   Data Type: Text      Table Properties: tblExample   ----------------------------   PrimaryKey: ID					
  4. حفظ كجدولتبليكسامبلي.
  5. في القائمة عرض ، انقر فوق طريقة عرض ورقة البيانات.
  6. إضافة 10 سجلات إلى الجدول.
  7. حذف السجلات الثلاثة الأخيرة التي قمت بإضافتها إلى ثيتابل.
  8. قم بإغلاق الجدول.
  9. من القائمة أدوات ، أشر إلى أدوات مساعدة لقاعدة البيانات، ومن ثم انقر فوق ضغط وإصلاح قاعدة البيانات.
  10. افتح الجدول تبليكسامبلي.
  11. إضافة سجل جديد إلى الجدول.

    لاحظ أن ثيوتونومبير 11 بدلاً من 8، كما تتوقع.
ملاحظة: بعد ضغط المشروع في مشروع Microsoft Access (.adp)، انظر العدد المتوقع في حقل "الترقيم التلقائي" عندما تقوم بإضافة السجل. ومع ذلك، عندما تقوم بحفظ السجل، تغيير "الترقيم التلقائي". في هذا المثال، ترى 8 حتى تلتزم السجل. ثم تغيير الرقم إلى 11. يحدث هذا لأن يتم تعيين "ترقيم تلقائي" على الخادم بعد السجل.
مراجع
لمزيد من المعلومات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة معارف Microsoft":
202121 لا يمكن تغيير القيمة الافتراضية الأصلية والزيادة في واجهة المستخدم
prb جيش الخلاص الشعبي "الترقيم التلقائي" ACC2002 ريفيودوسيد ACC2007

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 287756 - آخر مراجعة: 01/31/2016 21:13:00 - المراجعة: 10.0

Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Access 2002 Standard Edition

  • kbprogramming kbado kbupdateissue kbbug kbnofix kbmt KB287756 KbMtar
تعليقات