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

    Access Run Time nao abre um relatorio

    avatar
    lucioapo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 12/05/2013

    Access Run Time nao abre um relatorio Empty Access Run Time nao abre um relatorio

    Mensagem  lucioapo em 14/5/2020, 02:57

    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?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    Access Run Time nao abre um relatorio Empty Re: Access Run Time nao abre um relatorio

    Mensagem  Marcelo David em 14/5/2020, 12:59

    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.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    Access Run Time nao abre um relatorio Empty Re: Access Run Time nao abre um relatorio

    Mensagem  Marcelo David em 2/6/2020, 22:14

    Como anda essa questão?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    lucioapo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 12/05/2013

    Access Run Time nao abre um relatorio Empty Re: Access Run Time nao abre um relatorio

    Mensagem  lucioapo em 3/6/2020, 02:34

    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.
    avatar
    lucioapo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 12/05/2013

    Access Run Time nao abre um relatorio Empty Re: Access Run Time nao abre um relatorio

    Mensagem  lucioapo em 3/6/2020, 03:33

    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

      Data/hora atual: 8/8/2020, 13:27