Exportanto tabelas do front-end para o back-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é 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Para acrescentar tabelas ao back-end (sem o acesso presencial), prefiro montar as tabelas no front-end e então exportá-las pelo comando Docmd.TransferdDatabase. Assim sendo, evito um monte de linhas de código, conforme você pode observar nas dicas acima.
Exemplificando: monto as tabela que irei exportar no front-end com o prefixo exp no nome.
exp_tblProdutos
exp_tblClientes
Este prefixo facilita e exclusão destas tabelas do front-end, no fim do processo de exportação. Acompanhe os comentários do código:
Public Sub fncExportaTabelas()
Dim bd As dao.Database
Dim CaminhoBe as String
Dim tbl As dao.TableDef
'--------------------------------------------
'Passa o caminho do back-end para a variável
'---------------------------------------------
CaminhoBe = "\\NomeServidor\PastaBackEnd\base_be.accdb"
'--------------------------------------------------------------------
'Abre o back-end com senha.
'Mantemos o back-end aberto até concluir a exportação das tabelas.
'-------------------------------------------------------------------- Set bd = DBEngine.OpenDatabase(CaminhoBe,False, False, ";pwd=Senha")
'--------------------------------------------------
Exportando as tabelas do frot-end para o back-end
'-------------------------------------------------- DoCmd.TransferDatabase acExport, "Microsoft Access", "CaminhoBe", _
acTable,"exp_tblClientes", "tblClientes", false
DoCmd.TransferDatabase acExport, "Microsoft Access", "CaminhoBe", _
acTable,"exp_tblProdutos", "tblProdutos", false
'-----------------------------------------------
'Deleta as tabelas de exportação do front-end
'-------------------------------------------- For Each tbl In CurrentDb.TableDefs
'--------------------------------------------------- 'Se a tabela tiver o prefixo exp_ ao nome, deletar
'--------------------------------------------------- If InStr(tbl.Name, "exp_") > 0 Then DoCmd.DeleteObject acTable, tbl.Name End If Next
'-----------------------------------
'Mensagem de exportação concluída
'-----------------------------------
Msgbox "Exportação das tabelas concluída...",vbOKOnly ,"Aviso"
'---------------------------------------
'Fecha o back-end e limpa a variável bd
'--------------------------------------- bd.Close Set bd = Nothing
End sub
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 - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
Não há comentário |