Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

22 de novembro de 2013

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

Inline image 1

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


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, 


Inline image 1

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine