[Resolvido]Erro 53 "Objeto não encontrado"

É o seguinte, tenho um formulário com foto, tá funcionando direitinho, só que ao clicar cancelar na caixa de dialogo que abria para "pegar" a foto dava o erro 53, resolvi colocando "on error goto erro" só que eu não queria usar essa função eu queria usar uma função que resolvesse o erro 53, não que o ocultasse, pois a função "on error goto erro", obriga a pular o erro, não o resolve. Desde já fico agradecido pela atenção.

Private Sub btnInserir_Click()

On Error GoTo Erro

foto = Application.GetOpenFilename(fileFilter:="picture file,*.jpg")
Image1.Picture = LoadPicture(foto)
Image1.PictureSizeMode = fmPictureSizeModeStretch
Erro:

End Sub

Talvez assim;

Código:

Private Sub Command0_Click()
foto = Application.GetOpenFileName(fileFilter:="picture file,*.jpg")
    If foto = False Then
        MsgBox "Cancelado.", vbCritical
        Else
        Image1.Picture = LoadPicture(foto)
        Image1.PictureSizeMode = fmPictureSizeModeStretch
    End If
End Sub

Eu testei a função sozinha e deu certo, mas, quando eu coloquei no meu formulário
aconteceu o seguinte nesse trecho da instrução "if foto = false then" quando eu coloco
o false sem as aspas, como você forneceu, ele resolve o problema do erro ao clicar em
cancelar, mas não carrega a foto e dá erro 13 tipos incompativeis; quando eu coloco "if foto = "false" then"
o false com as aspas, ela dá o erro ao clicar em cancelar objeto não encontrado erro 53, mas, carrega a foto normalmente,
esqueci de mencionar que declarei no módulo o seguinte "public foto as string" pois salvo
o caminho da foto na planilha, espero que tenha me compreendido, e se puder ajudar-me ficarei grato. Obrigado!

É o seguinte, tenho um formulário com foto, tá funcionando direitinho, só que ao clicar cancelar na caixa de dialogo que abria para "pegar" a foto dava o erro 53, resolvi colocando "on error goto erro" só que eu não queria usar essa função eu queria usar uma função que resolvesse o erro 53, não que o ocultasse, pois a função "on error goto erro", obriga a pular o erro, não o resolve. Desde já fico agradecido pela atenção.

Private Sub btnInserir_Click()

On Error GoTo Erro

foto = Application.GetOpenFilename(fileFilter:="picture file,*.jpg")
Image1.Picture = LoadPicture(foto)
Image1.PictureSizeMode = fmPictureSizeModeStretch
Erro:

End Sub

JPaulo, Talvez assim;

Código:Private Sub Command0_Click()
foto = Application.GetOpenFileName(fileFilter:="picture file,*.jpg")
If foto = False Then
MsgBox "Cancelado.", vbCritical
Else
Image1.Picture = LoadPicture(foto)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub

JPaulo:

Eu testei a função sozinha e deu certo, mas, quando eu coloquei no meu formulário
aconteceu o seguinte nesse trecho da instrução "if foto = false then" quando eu coloco
o false sem as aspas, como você forneceu, ele resolve o problema do erro ao clicar em
cancelar, mas não carrega a foto e dá erro 13 tipos incompativeis; quando eu coloco "if foto = "false" then"
o false com as aspas, ela dá o erro ao clicar em cancelar objeto não encontrado erro 53, mas, carrega a foto normalmente,
esqueci de mencionar que declarei no módulo o seguinte "public foto as string" pois salvo
o caminho da foto na planilha, espero que tenha me compreendido, e se puder ajudar-me ficarei grato. Obrigado!

Olá Mark, tenha atenção às regras do fórum em especial o nº. 3, veja no link abaixo:
https://www.maximoaccess.com/t48-regras-do-forum
Procedi à união dos tópicos.
Vamos aguardar a resposta do colega.

Entretanto se postar pequeno exemplo do que está a tentar fazer, talvez outro(s) utilizador(es) do fórum possam ajudar.
Abraço

Infelizmente anda não obtive resposta, para a minha questão, fico no aguardo. . .

Mark, bom dia!

Você disse em uma resposta anterior que declarou a variável foto como do tipo string e que há erro de 13 (tipos incompatíveis). Isso porque você a instrução Application.GetOpenFilename retorna verdadeiro ou falso (True/False), mas não como você está pensando.

Para corrigir o erro 13, altere a declaração da sua variável para Boolean e faça o teste.

Att.

Vou testar o que você me disse, em breve colocarei o resultado, mais uma vez obrigado!

Testei o que você me indicou, Julio Lustosa, mas não deu certo, aliás deu certo, mas, esqueci de dizer
que eu uso a variável (dim foto as string), porque eu guardo o caminho da imagem na célula, e infelizmente
não ficou como eu queria.
Obrigado pela ajuda, sua informação ajudou-me muito, espero sempre contar com os que dispõe-se a ajudar.

Olá!

Então no lugar do False, use "". Veja:

If foto = "" Then
MsgBox "Cancelado.", vbCritical
Else
Image1.Picture = LoadPicture(foto)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If

Quando ele tentar salvar o endereço da imagem na variável foto e não conseguir, as aspas duplas lhe dará o resultado que deseja. Ou seja, se a variável está vazia, então ele não carregará a imagem. Mostrará a mensagem de cancelado.

Att.

Até que enfim consegui resolver com a ajuda de todos que colaboram e ajudaram-me
e lendo uns artigos, simplesmente resolvi o problema, mudando a variável pública que
coloquei no módulo de "dim foto as string" para "dim foto as variant", essa simples
mudança deixou tudo perfeito, e agora quando clico em cancelar, não aparece mais
a mensagem, de erro.
Obrigado pessoal e DEUS abençoe a todos!

Olá Marks, obrigado pelo retorno os utilizadores do fórum agradecem.

No entanto faltou dar o tópico como resolvido.
Desta vez eu coloco, veja como dar o tópico como resolvido.
Abraço