Renomear uma tabela do back-end pelo front-end
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 SubVeja 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
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |