[Resolvido]Vincular-revincular back-end

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

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

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

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

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

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

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

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

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

à partida não

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

http://dl.dropbox.com/u/8157744/vincular.rar

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

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

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?

Agora deu certo.

Obrigado.

Obrigado pelo retorno. O Fórum agradece.

Sucesso

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

procure aqui no fórum a resolução

http://maximoaccess.forumeiros.com/t1507-resolvidovincular-tabelas-com-password

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

Um enorme abraço, Avelino João.

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

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

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