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

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


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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information