MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


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

    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

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

    Mensagem  flecha 20/12/2013, 17:04

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 29/12/2013, 10:20

    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.
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

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

    Mensagem  flecha 3/1/2014, 10:50

    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 3/1/2014, 11:42

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:25