[Resolvido]Erro de referência no Runtime

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?

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

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.

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

Caro Jpaulo,

Persiste o mesmo erro!

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

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

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

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

Boa tarde,

Resolvi reinstalar o Office em 32 bits e esta funcionado!

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