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

    Revincular tabelas

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    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 : 4121
    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 : 391
    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 : 4121
    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 : 391
    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 : 4121
    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 : 391
    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 : 4121
    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 : 391
    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 : 391
    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 : 4121
    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 10 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 : 4448
    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 : 4121
    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 : 4448
    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 : 4121
    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 : 391
    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 : 4121
    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: 13/6/2021, 00:54