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
Fazer função vincular 04 Backend

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


Fazer função vincular 04 Backend

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

Usuário Paulo:

Como mudar esta função para o meu Frontend vincular 04 Backend separados?

Tenho um Frontend e quatro Backend, mas na função, só é considerado o nome de um Backend.  Preciso verificar e vincular as tabelas que cada um destes 04 arquivos Backend possui.

Não sei como mudar o código deste tópico para atender a minha necessidade.

Suporte:

Paulo, retire a linha:

LocalBe = CurrentProject.Path & "\vincular_be.mdb"

e passe a variável LocalBe como parâmetro da função:

Public Sub fncVincular(LocalBe as string)

Depois, chame a função para quantos Backend desejar:

Call fncVincular(CurrentProject.Path & "\base1_be.mdb")
Call fncVincular(CurrentProject.Path & "\base2_be.mdb")
Call fncVincular(CurrentProject.Path & "\base3_be.mdb")
Call fncVincular(CurrentProject.Path & "\base4_be.mdb")

Usuário Paulo:

Avelino, percebi que em outro computador não funciona quando coloco o projeto Frontend com os Backend. O aplicativo não recalcula os vínculos para o outro caminho novo do outro computador. E dá o seguinte erro:

macro de segurança

Coloquei o Call fncVincular em um formulário Splash antes do formulário principal, mas ainda dá o ERRO da imagem acima.

Suporte:

Paulo, isto não é um erro.  É apenas um aviso informando que sua pasta não é considerada segura para o Access. É necessário configurar para que a sua pasta se torne segura para o Access.  Qual é a versão do Access que você possui?

Usuário Paulo:

MS Access 2016 32 Bits

Suporte:

Paulo, vá em ARQUIVOS > OPÇÕES > CENTRAL DE CONFIABILIDADE > Clique no botão "CONFIGURAÇÕES DA CENTRAL DE CONFIABILIDADE" > LOCAIS CONFIÁVEIS > Clique no botão "ADICIONAR NOVO LOCAL" > Clique no botão "PROCURAR" e encontre a pasta do seu projeto > Marque "As subPastas deste local também são confiáveis" > Clique em OK.

Com isso, você está indicando ao Access que a sua pasta é confiável. Veja mais detalhes neste meu artigo.

Usuário Paulo:

OK, Avelino - Deu certo!

Esta resolvido, mas não tem como fazer este processo via VBA?

Suporte:

Paulo, observe neste meu outro artigo:

seguem as modificações no projeto exemplo, incluindo a função isTrusted.  A primeira vez que rodar o aplicativo, a mensagem da Macro de Segurança será exibida.

- Clique em Abrir na tela de mensagem do aviso de segurança.

- A função para configurar a pasta, como segura, será acionada e uma mensagem será exibida, informando que o aplicativo será fechado para concluir as configurações.

- Na próxima abertura não haverá mais mensagem e o aplicativo irá realizar a vinculação das tabelas.

Atente para as mudanças (parte em vermelho) na função fncConfigMacro().

Public Function fncConfigMacro()
Dim reg As Object

On Error Resume Next
'----------------------------------------
'Se já foi configurado, abortar função.
'----------------------------------------
If fncJaConfigurado Then
    'Vincula tabelas se necessário
    Call fncVincularBe
    'Abre formulário inicial
    DoCmd.OpenForm "frmClientes"
    Exit Function
End If
'------------------------------------------------------------
CaminhoLoc = fncCaminhoLoc
Set reg = CreateObject("wscript.shell")
'--------------------------------------------------------
'Configurando pasta confiável aonde se encontra seu BD
'--------------------------------------------------------
reg.regWrite CaminhoLoc & "AllowSubfolders", 1, "REG_DWORD"
reg.regWrite CaminhoLoc & "Date", Date, "REG_SZ"
reg.regWrite CaminhoLoc & "Description", "Projeto exemplo", "REG_SZ"
reg.regWrite CaminhoLoc & "Path", fncLocalBd, "REG_SZ"
'-----------------------
'Libera pasta de rede
'-----------------------
reg.regWrite fncCaminhoLoc(True) & "AllowNetworkLocations", 1, "REG_DWORD"

Set reg = Nothing
MsgBox "O aplicativo será fechado para concluir as configurações de segurança...", _
vbInformation, "Aviso"
TempVars!sair = True
End Function

Usuário Paulo:

MUITO OBRIGADO, Avelino Sampaio!

Download

 


 

 


Não há comentário

Envie seu comentário: