Usando Access

Renomear uma tabela do back-end pelo front-end

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Podemos utilizar a propriedade NAME da colação TableDefs do DAO.  Acompanhe os comentários:

Public Sub fncRenomearTabelaBe(strNomeAtual$, strNomeNovo$)
Dim bd As DAO.Database

Dim LocalBe As String
On Error GoTo TrataErro

'----------------------

'Caminho do back-end

'----------------------

LocalBE = "\\MeuSevidor\PastaBe\back-end.accdb"

'------------------

'Abre o back-end

'------------------
Set bd = DBEngine.OpenDatabase(LocalBe, False, False, ";PWD=Senha")

'---------------------------------------------

'Renomeia a tabela usando a propriedade 'Name'

'---------------------------------------------
bd.TableDefs(strNomeAtual).Name = strNomeNovo

Sair:
   bd.Close
   Set db = Nothing

TrataErro:
   If Err.Number = 3262 Then
      MsgBox "A tabela está em uso, não sendo possível renomeá-la....", _

      vbInformation, "Aviso"
      Resume Sair
   End If
End Sub

Veja como fica a chamada do procedimento:

Call fncRenomearTabelaBe("tblNotas","tblNfe")

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Segurança máxima, usando o OPEN

Vídeo - Aprenda sobre filtragens

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Adquira o kit UsandoAccess e aprenda em alta velocidade

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |