تغییر نام جدول در بانک اکسس با وی بی

[rezahagh]

با سلام خدمت تمامی دوستان من یک برنامه دارم که نیاز به ساخت جدول جدید دارم حالا اون جدول را ساختم می خواهم بوسیله یک تکس باکس نام دلخواهی به جدول بدم یعنی به نام دلخواهم تغییر نام بدم لطفا راهنمایی کنید بانک اکسس

[AbbasVB]

این رفرنس رو به پروژه اضافه کنید

Microsoft DAO 3.6 Object Library

Dim DB As Database
Set DB = OpenDatabase("Database.mdb", False, False)

Dim TD As TableDef
Set TD = DB.TableDefs("Table1") 'نام جدول قبلي
TD.Name = "Table2" 'نام جدول جديد

Set DB = Nothing
Set TD = Nothing