or actually can use existing Access function:
DoCmd.Rename "New Table Name", acTable, "Old Table Name"
https://docs.microsoft.com/en-us/office/vba/api/access.docmd.rename
can you share the codes of function: GetLinkedDBName ?
Public Function GetLinkedDBName(tableName As String)
Dim db As DAO.Database, Ret
On Error GoTo DBNameErr
Set db = CurrentDb()
Ret = db.TableDefs(tableName).Connect
GetLinkedDBName = Right(Ret, Len(Ret) - (InStr(1, Ret, "DATABASE=") + 8))
Exit Function
DBNameErr:
GetLinkedDBName = 0
End Function
try something like:
Open in new window
to implement:
Open in new window