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

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

والله فكرة رائعة بس هل هناك امكانية او لا

عسى ان يصل اخواننا الى حل

عزيزي الاخ / أبوسليمان ،،،، السلام عليكم ورحمة الله وبركاته

لإضافة حقل لجدول لابد من تعريف مسار قاعدة البيانات ثم تحديد الجدول الذي تريد إضافة الحقل إليه ،،، ثم تحدد إسم الحقل ،،، ثم تحديد خصائص هذا الحقل هل هو ( رقمي ) أو ( نصي ) أو ( تاريخ ) وفي حال خاصية الحقل ( نصي ) تحديد طوله ( 35 أو 45 أو 50 و ,,,, ) ،،، وفي حال وجود هذا الحقل في الجدول لابد أن تضع رسالة تبين وجود هذا الحقل في الجدول الذي قمت بتحديده ,,,,, تضع جميع هذه الأوامر في زر يقوم بتنفيذها عند الضغط عليه ،،،،

شاكر

شكراً لك أخي الفاضل / شاكر الزين

لنفرض أن مسار القاعدة هو :

c:\test\

واسم القاعدة هو :

MyJop

والحقل المطلوب باسم

abc

وهو حقل رقمي

فما هو الكود الذي سأكتبه عند حدث (عند النقر على الزر) كي يقوم بعمل ذلك

ولك مني كل الشكر

أخوك أبو سليمان

أخي العزيز / أبو سليمان ،،،، السلام عليكم ورحمة الله وبركاته

ضع هذا الكود في زر إسمه ( أمر0) ،،، في حدث ( عند النقر ) :

    Dim db As Database
    Dim tdfNew As TableDef
    Dim fldLoop As Field
   On Error GoTo Err_أمر0_Click

 Set db = DAO.OpenDatabase("c:\test\MyJop.mdb")

  Set tdfNew = db.TableDefs!tb1
    With tdfNew
    
        .Fields.Append .CreateField("abc", dbInteger)
    End With
    MsgBox "تمت عملية إنشاء الحقل  بنجاح!!!", vbOKOnly, "رسالة توضيح"
Exit_أمر0_Click:
    Exit Sub

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

ملاحظة : سوف يكون اسم الجدول ( tb1 ) الذي سوف يحفظ فيه الحقل المطلوب ,,,

طبق العملية ،،،، وأعطني رأيك ,,,,

شاكر

جزاك الله ألف ألف خير

وبارك الله فيك

الكود كان ناجح ، الحمد لله

جعل الله ذلك في ميزان حسناتك

أخوك أبو سليمان

أخي الكريم / أبو سليمان ،،، السلام عليكم ورحمة الله وبركاته ,,,,

هذا الرابط يوجد فيه شرح مثال بشكل أوسع ،،،،، تصفحه

وإذا أردت وضع مثال ،،،، أنا حاضر وفي الخدمة ,,,,

شاكر

جزاك الله ألف خير ، وما قصرت

مثل ما ذكرت لك أخي الكريم

إن الكود ناجح فأنا لست في حاجة إلى المثال

وأردت أن أرفق لك المثال الذي قمت بإعداد فلم استطع

وكرماً منك أن ترفق المثال للإخوة حتى تعم الاستفادة

أخوك

أبو سليمان

أخوتي الكرام .. هذه طريقة أخرى .. إذا كنت في نفس القاعدة ..

إضافة حقل إلى جدول orders

Dim cat As New ADOX.Catalog
Dim NewFiald As New ADOX.Column

cat.ActiveConnection = CurrentProject.Connection

NewFiald.Name = "الرقم1"
NewFiald.Type = adInteger
cat.Tables("orders").Columns.Append NewFiald

Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set NewFiald = Nothing

تشكر أخي العزيز أحمد الحربي

السؤال الآن

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

وجزاكم الله ألف خير

أخوكم

أبو سليمان