اضافة حقل لجدول

[dada]

السلام عليكم ورحمة الله 

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

"basic" 

يتم تحديد اسم الحقل الجديد بواسطة المستخدم فى نموذج باسم

"month"

داخل الاداة

"id_mon" 

ولكم جزيل الشكر

 

تم تعديل أغسطس 16, 2019 بواسطه dada

[kaser906]

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

ضع مرفق ووضح أكثر

::بالتوفيق::

[dada]

المراد عند فتح نموذج 

month

وكتابة شهر معين فى صندوق النص 

id_mon

اسم الشهر يضاف كعمود او حقل جديد بداخل الجدول 

basic

try.accdb

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

اتفضل

Dim db As Database

    Dim tdfNew As TableDef

    Dim fldLoop As Field
   On Error GoTo Err_Command0_Click:
Set db = DAO.OpenDatabase(CurrentDb().Name)

  Set tdfNew = db.TableDefs!basic

    With tdfNew

        .Fields.Append .CreateField(Me.[id mon], dbText, 50)


    End With

    MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح"

Exit_Command0_Click:

    Exit Sub

Err_Command0_Click:

    MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح"

    Resume Exit_Command0_Click

 

try.accdb

[dada]

 

جزاك الله خيرا و نفع بك و زادك الله علما

"هذا هو المطلوب"

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

بالتوفيف اخي الكريم

[dada]

اخى الكريم اذا اردنا اضافة قيمة افتراضية للحقل الجديد

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

.Fields.Append .CreateField("هنا ضع الاسم", dbText, 50)

[dada]

حضرتك الوسيط الاول مش المفروض يكون اسم الحقل و لا القيمة؟!

 

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

ماقهمت قصدك ممكن توضح