استخراج المفتاح الأساسي لجدول

[صالح حمادي]

السلام عليكم

نستطيع من خلال الكود استخراج أسماء الجداول و العلاقات الموجود بينها و حتى حقول الربط

و أيضا نستطيع استخراج أسماء الحقول و نوعها و طولها.

السؤال: ما هي طريقة إستخراج المفتاح الأساسي لجدول.

[رمهان]

For i = 0 To CurrentDb.TableDefs("table1").Indexes.Count - 1
If CurrentDb.TableDefs("table1").Indexes(i).Primary Then
MsgBox CurrentDb.TableDefs("table1").Indexes(i).Fields(0).Name
End If
next i

تحياتي استاذ صالح

تم تعديل أبريل 25, 2019 بواسطه رمهان

[ابو جودي]

6 ساعات مضت, صالح حمادي said:

السلام عليكم

نستطيع من خلال الكود استخراج أسماء الجداول و العلاقات الموجود بينها و حتى حقول الربط

و أيضا نستطيع استخراج أسماء الحقول و نوعها و طولها.

السؤال: ما هي طريقة إستخراج المفتاح الأساسي لجدول.

يا سلام لو تتكرم علينا بمثال جميل زيك كده 

وياسلام تضيف كود استاذى الجليل ومعلمى القدير الاستاذ @رمهان

[صالح حمادي]

الان, رمهان said:

For i = 0 To CurrentDb.TableDefs("table1").Indexes.Count - 1 If CurrentDb.TableDefs("table1").Indexes(i).Primary Then MsgBox CurrentDb.TableDefs("table1").Indexes(i).Fields(0).Name End If next i

ممتاز أستاذ رمهان الكود يعمل بشكل جيد شكرا جزيلا

 

[صالح حمادي]

الان, ابا جودى said:

يا سلام لو تتكرم علينا بمثال جميل زيك كده

هذا مثال لاستخراج اسم الجدول و حقوله ونوع كل حقل :

Dim dbs, tdf As TableDef, name_field As Field
Dim i As Integer
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
   If Left(tdf.Name, 4) <> "msys" Then
   'استخراج اسماء الحقول
      For Each name_field In tdf.Fields
          MsgBox tdf.Name & "=" & name_field.Name & " - " & name_field.Type & "...." & name_field.Size
      Next name_field     
   End If
Next tdf
Set dbs = Nothing

 

[ابو جودي]

 

الان, صالح حمادي said:

هذا مثال لاستخراج اسم الجدول و حقوله ونوع كل حقل :

Dim dbs, tdf As TableDef, name_field As Field
Dim i As Integer
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
   If Left(tdf.Name, 4) <> "msys" Then
   'استخراج اسماء الحقول
      For Each name_field In tdf.Fields
          MsgBox tdf.Name & "=" & name_field.Name & " - " & name_field.Type & "...." & name_field.Size
      Next name_field     
   End If
Next tdf
Set dbs = Nothing

 

c - 12....0

اسف جدا ولكن ما هى مدلولات الارقام هذه
هل تدل على نوع الحقل ؟

 

tblName=c - 12....0

[رمهان]

21 دقائق مضت, صالح حمادي said:

ممتاز أستاذ رمهان الكود يعمل بشكل جيد شكرا جزيلا

 

العفو استاذنا

3 دقائق مضت, ابا جودى said:

 

c - 12....0

اسف جدا ولكن ما هى مدلولات الارقام هذه
هل تدل على نوع الحقل ؟

 

tblName=c - 12....0

من ويت جبت هذه الارقام اباجودي ؟؟؟ ليست بكود الاستاذ صالح

[ابو جودي]

الان, صالح حمادي said:

هذا مثال لاستخراج اسم الجدول و حقوله ونوع كل حقل :

Dim dbs, tdf As TableDef, name_field As Field
Dim i As Integer
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
   If Left(tdf.Name, 4) <> "msys" Then
   'استخراج اسماء الحقول
      For Each name_field In tdf.Fields
          MsgBox tdf.Name & "=" & name_field.Name & " - " & name_field.Type & "...." & name_field.Size
      Next name_field     
   End If
Next tdf
Set dbs = Nothing

 

وضعت الكود خلف زر امر 

get data of tbl in db.accdb

[رمهان]

يبدو ان لديك اصدار جديد بالاكسس ابا جودي .. لم يفتح معي لدي 2013

[ابو جودي]

نعم اكسس 2019 اسف

المرفق مرة اخرى  بتنسيق 2003

 

get data of tbl in db.mdb

[رمهان]

اهاه 

اللي هي النوع والحجم

type وهي تعود بارقام نوع البيانات وتقدر تبحث في مصادر الاكسس عن مدلول كل رقم مانوعه

وللحصول على اسم النوع وتريح نفسك 

MsgBox tdf.Name & "=" & name_field.Name & " - " & TypeName(name_field.Type) & "...." & name_field.Size

size حجم الحقل

بالتوفيق

 

[ابوخليل]

11 ساعات مضت, صالح حمادي said:

السؤال: ما هي طريقة إستخراج المفتاح الأساسي لجدول.

السلام عليكم

مشاركة مع احبتي 

MsgBox CurrentDb.TableDefs("yourtable").Indexes("PrimaryKey").Fields(0).Name

 

[رمهان]

في ٢٥‏/٤‏/٢٠١٩ at 12:21, ابوخليل said:

السلام عليكم

