عوض کردن نام tabel در اکسس

[Mohsen0025]

با سلام چطوری میشه نام tabel جاری در اکسس رو با کد نویسی عوض کرد؟؟
تو عکس زیر Asami عوض بشه به نامی که خودمون میخوایم!!!

[Mohsen0025]

دوستان راهنمایی نمیکنن؟

[Mohsen0025]

سلام
من یه چند تا کد پیدا کردم اما ..........



Dim t As Table

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=C:\biblio.mdb"
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = cn
cat.Tables("Authors").Name = "Authors2"

'Iterate through the tables collection
For Each t In cat.Tables
If t.Name = "Authors2" Then
Debug.Print t.DateModified
End If
Next

cn.Close
Set cn = Nothing






Public Function RenameTable(DatabaseName As String, _ ByVal OldTableName As String, _
ByVal NewTableName As String) As Boolean

On Error GoTo errorhandler
Dim oDB As DAO.Database
Dim td As DAO.TableDef


Set oDB = Workspaces(0).OpenDatabase(DatabaseName)
On Error GoTo errorhandler
If Not TableExists(oDB, OldTableName) Then GoTo errorhandler
If TableExists(oDB, NewTableName) Then GoTo errorhandler
'Create table object
Set td = oDB.TableDefs(OldTableName)
td.Name = NewTableName
oDB.TableDefs.Refresh
oDB.Close
RenameTable = True
Exit Function


errorhandler:
If Not oDB Is Nothing Then oDB.Close
Set td = Nothing

End Function



اینا باید نام tabel رو بدونی و تا عوضش کنه بعدشم با adoc من کار میکنم.این DAO هست!!
تشکر

[vbhamed]

سلام

كد اولي كه گذاشتيد DAO نيست و ADODB است كه مشابه ADODC است

[Mohsen0025]

سلام
به اینا گیر میده


Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = cn



این cat رو چطوری تعریف کرده؟(اینو نداره که ADOX)

[amini699]

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

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

Set DB = Nothing
Set TD = Nothing

[Mohsen0025]

سلام.
راهی هست که خودش نام tabel قبلی رو بگیره و بعد عوض کنه؟؟

[ایلیا آخوندزاده]

باسلام و درود
خوب در کدنویسی به جای اینکه نام جدول هارو مشخص کنی روی یک تکس باکس تنظیم کن که البته برای نام فعلی جدول ، نام جدول رو باید فراخوانی کنی روی تکس باکس مربوطه که در این خصوص اطلاعاتی ندارم.
موفق باشید

[Mohsen0025]

سلام
آخه نام tabel متغییر هستش!ماهی یک بار عوض میشه!!نه از طرف ما!!!

[ایلیا آخوندزاده]

خوب مگه از طرف کاربر عوض نمیشه ؟

[Mohsen0025]

میخوام که از طرف کاربر عوض نشه و خود برنامه اسم تیبل رو بفهمه!!! کاربر نباید تو bank دسترسی داشته باشه که!!

[ایلیا آخوندزاده]

باسلام و درود
درسته کاربر نباید به بانک دسترسی داشته باشه ولی می تونم بپرسم هدف شما از این تغییر نام چیه؟ شاید اونطوری بهتر بتونیم کمکتون بکنیم.