MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    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 em 23/6/2018, 23: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/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. em 18/4/2020, 17: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    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 em 20/4/2020, 01:56

    Já consegui resolver

    Obrigado DamascenoJr.

      Data/hora atual: 11/8/2020, 12:09