MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Vinculos com Back-end

    Compartilhe

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 07/11/2013

    [Resolvido]Vinculos com Back-end

    Mensagem  Bessa_SP em 16/7/2018, 15:02

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5544
    Registrado : 15/03/2013

    Re: [Resolvido]Vinculos com Back-end

    Mensagem  ahteixeira em 22/8/2018, 12:21

    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

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 07/11/2013

    Vinculos com Back-end

    Mensagem  Bessa_SP em 10/9/2018, 18:50

    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...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5544
    Registrado : 15/03/2013

    Re: [Resolvido]Vinculos com Back-end

    Mensagem  ahteixeira em 10/9/2018, 19:04

    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.
    [Você precisa estar registrado e conectado para ver este link.]

    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

      Data/hora atual: 15/10/2018, 20:52