مشاركة مع احبتي 

MsgBox CurrentDb.TableDefs("yourtable").Indexes("PrimaryKey").Fields(0).Name

 

لانه يفترض ان المفتاح موجود ومش كدا بس برضه يشترط ان اسمه primarykey  وهذا يحدث نادرا فليس دائما يوجد مفتاح اساسي وباسم primarykey

تحياتي

[ابوخليل]

اخوي الغالي ابو جود  ...  كل شي موجود 

ولكن التجربة خير برهان ..

db1.mdb

[رمهان]

جرب ياغالي على جدول مافيه مفتاح اساسي

واحكم انت

تحياتي

[ابوخليل]

 ما فهمت !! ليش اجرب على جدول بدون مفتاح 

والطلب هو استخراج او ارجاع اسم مفتاح رئيسي موجود داخل جدول 

واذا الجدول ما فيه مفتاح من وين يبي يجيبه ؟

اكيد سيرجع خطأ ، ونحن يمكننا التعامل معه من اقصر الطرق 

 On Error GoTo PrimErr:
 MsgBox CurrentDb.TableDefs("tbl1").Indexes("PrimaryKey").Fields(0).Name
PriErr:
    Exit Sub
PrimErr:
    MsgBox "لا يوجد مفتاح أساسي للجدول"
    Resume PriErr

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

هذا الذي عندي .. بارك الله فيك

 

 

[الحلبي]

ما اجمل من حوار عمالقة الاكسس

طريقة حوار ممتازة بين العمالقة ونحن المستفدين

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

[صالح حمادي]

الان, ابوخليل said:

مشاركة مع احبتي 

MsgBox CurrentDb.TableDefs("yourtable").Indexes("PrimaryKey").Fields(0).Name

جزاك الله خيرا أستاذنا الغالي

36 دقائق مضت, رمهان said:

type وهي تعود بارقام نوع البيانات وتقدر تبحث في مصادر الاكسس عن مدلول كل رقم مانوعه

وللحصول على اسم النوع وتريح نفسك 

MsgBox tdf.Name & "=" & name_field.Name & " - " & TypeName(name_field.Type) & "...." & name_field.Size

size حجم الحقل

نعم type تعود برقم يدل على نوع معين و شكرا أستاذ رمهان على إضافة الدالة TypeName

[رمهان]

17 ساعات مضت, رمهان said:

لانه يفترض ان المفتاح موجود ومش كدا بس برضه يشترط ان اسمه primarykey  وهذا يحدث نادرا فليس دائما يوجد مفتاح اساسي وباسم primarykey

تحياتي

@ابوخليل

اهملت النقطة الثانية 

جرب على جدول ليس اسم المفتاح الاساسي primarykey

[ابوخليل]

حبيبنا ،،، هذا هو الاسم الافتراضي الذي يدرجه أكسس عندما ننقر على المفتاح لاختياره في الجدول

وطبيعي لن يعمل او بالاصح لن يجده لو ان احدا اجتهد ودخل الى الفهارس وغير الاسم 

وما دمت اخوي الغالي بهذه الدقة في اختياراتك وطرحك للحلول ، فالكود الذي تفضلت به أنا وانت كلها قاصرة

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

وقد وجدت حلا  شاملا  يستخرج جميع مفاتيح الجدول ان وجدت 

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim ix As DAO.Index
Dim fld As DAO.Field
Dim strFields As String
Set db = CurrentDb
Set tdf = db.TableDefs("tbl1")
For Each ix In tdf.Indexes
If ix.Primary Then
For Each fld In ix.Fields
strFields = strFields & "," & fld.Name
Next fld
Exit For
End If
Next ix
If Len(strFields) > 0 Then strFields = Mid$(strFields, 2)
MsgBox strFields

 

[صلاح بلعلا]

شكرا على جهودك المباركة ابو خليل 

 

هل يمكن التواصل معكم لبعض الاستفسارات

 

تحياتي

[صالح حمادي]

الان, صلاح بلعلا said:

هل يمكن التواصل معكم لبعض الاستفسارات

أخي صلاح مرحبا بك في المنتدى

إن كان لديك أي سؤال فقم بفتح موضوع جديد و سوف تجد من يجيبك إن شاء الله

 

[رمهان]

في ٢٦‏/٤‏/٢٠١٩ at 09:52, ابوخليل said:

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

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim ix As DAO.Index
Dim fld As DAO.Field
Dim strFields As String
Set db = CurrentDb
Set tdf = db.TableDefs("tbl1")
For Each ix In tdf.Indexes
If ix.Primary Then
For Each fld In ix.Fields
strFields = strFields & "," & fld.Name
Next fld
Exit For
End If
Next ix
If Len(strFields) > 0 Then strFields = Mid$(strFields, 2)
MsgBox strFields

@ابوخليل

ممكن تشرح وجود اكثر من مفتاح ؟

لانه حسب علمي لايمكن ان يكون هناك اكثر من مفتاح واحد في الجدول؟

مشكور

 

[صالح حمادي]

الان, رمهان said:

لانه حسب علمي لايمكن ان يكون هناك اكثر من مفتاح واحد في الجدول؟

يمكن إضافة أكثر من مفتاح واحد في الجدول لاحظ هذه الصورة:

[ابو محمد 316]

السلام عليكم 

هذا مثال قديم من موقع اجنبي

 

بالتوفيق إن شاء الله

 

طباعة اسماء الحقول في الجداول.rar