MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro de referência no Runtime

    Compartilhe
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Sex 07 Abr 2017, 14:18

    Bom dia,

    Uso um sistema para solicitações de conserto de ferramentas, é usado em rede e são executados em várias máquinas pelo aplicativo Runtime da microsoft.
    Porém alguns computadores sem a licença está dando erro de compilação antes de iniciar o sistema, já compilei e não tem nenhum erro. Nas máquinas que tem a Licença Ms Access roda perfeitamente. Já nas que tem só o Runtime não roda.
    Creio que o problema esteja associado as Referências do Ms Access.

    Minha dúvida é:
    Existe alguma forma que antes de abrir o fml_menu eu saber quais referencias estão AUSENTES?
    Ou...
    Existe alguma forma de adicionar as AUSENTES?


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  JPaulo em Seg 10 Abr 2017, 13:55

    Ola;

    Ao abrir do seu form, chame a função:

    Call FixRefsAusentes()


    Código:
    Public Function FixRefsAusentes()
    'www.maximoaccess.com
        Dim loRef As Access.Reference
        Dim intCount As Integer
        Dim intX As Integer
        Dim blnBroke As Boolean
        Dim strPath As String

        On Error Resume Next

        'Conta o número de referências no banco de dados
        intCount = Access.References.Count

        'Percorrer cada referência no banco de dados
        'e determina se a referência está quebrada.
        'Se estiver quebrada, remove a Referência e adicione-a novamente.
     
        For intX = intCount To 1 Step -1
            Set loRef = Access.References(intX)
            With loRef
                blnBroke = .IsBroken
                strPath = .FullPath
                If blnBroke = True Or Err <> 0 Then
                    strPath = .FullPath
                    With Access.References
                        .Remove loRef
                        .AddFromFile strPath
                    End With
                End If
            End With
        Next

        Set loRef = Nothing
        Call SysCmd(504, 16483)
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Ter 11 Abr 2017, 13:12

    Bom dia mestre Jpaulo,

    Está me retornando o seguinte erro em anexo.

    Um erro padrão dos aplicativos Runtime, pois não conseguem especificar um erro.


    Obs: No form só existe o código para chamar a Sub.
    Anexos
    Error.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 9 vez(es)


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  JPaulo em Ter 11 Abr 2017, 17:25

    O runtime só devolve informação do erro se ele for tratado;

    Tente assim e diga-nos qual o erro;

    Código:
    Public Function FixRefsAusentes()
    'www.maximoaccess.com
        Dim loRef As Access.Reference
        Dim intCount As Integer
        Dim intX As Integer
        Dim blnBroke As Boolean
        Dim strPath As String

        On Error GoTo 1

        'Conta o número de referências no banco de dados
        intCount = Access.References.Count

        'Percorrer cada referência no banco de dados
        'e determina se a referência está quebrada.
        'Se estiver quebrada, remove a Referência e adicione-a novamente.
     
        For intX = intCount To 1 Step -1
            Set loRef = Access.References(intX)
            With loRef
                blnBroke = .IsBroken
                strPath = .FullPath
                If blnBroke = True Or Err <> 0 Then
                    strPath = .FullPath
                    With Access.References
                        .Remove loRef
                        .AddFromFile strPath
                    End With
                End If
            End With
        Next

        Set loRef = Nothing
        Call SysCmd(504, 16483)

    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Exit Function

    1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Dim Msg$
        Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
            & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
            & vbNewLine & vbNewLine & "Error."
        MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
        Resume Exit_1
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Ter 11 Abr 2017, 18:14

    Caro Jpaulo,

    Persiste o mesmo erro!


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Seg 17 Abr 2017, 20:25

    Caro JPaulo, será que o erro não é por causa que o meu sistema operacional é 64bits?


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  ahteixeira em Ter 18 Abr 2017, 08:26

    Olá a todos, um pitaco.
    Caio, qual a versão que desenvolve e cria o Accde?
    Qual a versão dos Runtimes que não funciona.
    Tem os services packs.
    Abraço
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Ter 18 Abr 2017, 21:14

    Olá,

    Uso o Ms Access 2010 - accdb desenvolvido em máquina 64 bits.
    Os Runtime também são 2010 64/32 bit (dependendo da máquina).


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  ahteixeira em Qua 19 Abr 2017, 11:09

    Olá, um palpite,
    Já verificou se está acontecer nos postos que tem o Runtime em 32 Bits ou 64 Bits?

    Os controlos ActiveX e suplementos COM podem não funcionar em 64 Bits, veja artigo abaixo:
    technet.microsoft.com/pt-BR/library/ee681792(v=office.15).aspx
    Copiar e colar no browser
    Abraço
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  caiosouza em Qua 26 Abr 2017, 17:40

    Boa tarde,

    Resolvi reinstalar o Office em 32 bits e esta funcionado!


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Erro de referência no Runtime

    Mensagem  ahteixeira em Qua 26 Abr 2017, 21:21

    Olá Caio, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Ter 21 Nov 2017, 10:14