... 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.


Exportanto tabelas do front-end para o back-end

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!


 

 


Não há comentário

Envie seu comentário: