MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Alterar nome do compartilhamento

    Compartilhe

    israelschmitt
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 01/04/2016

    Alterar nome do compartilhamento

    Mensagem  israelschmitt em Qua 08 Jun 2016, 01:55

    Boa noite pessoal!
    Não tenho muito conhecimento em access, porém foi me passado uma aplicação para realizar a manutenção e preciso de ajuda.
    O banco da aplicação que estou alterando fica dentro da pasta "\\servidor\c\sistema" só que não sei onde altero esse caminho desse compartilhamento dentro do mdb. O banco não irá ficar mais dentro desse caminho e necessito colocar o novo compartilhamento.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Alterar nome do compartilhamento

    Mensagem  Alexandre Neves em Qua 08 Jun 2016, 21:12

    Boa noite, e bem-vindo ao fórum
    Não entendi a sua questão
    Vai mudar o local da sua bd? Precisa de actualizar o vínculo?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    israelschmitt
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 01/04/2016

    Re: Alterar nome do compartilhamento

    Mensagem  israelschmitt em Qua 08 Jun 2016, 22:49

    Isso mesmo Alexandre!

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Alterar nome do compartilhamento

    Mensagem  Alexandre Neves em Qui 09 Jun 2016, 12:17

    Bom dia
    Se tem o back na mesma pasta do front, execute este código

    Public Function RefreshTableLinks() As String
    '—————————————————————————-
    ' Procedure: RefreshTableLinks
    ' Purpose: Refresh table links to back-ends in the same folder as front end.
    ' Note: Linked Tables can be in more than one back-end.
    ' Return: Returns a zero-length string if all tables are relinked.
    ' Return: Or returns a string listing tables not relinked and errors.
    '—————————————————————————-

    On Error GoTo ErrHandle

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strCon As String
    Dim strBackEnd As String
    Dim strMsg As String
    Dim intErrorCount As Integer

    Set db = CurrentDb

    'Loop through the TableDefs Collection.
    For Each tdf In db.TableDefs
    'Verify the table is a linked table.
    If Left$(tdf.Connect, 10) = ";DATABASE=" Then
    'Get the existing Connection String.
    strCon = Nz(tdf.Connect, "")
    'Get the name of the back-end database using String Functions.
    'strBackEnd = Right$(strCon, (Len(strCon) – (InStrRev(strCon, "") – 1)))
    strBackEnd = Right$(strCon, (Len(strCon) - (InStrRev(strCon, "") - 1)))

    'Verify we have a value for the back-end
    If Len(strBackEnd & "") > 0 Then
    'Set a reference to the TableDef Object.
    Set tdf = db.TableDefs(tdf.Name)
    'verifica se tem ligação actualizada
    strBackEnd = "\BackMediadores.accdb"
    If tdf.Connect = ";DATABASE=" & CurrentProject.path & strBackEnd Then
    'já tem tabelas ligasa neste endereço
    Exit Function
    Else
    'Build the new Connection Property Value.
    tdf.Connect = ";DATABASE=" & CurrentProject.path & strBackEnd
    'Refresh the table link.
    tdf.RefreshLink
    End If
    Else
    'There was a problem getting the name of the back-end.
    'Add the information to the message to notify the user.
    intErrorCount = intErrorCount + 1
    strMsg = strMsg & "Error getting back-end database name." & vbNewLine
    strMsg = strMsg & "Table Name: " & tdf.Name & vbNewLine
    strMsg = strMsg & "Connect = " & strCon & vbNewLine
    End If
    End If
    Next tdf
    ExitHere:
    On Error Resume Next
    If intErrorCount > 0 Then
    strMsg = "There were errors refreshing the table links: " _
    & vbNewLine & strMsg & "In Procedure RefreshTableLinks"
    RefreshTableLinks = strMsg
    End If
    Set tdf = Nothing
    Set db = Nothing
    Exit Function
    ErrHandle:
    intErrorCount = intErrorCount + 1
    strMsg = strMsg & "Error " & err.Number & " " & err.Description
    strMsg = strMsg & vbNewLine & "Table Name: " & tdf.Name & vbNewLine
    strMsg = strMsg & "Connect = " & strCon & vbNewLine
    'Debug.Print strMsg
    Resume ExitHere
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qui 08 Dez 2016, 00:07