MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Vincular-revincular back-end

    Compartilhe

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    [Resolvido]Vincular-revincular back-end

    Mensagem  STELLAMARIS em Qui 06 Maio 2010, 02:24

    Boa noite,
    Mais um vez preciso de Vocês !

    Criei um BD no access 2003, porem quando fui entregar percebi que meu cliente havia mudado para o Office 2007 e tive diversos problemas, bd evaporava, acontecia de tudo, então fui orientada a dividir o BD em BACKEND E FRONTEND, fiz a vinculação de tabelas seguindo o site do Avelino Sampaio, que muito tem me ajudado, porém agora me surgiu um problemão, eu tenho 2 tabelas que são temporárias, elas são criadas a partir de uma consulta "criar tabela", quando o usuário efetua determinado lançamento e sai do formulário, no botão de saída tem um procedimento que executa esta função.

    Está ocorrendo que, as tabelas temporárias não estão sendo criadas/atualizadas, no arquivo condominio_be.mdb, o que existe lá são coisas antigas, e notei que quando visualizo a lista de tabelas elas não mostram a seta de vinculação, ontem fazendo os testes me deparei com esse problema, existe alguma dica que vocês possam me dar?
    Informo que continuo fazendo todas as alterações no Access 2007 salvando na versão 2003.
    Meu prazo está esgotando para entrega deste trabalho, não terei tempo para estudar o access 2007.
    grata
    Stella Maris

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  JPaulo em Sex 07 Maio 2010, 11:42

    Oi Stella, olha eu aqui;

    Se o seu problema está na vinculação das tabelas, utilize um código no evento ao abrir do primeiro formulario e o seu problema estará resolvido.

    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\BackEnd.mdb")
    End Sub

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  STELLAMARIS em Sex 07 Maio 2010, 12:16

    JPaulo

    Quem bom que você me atendeu, obrigada !!!

    Eu vinculei as tabelas, mas é que as duas tab temporarias que não estão sendo atualizadas, elas perdem o vinculo, após eu clicar no botão de saída do formulário que tem um procedimento que executa a função de criar/atualizar.

    Eu vou vincular novamente como vocês esta me orientando, e te darei retorno
    um grande abraço
    Stella

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  STELLAMARIS em Ter 25 Maio 2010, 22:18

    JPaulo

    não te retornei este assunto, porque resolvi criar tudo novo no 2007, até para poder aprender, e vamos ver como as tabelas temporarias irão se comportar, de qualquer forma te agradeço e qualquer coisa peço socorro novamente ok
    um grande abraço
    Stella

    amorim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 16
    Registrado : 11/02/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  amorim em Qui 27 Maio 2010, 16:53

    Boa tarde...

    QUeria colocar a questão ao contrário...
    TEnho uma BD a funcionar na rede em que, no servidor estão BE e FE sendo que cada utilizador vai buscar o FE que vai sendo actualizado (por alterações em forms, ou consultas ou relatórios, etc), e cola no seu Pc.
    Acontece que sempre que é necessário fazer uma actualização, o problema não se coloca nas tabelas mas sim nos restantes objectos da BD.

    Conclusão, ao contrario da pergunta inicial, existirá algum codigo que permita deixar o vinculo de tabelas intacto e permita copiar todos os restantes objectos (substituindo os que já existirem)para o FE em cada um dos PC´s??

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  STELLAMARIS em Qui 27 Maio 2010, 23:42

    Amorim,
    boa noite,
    Sugiro que coloque sua solicitação nos tópicos dos formulários, pois sou apenas uma aprendiz e não saberia te orientar, ok!
    O pessoal deste forum é sensacional e com certeza irao te ajudar muito
    boa sorte

    Altair_147
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    Vincular tabelas

    Mensagem  Altair_147 em Dom 09 Jan 2011, 23:11

    Boa noite,

    Estou precisando fazer o seguinte, que sempre que abrir o form principal ele vincule todas as tabelas e estou usando o código abaixo mas nada acontece.

    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\servidor.mdb")
    End Sub

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub


    Obrigado

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Dom 09 Jan 2011, 23:17

    Você criou a função num módulo?

    Esta função é para ser colocada num módulo:

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub

    Altair_147
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    Vincular tabelas

    Mensagem  Altair_147 em Dom 09 Jan 2011, 23:22

    Sim, criei o modulo, mas no código abaixo tenho que mudar alguma coisa?

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub

    Obrigado

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Dom 09 Jan 2011, 23:29

    à partida não

    Veja este exemplo já pronto. Importe o Módulo e o form. Clique no form e as tabelas serão vinculadas

    [Você precisa estar registrado e conectado para ver este link.]

    Altair_147
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    Vincular tabelas

    Mensagem  Altair_147 em Dom 09 Jan 2011, 23:38

    Ok, mas por exemplo e se eu fosse usar o código anterior.
    Por exemplo o back end: servidor.mdb, e o front end: frente.mdb.

    Como ficaria o código?

    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\servidor.mdb")
    End Sub

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub

    Obrigado

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Dom 09 Jan 2011, 23:40

    Tal e qual já foi postado acima:

    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\BackEnd.mdb")
    End Sub

    inserir num módulo

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub


    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Dom 09 Jan 2011, 23:44

    Uma questão, já que diz que o código acima não funciona:

    Você vinculou primeiro as tabelas entre o Front e o Back End pelo access?

    Altair_147
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    Vincular tabelas

    Mensagem  Altair_147 em Dom 09 Jan 2011, 23:51

    Agora deu certo.

    Obrigado.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Dom 09 Jan 2011, 23:52

    Obrigado pelo retorno. O Fórum agradece.

    Sucesso

    Ramon.mattos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 09/05/2013

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  Ramon.mattos em Seg 26 Ago 2013, 14:53

    Bom dia.

    Tenho um SGBD (BackEnd), ao qual apliquei senha e acabei perdendo a conectividade com as minhas bases.

    Tentei renomear o acesso na coluna DataBase na tabela msysobjects, porem ela não é editalvel.

    Gostaria de revincular minhas back-ends porem com senha, como deveria ficar esta função.

    Obrigado a todos





    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Seg 26 Ago 2013, 15:44

    procure aqui no fórum a resolução

    [Você precisa estar registrado e conectado para ver este link.]

    Avelino João
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 257
    Registrado : 10/03/2012

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  Avelino João em Seg 26 Ago 2013, 17:48

    Passei aqui para dar um boa tarde ao Mestre vieirasoft muito tempo ausente do forun


    .................................................................................
    Proaccess - Angola

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  vieirasoft em Seg 26 Ago 2013, 18:16

    Um enorme abraço, Avelino João.

    MFOliveira73
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 08/09/2012

    Mesagem de erro

    Mensagem  MFOliveira73 em Seg 03 Mar 2014, 18:22

    Olá Silviosoft,

    Com a mesma situação do colega Altair_147 (mensagem nº11) segui os passos descritos por ti (inserido código mencionado no formulário principal para chamar a função e criado o módulo para o código abaixo) e obtive a seguinte mensagem de erro:

    Erro de Compilação:

    "O tipo definido pelo usuário não foi definido"

    O cursor fica sobre
    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database (*** O cursor pára nesta linha e dá-me a mensagem acima --- Será que é porque uso o access 2000??***)

    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub

    Deixei passar algo??

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  JPaulo em Ter 04 Mar 2014, 14:57

    Dentro do VBA vá a ferramentas, referencias e marque a Microsoft DAO 3.x Object Library.

    No seu codigo altere para,

    Dim Dbs As DAO.Database


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Fabio Pradella
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 08/02/2013

    Re: [Resolvido]Vincular-revincular back-end

    Mensagem  Fabio Pradella em Sab 15 Mar 2014, 13:24

    JPaulo Bom dia,

    Estou estudando bastante o assunto e estou com um probleminha, vou la e divido o projeto em back-end e front end, coloco o back-end em uma pasta compartilhada em rede, mas ai quando tento abrir o front-end não consigo de forma alguma, fica só na tela inicial do access como se eu tivesse que criar um novo projeto...

    Aonde estou errando???

    Obs: cheguei a este topico porque conseguindo entender este meu erro, o segundo passo é exatamente usar este teu codigo aqui disponivel para vincular as tabelas, mas antes preciso resolver este probleminha...



    Fabio Pradella

      Data/hora atual: Sab 10 Dez 2016, 13:43