اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جعل حقل مفتاح اساسى عن طريق الكود


إذهب إلى أفضل إجابة Solved by محمد احمد لطفى,

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

 عبارة PrimaryKey مكررة في الكود اعلاه

اذا كان الحقل مفهرس لا يتم اضافة المفتاح ، لذا يلزم ازالة الفهرس عن الحقل اولا

Dim db As DAO.Database
    Set db = CurrentDb
        Dim strSQL1, strSQL2 As String
  strSQL1 = "DROP INDEX idNum ON tblOld" 'لحذف الفهرس من الحقل
  db.Execute strSQL1
  strSQL2 = "ALTER TABLE tblOld ADD CONSTRAINT idNum PRIMARY KEY(idNum)" ' لإضافة المفتاح الى الحقل في الجدول
    db.Execute strSQL2
    Set db = Nothing

 

رابط هذا التعليق
شارك

أستاذى @ابوخليل
الكود 

 

CurrentDb.Execute "ALTER TABLE [tblOld] ADD CONSTRAINT PrimaryKey PRIMARY KEY ( [idNum] );"

شغال زى ماهو حاولت أحذف PrimaryKey مكررة و أغير فيها مشتغلش
جزاك الله كل خير

testdate4.mdb

تم تعديل بواسطه محمد احمد لطفى
رابط هذا التعليق
شارك

يبدو ان طريقتك اسرع وأخصر لأن كلمة PrimaryKey  لا معنى لها ، جرب اكتب اسمك او شيء بدلها سوف يعمل الكود

ولكن  اذا وضعت اسم الحقل بدلا منها فسوف يتم فحصه فان كان مفهرسا يطالبك بازالة الفهرسة اولا .

 

  • 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