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

[athal 42]

السلام عليكم

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

 

create a table1.rar

[Shivan Rekany 3,069]

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

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

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

create a table1.rar

[athal 42]

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

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

create a table1.rar

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

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

 لطفا  ورجاء 

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

 

Edited July 17, 2018 by athal

[Shivan Rekany 3,069]

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 42]

منذ ساعه, 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

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

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