انشاء التسمية التوضيحية للحقول في جدول برمجيا

[ابو ياسين المشولي]

السلام عليكم ورحمه الله وبركاته

اخواني مشرفي واعضاء المنتدى الكرام

لدي كود انشاء جدول اريد اضيف اليه

التسميه التوضيحيه كي اكتبها بالعربي

strSQL1 = "CREATE TABLE [لم يسلم] ([nofatora] LONG,[name] TEXT(255) ,[daftar] LONG,[sar] CURRENCY ,[date] DATETIME,[56] BIT NOT NULL,[madfoa] CURRENCY ,[bage] CURRENCY ,[komash] TEXT(15) ,[kiyat] TEXT(15) ,[notaslem] BIT NOT NULL,[kasm] CURRENCY ,[goal] TEXT(255) ,[ملاحظات] MEMO ,[tob] LONG, CONSTRAINT [PrimaryKey] PRIMARY KEY ([nofatora]));"
DoCmd.RunSQL strSQL1

وهذا هو الكود

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

هذا مثال بسيط 

يتم فيه بناء جدول من حقلين

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

 

اشاء.mdb

[ابو ياسين المشولي]

للرفع

 

[أبو إبراهيم الغامدي]

أهلا بك أبا ياسين...

استخدم الشفرة التالية لمعالجة المشكلة

Option Compare Database
Option Explicit

Function ADD_FIELD_CAPTION(TABLE_NAME, FIELD_NAME, FIELD_CAPTION)
  Dim DB As DAO.Database
  Dim TDF As DAO.TableDef
  Dim FLD As DAO.Field
  Dim PRP As DAO.Property
  '--
  Set DB = CurrentDb
  Set TDF = DB.TableDefs(TABLE_NAME)
  Set FLD = TDF.Fields(FIELD_NAME)
  Set PRP = FLD.CreateProperty("CAPTION", dbText, FIELD_CAPTION)
  FLD.Properties.Append PRP
  Debug.Print FLD.Properties("CAPTION")
End Function

أظن مثلك لا يحتاج إل شرح المحتوي 

أقترح عليك إنشاء الجدول عن طريق المنهج Database.CreateTableDef Method (DAO)  لكي يتوحد الإجراء وتسلم من الأخطاء غير المتوقعة.

 

 

  

[ابو ياسين المشولي]

2 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بك أبا ياسين...

استخدم الشفرة التالية لمعالجة المشكلة

Option Compare Database
Option Explicit

Function ADD_FIELD_CAPTION(TABLE_NAME, FIELD_NAME, FIELD_CAPTION)
  Dim DB As DAO.Database
  Dim TDF As DAO.TableDef
  Dim FLD As DAO.Field
  Dim PRP As DAO.Property
  '--
  Set DB = CurrentDb
  Set TDF = DB.TableDefs(TABLE_NAME)
  Set FLD = TDF.Fields(FIELD_NAME)
  Set PRP = FLD.CreateProperty("CAPTION", dbText, FIELD_CAPTION)
  FLD.Properties.Append PRP
  Debug.Print FLD.Properties("CAPTION")
End Function

أظن مثلك لا يحتاج إل شرح المحتوي 

أقترح عليك إنشاء الجدول عن طريق المنهج Database.CreateTableDef Method (DAO)  لكي يتوحد الإجراء وتسلم من الأخطاء غير المتوقعة.

 

 

  

تسلم اخي ابا ابراهيم

للاسف لم اعرف اطبقها

ياليت لو تطبقها بكون شاكرا لك

تم تعديل مايو 14, 2018 بواسطه ابو ياسين المشولي

[عبد الله قدور]

السلام عليكم

كيفك حالك استاذي الكريم @أبو إبراهيم الغامدي

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

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

 

[ابو ياسين المشولي]

للرفع

[أبو إبراهيم الغامدي]

في ١٤‏/٥‏/٢٠١٨ at 23:02, ابو ياسين المشولي said:

ياليت لو تطبقها بكون شاكرا لك

حسناً.. قمت بعمل نموذجين 

الأول  لإنشاء الجدول.. مع إنشاء حقلين للبيانات 

الحقل الأول: بيانات رقمية صحيحة طويلة تعداد تلقائي

الحقل الثاني: بيانات نصية بطول 20 حرف.

 

الثاني لإضافة أو تعديل عنوان الحقل لجدول  تم نأسيسه.

مربعات التحرير والسرد لتسهيل الإجراء

:: إليك المرفق:اشاء.accdb

 

في ١٥‏/٥‏/٢٠١٨ at 14:45, عبد الله قدور said:

في حال تم تحويل قاعدة البيانات الى ACCDE هل يمكن ان يعمل هذا الكود في تعديل خصائص الجدول

أهلا بك أستاذ عبدالله..

بما أنه يمكن إنشاء الجداول مع صيغة ACCDE فيمكن إنشاء وتعديل الجدول عن طريق الشفرة.

في ١٥‏/٥‏/٢٠١٨ at 14:45, عبد الله قدور said:

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

يمكن ذلك عن طريق الاتصال بقاعدة البيانات المرتبطة عن طريق الشفرة بالصيغة التالية

Option Compare Database
Option Explicit

Dim DB As DAO.Database
Dim TDF As DAO.TableDef

Set DB = OpenDatabase(REMOTE_DATABASE)
Set TDF = DB.CreateTableDef(TABLE_NAME)
'... AND SO ON...........

 

تقبل الله منا ومنكم.. آمين

[kanory]

اخي ابا ابراهيم ... السلام عليكم ورحمة الله ... مبارك عليك الشهر .... الموضوع شدني وكنت انتظر هذا المثال منك بفارق الصبر ... جاري التجربة وبارك الله فيك 

[ابو ياسين المشولي]

الف الف شكر على المثال

ان شاء الله اجد فرصه واشوفه