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


2 participantes

    [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?

    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe? Empty [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?

    Mensagem  Clebergyn 23/6/2018, 20:42

    Olá Amigos do forum,

    tenho uma função para mudar senha e vincular tabelas só que após a execução ela altera os relacionamentos, ou tira os relacionamentos das tabelas, no menu relacionamentos,

    alguem tem alguma experiencia, se tem como executar a função para refazer os vinculos das tabelas e mudar a senha sem mexer nos relacionamentos?

    a função que eu uso é esta
    Código:

    Function ReVincularTabelas(strcaminho As String, senha As String)
    On Error GoTo y1:
    Dim Dbs As Database
    Dim dbfront, conect
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs, Conttdf As Integer, StatusTexto
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs

    Set Dbs = DBEngine(0)(0)
        Conttdf = 1 ' Ajusta contador de tabelas = 1
    DoCmd.Hourglass True
        ' Inicia a barra de progresso do Access.
        StatusTexto = "Atualizando vínculos com " & strcaminho & "..."
        SysCmd acSysCmdInitMeter, StatusTexto, Dbs.TableDefs.Count
      If IsNull(senha) Or senha = "" Then
        conect = ";Database=" & strcaminho
      Else
        conect = ";Database=" & strcaminho & ";Pwd=" & Nz(senha)
      End If
     
     For Each Tdf In Tdfs
     If Tdf.SourceTableName <> "" Then
      'SysCmd acSysCmdInitMeter, StatusTexto, Dbs.TableDefs.Count
      SysCmd acSysCmdUpdateMeter, Conttdf 'Atualiza o progresso.
      Conttdf = Conttdf + 1:
      Tdf.Connect = conect
      Tdf.RefreshLink: 'Forms!aviso.Requery
    End If
    Next
    SysCmd acSysCmdRemoveMeter
    DoCmd.Hourglass False
    ReVincularTabelas = True
    Exit Function
    y1: SysCmd acSysCmdRemoveMeter: DoCmd.Hourglass False: MsgBox Err.Description:
     ReVincularTabelas = False:
    End Function

    desde já agradeço

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe? Empty Re: [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?

    Mensagem  DamascenoJr. 18/4/2020, 14:07

    Algum avanço aqui?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 29/08/2012

    [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe? Empty Re: [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?

    Mensagem  Clebergyn 19/4/2020, 22:56

    Já consegui resolver

    Obrigado DamascenoJr.

    Conteúdo patrocinado


    [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe? Empty Re: [Resolvido]Função para mudar senha e vincular tabelas sem alterar os relacionamentos, alguem sabe?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:39