...
Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF +
Diversas Revistas (pdf) de brinde, por apenas
R$182,00
(podendo
parcelar em até
10
vezes no cartão de crédito)...
Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.
Renomear uma tabela do back-end pelo front-end
Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |