[Resolvido]Vinculos com Back-end

Bom dia Srs.

Já Rodei a procura dessa reposta para meu aplicativo e encontrei a mais provavel é a que já foi resolvido pelo professor Avelino, a minha questão e igual a pergunta feita naquela ocasião veja abaixo a pergunta:

Olá!
No evento Open do form inicial do aplicativo quero gerar a vinculação de tabelas com o backend.
Não desejo REvincular. O objetivo é criar os vínculos toda vez que o programa (front) for aberto. Daí, se houver uma nova tabela na base, ela será incluída na vinculação.
Obrigado.

Bom coloquei o mesmo código que foi respondido e no meu aplicativo não deu certo:

Código:

Sub Importa(ByVal strDbPath As String, _
   Optional ByVal varPwd As Variant = "")
   'Desenvolvido por JR
   'http://www.accessjr.cjb.net
   Dim db As DAO.Database, tdf As DAO.TableDef
   Dim strNome As String, I As Integer
   
   On Error GoTo ErrHandler
   
   Screen.MousePointer = 11   ' Muda cursor para ampulheta
   
   Set db = DBEngine(0).OpenDatabase(strDbPath, False, _
       False, ";pwd=" & varPwd)
   I = 0 'Zera contador de tabelas importadas.
   For Each tdf In db.TableDefs
   ' Pula tabelas de sistema ou ocultas.
       If Left(tdf.Name, 4) <> "MSys" Then
           strNome = tdf.Name
           DoCmd.TransferDatabase acLink, "Microsoft Access", _
                db.Name, acTable, strNome, strNome, False
           I = I + 1  ' Ajusta contador de tabelas.
       End If
   Next tdf
   MsgBox "Foram importadas " & I & " tabelas de" & vbCrLf _
           & Dir(db.Name), vbExclamation, "Status da importação"
   
Sai:
   Screen.MousePointer = 0
   Set db = Nothing    ' Libera memória
   Set tdf = Nothing
   Exit Sub
   
ErrHandler:
   MsgBox "Erro nº " & Err.Number & vbCrLf _
       & Err.Description, vbCritical, "Erro"
   Resume Sai
End Sub

E criei um botão chamado: btn_relacionar e coloquei o seguinte código:

Código:

Dim strDb As String
   strDb = " C:\Nova pasta\Sistema_Azul_be.accdb "
   Call Importa

 
E da uma mensagem de erro da seguinte forma:
Erro de Copilação: O argumento não é opcional.

Alguém poderia me ajudar?

Obrigado

Olá Pedro Bessa,

O tópico foi movido para Módulos e VBA (pois abriu em Formulários).

Na sua pergunta já tem a resposta, veja:
"Erro de Copilação: O argumento não é opcional."
Teste assim:

Código:

Call Importa("C:\Nova pasta\Sistema_Azul_be.accdb")

Abraço

Boa tarde!!!
Professor Teixeira

Primeiro quero lhe agradecer pela ajuda, e me desculpar pela demora na resposta, já que fiquei sem ter acesso.
Amigo deu certo, ele fez o vínculo, vou dar o assunto como resolvido.
Porém se for possível me ajudar ele esta vinculando, mas não está deletando as tabelas existentes com isso cria duplicidade. Teria que criar um módulo?

Obrigado...

Olá Pedro Bessa,

Obrigado pelo retorno, para verificar e eliminar, veja no tópico abaixo no (segundo código) já faz a verificação e se existir elimina.
https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

Será ajustar a mesma "técnica" no código que está a usar.
Estou no tablet e não dá para ajustar código.

Abraço