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
Tags: Access, prefix, rename, remove, SQL, Table, tabela, renomear, dbo, prefixo,
Nenhum comentário:
Postar um comentário