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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).



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: