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]Back End em Pasta Compartilhada na rede

    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Back End em Pasta Compartilhada na rede Empty [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  tauron em 12/2/2020, 10:44

    Bom dia Habitantes da Selva,

    Achei este código em um vídeo do Adelino e gostei muito mas, não estou conseguindo rodar pois meu BE está localizado em uma pasta compartilhada na rede.

    Código:
    Private Sub fncCMatric()
    Dim bd As Database
    Dim rs As Recordset
    Dim strSql As String

    strSql = "SELECT meucampo, Nivel FROM minhatabela ORDER BY campo;"

    [color=#ffff00]Set bd = OpenDatabase(CurrentProject.Path & "\meuBE_be.accdb", False, False, ";PWD=senhadoBE")[/color]

    Set rs = bd.OpenRecordset(strSql, dbOpenSnapshot)
    Do Until rs.EOF
        Me!Campo.AddItem rs!campo
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
    bd.Close
    Set bd = Nothing
    End Sub

    Erro em tempo de Execução: 3031
    Senha Inválida
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4634
    Registrado : 20/04/2011

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  Silvio em 12/2/2020, 11:18

    boas....

    1- verificar se tem permissão de acessar a pasta na rede.
    2- dar acesso a todos nessa pasta, permissão de leitura e gravação.
    3- se a tua rede está sob um domínio, verificar em Central de rede /compartilhamento ( compartilhamento protegido por senha ), se estiver pedindo senha, se tiver desmarcar.
    4- Conexões de mudar de compartilhamento de arquivos ( de 128 para 40/56bits ).


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  tauron em 12/2/2020, 13:00

    Bom dia Silvio,

    Veja bem, o sistema já roda normalmente na rede com tabelas vinculadas.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  Alexandre Fim em 12/2/2020, 13:36

    Tauron bom dia,

    Veja se estas dicas funcionam:

    1. Inicie o aplicativo Access (qualquer arquivo de acesso)
    2. Clique em Arquivo e depois em Opções
    3. Clique em Configurações do cliente
    4. Vá para a seção Avançado e marque "usar criptografia herdada (boa para compatibilidade reversa e banco de dados multiusuário)"
    5. Reinicie o Access (fechando todos os bancos de dados de acesso atualmente)

    Boa sorte.

    []'s


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  DamascenoJr. em 12/2/2020, 22:36

    No seu código você destacou a linha abaixo. Por quê?
    Código:
    Set bd = OpenDatabase(CurrentProject.Path & "\meuBE_be.accdb", False, False, ";PWD=senhadoBE")

    Se for porque ela que está dando erro então basta informar o caminho da rede no local de "CurrentProject.Path"
    Código:
    Set bd = OpenDatabase("\\ComputadorNaRede\PastaCompartilhada\meuBE_be.accdb", False, False, ";PWD=senhadoBE")


    .................................................................................
    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.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1242
    Registrado : 07/12/2011

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  tauron em 29/3/2020, 15:08

    Tinha postado outra divida relacionada a este post mas, decidi fechar este primeiro.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    [Resolvido]Back End em Pasta Compartilhada na rede Empty Re: [Resolvido]Back End em Pasta Compartilhada na rede

    Mensagem  DamascenoJr. em 29/3/2020, 15:48

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.

      Data/hora atual: 1/12/2020, 12:21