Access Run Time nao abre um relatorio

Boa Noite,

Um aplicação access abre normalmente os relatorios em minha maquina.

Quando transformo em mde e levo para maquina do cliente, ele abre a aplicação mas não consegue abrir o relatorio.

O que pode ser?

Bom dia, como no seu tópico sobre o erro dos objetos ocultos, há as mesmas variáveis.

Mas aqui você nos forneceu uma informação interessante.

Ao compilar seu sistema em accde, o Runtime deve estar na mesma versão de desenvolvimento/compilação.

E a extensão do seu arquivo access (front-end) deverá está em .accdr, que indicará ao Access que será
rodado em Runtime.

Mas volto a falar, considere todas as variáveis que apontei no seu outro tópico.

Como anda essa questão?

boa noite,

Devido a um outro projeto, tb em access, devo retornar aos testes na empresa na próxima semana.

Mas lá é o seguinte...tem acceso 2003, 2010 e 2013. Devido a umas dificuldades com.o Oracle o access só funciona na versão 2003 e 2007. As outras versões da erro no campo moeda. Já tentei ajustar o odbc e tb o nsl_lang e acabou dando conflito no ERP da totvs.

Na próxima semana dou retorno.

Muito obrigado.

Observei hoje que o erro no run time aparece logo apos o usuário digitar usuário e senha em uma tela/formulário de login.

Neste ENTRAR tem o seguinte código, visando impedir que o usuario acesse os demais objetos do banco de dados.

Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click

If Not IsNull(Me.SenhaDigitada) Then

'********************************************************************************************
If Me.CxUsuCPF.Column(1) = Me.UsuCPF And EncryptText(Me.SenhaDigitada) = Me.UsuSenha And Me.CxUsuCPF.Column(1) = "xxxxxxxxxxx" Then
If Me.UsuCPF = "xxxxxxxxxxx" Then
Application.SetOption "Mostrar Objetos Ocultos", True
AlterarPropriedade "AllowBypassKey", dbBoolean, True
Else
AlterarPropriedade "AllowBypassKey", dbBoolean, False

End If


ElseIf Me.CxUsuCPF.Column(1) = Me.UsuCPF And EncryptText(Me.SenhaDigitada) = Me.UsuSenha And Me.CxUsuCPF.Column(1) <> "xxxxxxxxxxx" Then
AlterarPropriedade "AllowBypassKey", dbBoolean, False
Application.SetOption "Mostrar Objetos Ocultos", False
End If

'********************************************************************************************

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "TelaFundo"

If Me.CxUsuCPF.Column(1) = Me.UsuCPF Then

If EncryptText(Me.SenhaDigitada) = Me.UsuSenha Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm "CxDialCCB"
Else
MsgBox " Senha invalida", vbInformation, "Conciliador B"
Me.SenhaDigitada = ""
Me.SenhaDigitada.SetFocus
End If

Else
MsgBox "CPF não Cadastrado ", vbInformation, "Conciliador B"
Me.CxUsuCPF.SetFocus
End If
'********************************************************************************************
Else

MsgBox "Digite uma senha", vbInformation, "Conciliador B"
Me.SenhaDigitada.SetFocus

End If

Exit_Comando5_Click:
Exit Sub

Err_Comando5_Click:
MsgBox Err.Description
Resume Exit_Comando5_Click

End Sub