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

[محمد القدسي]

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

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

اريد كود لنسخ جدول emp الموجود في المرفق بحيث ينشئ لي جدول جديد بنفس تصميم الجدول الموجود مع تغيير اسمه وذلك عند الضغط على زر الامر في النموذح

ارجو ان يكون سؤالي واضح 

 

create a table-.rar

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

اتفضل ارجو ان يكون طلبك

Dim strSQL1 As String
strSQL1 = "SELECT emp.id, emp.name, emp.emp, emp.asxc, emp.cvcvcv, emp.fgf, emp.dsa, emp.kjh INTO aboyaseen " & vbCrLf & _
"FROM emp;"
DoCmd.RunSQL strSQL1

 

[محمد القدسي]

الله يجزيك الخير اخي واستاذي ابو ياسين هذا هو طلبي

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

1 دقيقه مضت, محمد القدسي said:

الله يجزيك الخير اخي واستاذي ابو ياسين هذا هو طلبي

بالتوفيق اخي

[محمد القدسي]

استاذي العزيز ابو ياسين لاحظت عند انشاء الجدول انه لا يقوم باضافة خصائص الحقل id كمفتاح اساسي غير قابل للتكرار

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

منذ ساعه, محمد القدسي said:

استاذي العزيز ابو ياسين لاحظت عند انشاء الجدول انه لا يقوم باضافة خصائص الحقل id كمفتاح اساسي غير قابل للتكرار

اتفضل هذا رقم اساسي

Dim strSQL1, strSQL2 As String
strSQL1 = "SELECT emp.id, emp.name, emp.emp, emp.asxc, emp.cvcvcv, emp.fgf, emp.dsa, emp.kjh INTO aboyaseen " & vbCrLf & _
"FROM emp;"
strSQL2 = "alter table aboyaseen add primary key(id);"
DoCmd.RunSQL strSQL1
DoCmd.RunSQL strSQL2

 

[محمد القدسي]

ما شاء الله تبارك الله استاذي الله يبارك لك في علمك واهلك ومالك 

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

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

7 ساعات مضت, محمد القدسي said:

ما شاء الله تبارك الله استاذي الله يبارك لك في علمك واهلك ومالك 

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

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

هذا ما تعلمناه من هذا المنتدى العملاق

الله يحفظك 

[AlwaZeeR]

إضافة لما تفضل الأستاذ أبو ياسين 

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "YourTable", "NewTable", True

 

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

18 دقائق مضت, AlwaZeeR said:

إضافة لما تفضل الأستاذ أبو ياسين 

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "YourTable", "NewTable", True

 

ممتاز جدا

بارك الله فيك

[محمد القدسي]

استاذي العزيز اذا تم انشاء الجدول وكان احد الحقول عبارة عن نص كيف احوله الى حقل رقمي كما فعلت بالمفتاح الرئيسي

[محمد القدسي]

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

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

 

create a table-.rar

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

4 ساعات مضت, محمد القدسي said:

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

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

 

create a table-.rar

اتفضل اخي محمد القدسي

تعبت حتى طبقته

دعوة بظهر الغيب تكفي

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True

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!aboyaseen

    With tdfNew

        .Fields.Append .CreateField("idasxc", dbText, 255)

        .Fields.Append .CreateField("id_user", dbInteger)

    End With

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

Exit_Command0_Click:

    Exit Sub

Err_Command0_Click:

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

    Resume Exit_Command0_Click

 

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

[محمد القدسي]

اشكرك استاذي العزيز على مجهودك والله اسال ان يكتب اجرك ولك مني دعوة بظهر الغيب وقد فعلت 

واريد اطلب طلب اخير مع اني قد اكثرت عليك ولاكني طالب علم

لنفرض انه لا يوجد رقم تلقائي في جدول emp كيف اجعل الحقل المضاف اخيرا id_user ترقيم تلقائي وارجو ان لا تمل من اسئلتي

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

5 دقائق مضت, محمد القدسي said:

اشكرك استاذي العزيز على مجهودك والله اسال ان يكتب اجرك ولك مني دعوة بظهر الغيب وقد فعلت 

واريد اطلب طلب اخير مع اني قد اكثرت عليك ولاكني طالب علم

لنفرض انه لا يوجد رقم تلقائي في جدول emp كيف اجعل الحقل المضاف اخيرا id_user ترقيم تلقائي وارجو ان لا تمل من اسئلتي

نحن بالخدمه بما نستطيع

جرب هذا

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True

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!aboyaseen

    With tdfNew

        .Fields.Append .CreateField("idasxc", dbText, 255)

        .Fields.Append .CreateField("id_user", dbInteger)

    End With

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

Exit_Command0_Click:

    Exit Sub

Err_Command0_Click:

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

    Resume Exit_Command0_Click
Dim strSQL1 As String

strSQL1 = "alter table aboyaseen add primary key(id_user);"
DoCmd.RunSQL strSQL1

 

[محمد القدسي]

اخي واستاذي العزيز الكود الاخير يجعله مفتاح رئيسي وانا اريده ترقيم تلقائي

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

3 ساعات مضت, محمد القدسي said:

اخي واستاذي العزيز الكود الاخير يجعله مفتاح رئيسي وانا اريده ترقيم تلقائي

بعد محاولات طويله

اتفضل

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True

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!aboyaseen

    With tdfNew

        .Fields.Append .CreateField("idasxc", dbText, 255)

'        .Fields.Append .CreateField("id_user", dbLong)

    End With

    MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح"
Dim strSQL1, strSQL2 As String
strSQL2 = "ALTER TABLE aboyaseen ADD COLUMN id_user COUNTER CONSTRAINT [PrimaryKey] Primary key "
'strSQL1 = "ALTER TABLE aboyaseen ADD  Primary key(id);"
'DoCmd.RunSQL strSQL1
DoCmd.RunSQL strSQL2
Exit_Command0_Click:

    Exit Sub

Err_Command0_Click:

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

    Resume Exit_Command0_Click

 

[محمد القدسي]

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

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

بارك الله فيك 

انا جربت الكود بهذا وهو شغال كويس

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

شكرا لك

ولهذا المنتدى والقائمين فيه كلهم فيهم خير كثير

create.accdb

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

[محمد القدسي]

وانا شكرتك اخي لانه شغال كويس وتمام التمام