[Resolvido]Back End em Pasta Compartilhada na rede

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

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

Bom dia Silvio,

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

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

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")

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

O fórum agradece o retorno. Sucesso.