VBA Access - Remova Prefixo das suas Tabelas - Remove the Prefixes on Linked Tables

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Quando conectamos ou mesmo importamos tabelas de bancos de dados como o SQL Server, inerentemente assimilamos o prefixo dbo. A função abaixo serve para retirá-lo do nome da tabela, e se conseguir ver além do óbvio, perceberá que acabou de ganhar uma função que pode alterar o nome de qualquer parte, de qualquer tabela, contida na sua base de dados MS Access.

Sim, poderá nomear todas as tabelas ao sair da sua aplicação, renomeando-as corretamente após acessar a aplicação da forma certa, caso contrário a aplicação perde a funcionalidade.

Public Sub Remove_Prefix()

Dim obj As AccessObject
Dim dbs As Object

    Set dbs = Application.CurrentData

    'Search for open AccessObject objects in AllTables collection.
   For Each obj In dbs.AllTables
        'If found, remove prefix
       If Left(obj.Name, 4) = "dbo_" Then
            DoCmd.Rename Mid(obj.Name, 5), acTable, obj.Name
        End If
    Next obj
 End Sub

 Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA 

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: Access, prefix, rename, remove, SQL, Table, tabela, renomear, dbo, prefixo,