هل يمكن عمل جدول وتسميته من خلال الكود

[athal]

السلام عليكم

حاولت عمل جدول من الكود لكن لم يعمل

 

create a table1.rar

[Shivan Kurdi - شڤان کوردی]

3 دقائق مضت, athal said:

حاولت عمل جدول من الكود لكن لم يعمل

اتفضل 
تم حذف سطر واحد من كودك
 

create a table1.rar

[athal]

2 ساعات مضت, Shivan Rekany said:

اتفضل 
تم حذف سطر واحد من كودك
 

create a table1.rar

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

للاماتة الكود منقول .

 لطفا  ورجاء 

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

 

تم تعديل يوليو 17, 2018 بواسطه athal

[Shivan Kurdi - شڤان کوردی]

17 ساعات مضت, athal said:

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

اتفضل
 

Private Sub Command0_Click()
    Dim dbs As Database
        Dim ThisTable As String
                Set dbs = CurrentDb
            ' Create a table with two text fields.
                ThisTable = InputBox("Name For Table", "ÇÏÎá ÇÓã ÌÏæá ÇáÌÏíÏÉ")
                    dbs.Execute "CREATE TABLE " & ThisTable _
                                                    & "(FirstName CHAR, LastName CHAR);"
                dbs.Close
                DoCmd.OpenTable ThisTable, acViewNormal
End Sub

 

create a table1.rar

[athal]

منذ ساعه, Shivan Rekany said:

اتفضل
 

Private Sub Command0_Click()
    Dim dbs As Database
        Dim ThisTable As String
                Set dbs = CurrentDb
            ' Create a table with two text fields.
                ThisTable = InputBox("Name For Table", "ÇÏÎá ÇÓã ÌÏæá ÇáÌÏíÏÉ")
                    dbs.Execute "CREATE TABLE " & ThisTable _
                                                    & "(FirstName CHAR, LastName CHAR);"
                dbs.Close
                DoCmd.OpenTable ThisTable, acViewNormal
End Sub

 

create a table1.rar

تمام والف شكر استاذ شفان

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