اذهب الي المحتوي
أوفيسنا

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


athal

الردود الموصى بها

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

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

create a table1.rar

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

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

 لطفا  ورجاء 

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

 

تم تعديل بواسطه athal
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information