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

[محمد احمد لطفى]

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

وجزاكم الله خيراً

testdate4.mdb

[محمد احمد لطفى]

تم الحل

 

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

 

[ابوخليل]

 عبارة 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

تم تعديل الأربعاء at 06:12 بواسطه محمد احمد لطفى

[ابوخليل]

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

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