ورود

View Full Version : سوال: تغییر نام جدول


azadich
چهارشنبه 23 آذر 1390, 20:24 عصر
سلام دوستان،من کدی می خوام وقتی روی کلیدی کلیک کنیم نام جدول به نام مورد نظر تایپ شده در یه تکست بوکس تغییر پیدا کنه .در برنامه فقط یه جدول با نام a موجود است ممنون
Abbas Amiri
چهارشنبه 23 آذر 1390, 20:57 عصر
Sub RenameTable(OldName As String, NewName As String)
CurrentDb.TableDefs(OldName).Name = NewName
Application.RefreshDatabaseWindow
End Sub

RenameTable "a","Table1"
azadich
چهارشنبه 23 آذر 1390, 21:20 عصر
Sub RenameTable(OldName As String, NewName As String)
CurrentDb.TableDefs(OldName).Name = NewName
Application.RefreshDatabaseWindow
End Sub

RenameTable "a","Table1"


ممنون میشه یه نمونه بزاری
Abbas Amiri
چهارشنبه 23 آذر 1390, 21:27 عصر
یک باتن روی فرم بزارید و در روال Click آن RenameTable "a","Table1" و یا هر اسم جدول دیگری را قراردهید
soroush_k12
پنج شنبه 24 آذر 1390, 10:43 صبح
ممنون میشه یه نمونه بزاری

اين هم نمونه