انشاء جدول جديد بضغطة زر

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

أولا لا بد من استخدام ال class DAO لبناء جدول في قاعدة البينات الحالية ثم إضافة الحقول إليه وذلك على الشكل الآتي:

- الإعلان عن متغير يحتوي على خصائص قاعدة البينات

Dim DBS as dao.database

- الإعلان عن متغير يحتوي على خصائص الجدول

Dim table as dao.tabledef

- الإعلان عن متغير يحتوي على خصائص الحقل

Dim fld as dao.field

- تشغيل الجول في قاعدة البيانات الحالية

Set dbs = currentdb()

Set tbl = dbs.createtabledef(' " & Textbox1 & " ')

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

Set fld = tbl.createfield(' " & Textbox2 & " ' , dbtext)

tbl.fields.append fld

Set fld = tbl.createfield(' " & Textbox3 & " ' , dbtext)

tbl.fields.append fld

Set fld = tbl.createfield(' " & Textbox4 & " ' , dbtext)

tbl.fields.append fldl

dbs.tabledef.append tbl

dbs.tabledef.refresh

سأرسل مثال تطبيقي حول هذا الموضوع فأنا أستخدم ال iPad

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

تفضل أخي العزيز هذا مثال تطبيقي قم بتعبئة مربعات النصوص وبعد إغلاق النموذج سيظهر الجدول بحسب المعطيات الموجودة في مربعات النصوص

مثال khodor.rar

ضع الكود التالي عند الضغط على الزر:

Private Sub ÃãÑ8_Click()

Dim dbs As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim tblName As String
Dim fldName1 As String
Dim fldName2 As String
Dim fldName3 As String

tblName = Me.txtTBL
fldName1 = Me.txtFld1
fldName2 = Me.txtFld2
fldName3 = Me.txtFld3

Set dbs = CurrentDb()
Set tbl = dbs.CreateTableDef(tblName)

Set fld = tbl.CreateField(fldName1, dbText)
tbl.Fields.Append fld
Set fld = tbl.CreateField(fldName2, dbText)
tbl.Fields.Append fld
Set fld = tbl.CreateField(fldName3, dbText)
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh

End Sub

اخى الكريم كم كنت اتمنى ان اكون مستجاب الدعوة ولكن لنا رب اسمه المجيب 

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

انا الان احاول فهم الكود وان توقفت عند شى استاذنك فى السؤال

شكرا اخى الكريم

أهلا وسهلا بك خذ راحتك أخي

فيديو يشرح معالجة مشروعك

https://www.youtube.com/watch?v=_4_Sv0BB_0c

لا لا كدا كتير بجد يا استاذ على . اخى الكريم اطمئن فهناك من فى هذه الدنيا من يدعو لك :) :)

شكرا على اهتمامك

لقد استطعت حل المسألة بطريقة بدائية جدا !

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

اما من داخل الاكسس فالاتصال موجود ، وتم الحل ب3 اسطر من الكود احدها يشير الى مربعات النص المطلوبة وكما في المرفق

يبقى ان تستعمل لكل من اسم الجدول والحقول اسماء من كلمة واحدة اي لا تحوي فراغ(مسافة المسطرة).

create table.zip