MaximoAccess

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

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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    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!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    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: Seg 25 Set 2017, 23:12