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, 

VBA Tips - Renomeando arquivos aleatóriamente numa pasta - Renaming files Randomly in a folder using VBA

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Sim, agora poderemos dar nomes aleatórios há vários arquivos reunidos numa pasta. Todos serão renomeados:

Function ReFileNameRandomly (Prefix As String, _

                    FILEPATH As String, _

                    nExtension As String, _

                    FinalExtension As String)

    

    Dim strfile As String

    Dim filenum As String

    Dim SizeExtension As Integer

    Dim sFileNumber As String

    

    Let strfile = Dir(FILEPATH)

    Let SizeExtension = Len(Replace(nExtension, ".", ""))

    Do While strfile <> ""

        Debug.Print strfile

    

        If Right$(strfile, SizeExtension) = nExtension Then

            Let filenum = Mid$(strfile, Len(strfile) - 6, SizeExtension)

            Let sFileNumber = Int((99999 - 10000 + 1) * Rnd + 10000)

            

            Name FILEPATH & strfile As FILEPATH & Prefix & sFileNumber & "." & FinalExtension

        End If

        Let strfile = Dir

    Loop

End Function

Tags: VBA, file, rename, folder, pasta, tips, randomly, aleatoriamente, aleatório, renomear