[Resolvido]Botão no form não abre o caminho para procurar foto.

Olá,
Estou alterando o layout de um form ;
Criei um novo formulário no form Design e inclui 3 Abas (Paginas).
Na primeira Aba (Dados Pessoais) tem um Botão para procurar a foto a Incluir mas não esta funcionando com esses comandos copiados de outro Form que esta funcionando! Mas no novo form não abrem o caminho.

Código:

Private Sub Comando97_Click() ' Inclui Foto1

On Error Resume Next
    Dim strPath As String
    Dim MeuCaminho As String
    MeuCaminho = Application.CurrentProject.Path
   
    strPath = cAbrirArq.GetOpenFile(Me.hWnd, _
        "Selecione uma foto")  'Passa o path do arquivo selecionado para a variável strPath.
    Call TestaDir              'Testa se existe a pasta com o Código do RG
    If strPath = "" Then Exit Sub
    FileCopy strPath, MeuCaminho & "\" & Format(Me.RG, "0000000") & "\foto1." & Right(strPath, 3)
    Me.LocalFoto = MeuCaminho & "\" & Format(Me.RG, "0000000") & "\foto1." & Right(strPath, 3)
    Call Form_Current
   
End Sub


Será que esqueci de algo ou não funciona em Abas?

Obrigado

Bom  dia Flecha.. não há como saber se existe algum erro escondido na instrução se utiliza o tratamento de erros Resume Next

Com este tratamento ele ignora o erro e vai para a próxima linha e assim sucessivamente, deve utilizar o Resume Next com cautela.

Retire e teste novamente.

Cumprimentos.

Valeu amigão!

Desculpe a demora, estava ausente e o programa estava no PC do trabalho.

Deu erro 424 e ai comparando com o outro Form verifiquei que faltava essa Declaração
no Form e ele não colocava o caminho:


Dim cAbrirArq As New cls_abresalva
Dim cSalvarArq As New cls_abresalva


Obrigado

O Fórum agradece o Retorno.