VBA修改ACCESS表名

VBA修改ACCESS表名

Private Sub changetabname_Click()
    Dim tbl As TableDef
    Dim dbs As Database
    Dim nbl As String
    Dim obl As String
    nbl = "Newtable"
    Set dbs = CurrentDb
    For Each tbl In dbs.TableDefs
        obl = tbl.Name
        If obl = "Table1" Then
            tbl.Name = nbl
        MsgBox "修改成功", vbInformation, "提示"
        End If
    Next
End Sub