... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Renomear uma tabela do back-end pelo front-end

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!


 

 


Não há comentário

Envie seu comentário: