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