[Resolvido]Erro Código VBA não encontrado.

olá pessoal do Forum!

Estou com dificuldades em achar o erro no Open, pois estava ok, mais acrescentei estás linha e parou de funcionar, acho que fiz caca, rsrsrs.

'------------------------------------------------
'Abre o back-end, informando a senha de acesso
'------------------------------------------------
Set bdlista = OpenDatabase(DLookup("path_0", "tblCaminhoBe"), False, False, _
";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
'------------------------------------------------


Por favor gostaria de uma ajuda.

Obrigado.


Private Sub Form_Close()

On Error Resume Next
If nlogoff = False Then Exit Sub
rslista.Close 'Encerra conexão com o recordset
Set bdlista = Nothing
If nlogoff = False Then Exit Sub
DoCmd.Quit
'On Error Resume Next
'If nlogoff = False Then Exit Sub
'DoCmd.Quit
End Sub

________________________________________________________

Private Sub Form_Open(Cancel As Integer)
'------------------------------------------------
'Abre o back-end, informando a senha de acesso
'------------------------------------------------
Set bdlista = OpenDatabase(DLookup("path_0", "tblCaminhoBe"), False, False, _
";PWD=" & fncCrip(DLookup("senha", "tblCaminhoBe"), 102030))
'------------------------------------------------

Call CriarMenuFormularios
Call CriarMenuRelatorios

Set dbs = CurrentDb
strSQL = "SELECT * FROM viewEmpresa"
Set rst = dbs.OpenRecordset(strSQL)
Me.txtEmpresa = rst("ccNomEmp")
DadosEmpresa.crt = rst("ccCRT")
DadosEmpresa.ALIQUOTA = rst("ccAliquotaSimples")
rst.Close

Set dbs = CurrentDb
strSQL = "SELECT * FROM tbl_Parametros"
Set rst = dbs.OpenRecordset(strSQL)
Modulos.UsuarioECF = rst("UsuarioECF")
Modulos.UsuarioNFe = rst("UsuarioNFE")
Modulos.UsuarioCobranca = rst("UsuarioCobranca")
Modulos.UsuarioSMS = rst("UsuarioSMS")
Modulos.UsuarioOS = rst("UsuarioOS")
Modulos.UsuarioOF = rst("UsuarioOF")
rst.Close
EstadoCapsLock
End Sub

Às vezes acontece isso comigo também. Vai na guia FERRAMENTAS DO BANCO DE DADOS, clica em Compactar e Reparar Banco de Dados, se seu arquivo continuar aberto após este processo feche-o. Abra o arquivo novamente no modo edição (com a tecla Shift pressionada ao abrir o arquivo), e abra o form aonde você colocou o ultimo código em Modo Design. Após abrir no Modo Design, abra ele no Modo Formulário.
As vezes não funciona de primeira mas funciona comigo.

Obrigado por responder João Marcos.

Eu já tinha tentado, mais não é isso.

Mais valeu.

Alexandre, algum avanço?

Aguardamos...

Opá... Damasceno!

Não, eu não tive progresso, pois estava intermitente. Uma hora carregava outra não.

Parei de usar o Open.

Obrigado.