MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    Revincular tabelas

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Revincular tabelas

    Mensagem  Luís Antunes 18/2/2021, 21:42

    Quis adaptar este código mas dá erro na linha nº 10 "Tdf.RefreshLink"
    Estou a utilizar o Office 2007

    Código:
    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

    Luís Antunes
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 18/2/2021, 22:26

    Luis

    Não é tão simples assim.

    veja nesse site do colega Avelino Sampaio:

    usandoaccess.com.br/tutoriais/vinculando-tabelas-com-barra-de-progresso.asp

    Copie e cole no navegador


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 18/2/2021, 23:55

    Boa noite Nobresinho

    O que eu necessitava mesmo era enviar a bd à minha colega já com o caminho das tabelas.
    Como a BE se situa num servidor é complicado localizá-la, tenho que me deslocar ao local que, nesta
    altura de pandemia não é aconselhável.
    PS
    O meu projecto já abre o explorer para localizar as tabelas e liga-as

    Luís Filipe
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 19/2/2021, 00:51

    Se entendi, você pode enviar uma cópia do Front End já com as tabelas vinculadas para a tua colega.

    Para isso,  compacte o Front End em zip ou rar e envie para ela.


    Agora se quiser fazer isso do modo correto, o certo seria fazer a vinculação das tabelas.

    Mas creio que não será preciso, já que o front estará vinculado com o Back End.

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 19/2/2021, 20:49

    Boa Noite Nobresinho

    Supondo que o código funcionasse punha o endereço, "Call ReVincularTabelas("Ederesso"), Na abertura do login. Assim o utilizador
    não teria o trabalho de procurar nas imensas pastas da intranet do Ministério da Justiça.

    Luís Antunes
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 19/2/2021, 20:59


    Vincular tabelas só se faz uma vez, na primeira vez que se está instalando o aplicativo no computador.

    E quem tiver instalando, deverá sim, mostrar ao aplicativo onde está o Back End.

    E para isso, já que ele está instalando, já deverá saber onde colocou esse Back End.

    { }'s

    Balem








    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 19/2/2021, 23:13

    Boa noite Nobresinho

    Uma coisa é saber onde está o ficheiro BE outra é procurar pelo explorer a sua localização.
    É certo que o Access não altera a localização, mas se tenho uma versão "FE" melhorada aí
    já é necessário de ligar as tabelas, a não ser que se conseguisse memorizar, no FE, a localização
    do BE.
    Se nada disto for possível, não há problema, vou ter que ser eu a instalar O FE, logo que possa.

    Obrigado pela disponibilidade e pelo seu tempo.

    Luís Antunes


    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 19/2/2021, 23:25

    Sim, ele fica gravado numa tabela

    baixe o arquivo que existe na página do usandoAccess que te passei.

    Ele tem ó exemplo pronto.

    É só vc estudar os códigos





    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 23/2/2021, 20:55

    Boa Noite Nobresinho
    Segui o seu conselho, estou a adaptar a vinculação de tabelas do mestre Avelino.
    Estou com um problema quando salvo o caminho aprece a mensagem " falha na conexão com o BE".
    Alguma ideia do que possa ser?

    Luís Antunes
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 26/2/2021, 19:42

    Boa noite Nobrezinho
    Estou a enviar o a BD com o problema ditado na mensagem anterior.

    Luís Antunes
    Anexos
    Revincular tabelas AttachmentContabilidade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (274 Kb) Baixado 4 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 26/2/2021, 22:27

    Luis

    Utilize esse código para re vincular as tabelas

    { }'s

    Balem
    Anexos
    Revincular tabelas AttachmentvinculosparaMaximoAccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (245 Kb) Baixado 14 vez(es)


    Última edição por Noobezinho em 27/2/2021, 09:25, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4758
    Registrado : 06/11/2009

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Assis 26/2/2021, 22:46

    Noob

    Veja ao fazer a vinculação.

    Uso Office 2013 32

    Revincular tabelas Sem_t186


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 26/2/2021, 22:53

    Assis

    Esqueci de tirar isso,

    É uma Msgbox diferente.

    apague o dialog.

    Onde tiver assim:

    Dialog.Box "Conexão com a base de dados restabelecida.", vbInformation, "Conexão efetuada.", , , 1

    Deixe assim:

    MsgBox "Conexão com a base de dados restabelecida.", vbInformation, "Conexão efetuada."

    Só tem 3 frases.

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4758
    Registrado : 06/11/2009

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Assis 27/2/2021, 09:05

    Bom dia Noob

    O melhor ser o Amigo a fazer a correção pois tem mais erros ao depurar

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 27/2/2021, 09:27

    Amigos

    Enviei o exemplo exatamente como uso.

    Nele tem uma outra maneira de usar a caixa de mensagem.

    Espero que gostem.

    Está na mensagem nº 11

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Luís Antunes 27/2/2021, 22:51

    Boa noite amigo
    O meu projecto já tem o programa para vincular tabelas.
    Por sua sugestão, na mensagem nº 2 e 8, estou a tentar adaptar o projecto do mestre Avelino.Este projecto tem a vantagem
    de ter o caminho das tabelas numa tabela.
    O problema é que quando salvo o cominho aparece a mensagem " falha na conexão com o BE"-

    Luís Antunes
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    Revincular tabelas Empty Re: Revincular tabelas

    Mensagem  Noobezinho 28/2/2021, 11:10


    Bem sugiro que procure o Autor do código.

    O nome dele é Avelino Sampaio e é membro desse fórum

    Apenas sugeri o tópico dele.

    Quanto à "vantagem" de ser em tabelas, se pesquisar na internet,

    vai encontrar a maioria dos exemplos, senão todos, usando tabelas.

    Te envie o que uso, com uma maneira mais segura de guardar o caminho do
    BE.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 8/2/2023, 00:58