bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Exportanto tabelas do front-end para o back-end

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: