Vinculação de foto

Boa noite.
Será que alguém poderia me ajudar com o erro em anexo?
Vinculei a imagem do produto por meio de um módulo e um código no formulário e funciona muito bem nas máquinas que possuem access, porém nas máquinas que usamo Run Time dá erro.
Mensagem:

Execution of this application has stopped due to run-time error.
The application can´t continue and will be shut down

Um forte abraço

Poste todos os detalhes de como está fazendo a vinculação. Poste o módulo e a forma como o está chamando.

Boas Juan, este erro pode ser devido a teu sistema ter algum erro em um dos seus códigos, mande compilar o sustema, verifique eventuais erros que seráo indicados na compilaçào, corrija-os e tente novamente.

Cumprimentos.

Mestre dos Magos... Nao percebi que andavas por aqui...

Tenha um bom dia Amigão.

No problem, hehehe.

Falar nisso... certa vez vi que O Mestre dos Magos e o Vingador eram a mesma pessoa... hum... kkkk

Abraços.

Boa noite a todos, seguem os códigos usados:
1 - No formulário onde as fotos estão vinculadas tem o seguinte código:

Código:

Dim endereco As String
   
    'Se o campo de código da imagem não for nulo
    If Not IsNull(CÓDIGO_MATERIAL.Value) Then
       
        'Pega a pasta do banco de dados atual
        endereco = "\\Mmg20215831\sinf\SAOC_ESTOQUE\catalogo"
       
        'Busca a imagem que está na pasta que tem o nome do catalogo
        'mais o código da imagem e coloca no campo imagem.
        ImagemMaterial.Picture = endereco & "\" & CÓDIGO_MATERIAL.Value & ".jpg"
       
    End If

Esse código é usado em propriedade do fomulário no evento atual.

E estou usando também o módulo de imagem:

Código:

Option Compare Database
Option Explicit

Function diretorio(caminhoCompleto As String) As String
'Retorna o diretório de um nome de arquivo informado

    Dim i As Integer
   
    For i = Len(caminhoCompleto) To 1 Step -1
        If Mid(caminhoCompleto, i, 1) = "/" Or Mid(caminhoCompleto, i, 1) = "\" Then
            diretorio = Left(caminhoCompleto, i)
            Exit Function
        End If
    Next i
   
    diretorio = ""

End Function


Não posso deixar de citar o autor: Plínio Mabesi, do fórum www.mabesi.com

Abraço a todos

Compilou o sistema para ver se há possiveis erros em algum código?

cumprimentos.

Já compactei o sistema e executei o módulo. Nos computadores que possuem access roda bem, o erro só acontece nas máquinas que usam o run-time 2003

Não estou falando em compactar e sim Compilar!!!!

Fez isso?

Cumprimentos.

Caro Piloto.
Já compilei. Se não tivesse compilado não daria certo e aperecia o erro em todas as máquinas!
Abraços

Faça assim, na maquina que tem apenas o Run Time... veja em que ponto aparece o erro... Abra o sistema coloque ponto de interrupções no codigo, justamente aqueles que sao executados neste intervalo do erro

execute o sistema mas pelo form de inicio tendo abrido o mesmo com a tecla shift.. e veja onde aparece o erro

Pode ser falta de referencia...

Cumprimentos.