كيف أدرج حقل من نوع ترقيم تلقائي في جدول موجود بواسطة DAO

فقط تجاهله و أضف باقي الحقول

unbounddao.zip

الأخ الكريم حارث

السلام عليكم

ما فهمته من سؤالك أنك تريد إضافة حقل إلى الجدول برمجياً وتريد أن يكون هذا الحقل من نوع ترقم تلقائي

بالطبع ليس هناك حقل من نوع ترقيم تلقائي بمعنى أنه لا يتم إنشاء حقل من هذا النوع مباشرة وإنما يكون ذلك عن طريق ضبط خصائصه بعد إنشائه

استخدم الدالة التالية

Function Addautonum (TName As String, FName As String) As Integer

         Dim DB As Database, TDef As TableDef, Fld As Field



         Set DB = CurrentDb()

         Set TDef = DB.TableDefs(TName)

         Set Fld = TDef.CreateField(FName, dbLong)

         Fld.Attributes = dbAutoIncrField

         On Error Resume Next

         TDef.fields.Append Fld

         If Err Then

            Addautonum = False

         Else

            Addautonum = True

         End If



         DB.Close



      End Function

حيث TName هو اسم الجدول و Fname هو اسم الحقل

تحياتي

أستاذينا الحبيبين محمد و أبو هاجر

جزاكما الله خيرا .

والمطلوب هو ما وضحه أبو هاجر مشكورا .