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

Open v3

 

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: