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

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

قام بنشر (معدل)
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