MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Botão buscar imagem do item.

    abjinfo
    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 02/07/2015

    Botão buscar imagem do item. Empty Botão buscar imagem do item.

    Mensagem  abjinfo em 25/6/2020, 14:43

    Olá Pessoal...

    Procurei sobre este assunto nos resolvidos, mais não encontrei.

    É o seguinte... tenho um formulário de produtos e nele tenho que colocar a imagem do mesmo.

    Coloquei um botão com a seguinte linhas VBA:

    ******************************************************

    Private Sub AdicionarFoto_Click()
       Dim strCaminho As String, strPastaInicial As String
       strPastaInicial = CurrentProject.Path & "\fotos\"
       strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
       "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
       If Len(strCaminho) > 0 Then
           txtLocalLogo = strCaminho
           Me.Logo.Picture = txtLocalLogo
       End If
    End Sub

    ******************************************************

    Porem, quando clico no botão ele não retorna nada. Será que está faltando algum Suplemento?

    Fico no aguardo e obrigado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 21/11/2016

    Botão buscar imagem do item. Empty Re: Botão buscar imagem do item.

    Mensagem  DamascenoJr. em 25/6/2020, 20:05



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    abjinfo
    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 02/07/2015

    Botão buscar imagem do item. Empty Re: Botão buscar imagem do item.

    Mensagem  abjinfo em 28/7/2020, 23:20

    Olá Damasceno.
    Obrigado em responder e desculpa pela demora.

    Segui o link da msm n. 2 e fiz todas as mudanças de Ptr que vc sugeriu, mais infelizmente não funcionou. Ele não abre gerenciador de arquivo para escolher a imagem. Sad
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 21/11/2016

    Botão buscar imagem do item. Empty Re: Botão buscar imagem do item.

    Mensagem  DamascenoJr. em 29/7/2020, 00:00

    Anexe seu projeto para análise.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 21/11/2016

    Botão buscar imagem do item. Empty Re: Botão buscar imagem do item.

    Mensagem  DamascenoJr. em 23/9/2020, 19:48

    abjinfo, algum avanço?

    Aguardamos seu retorno...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/12/2020, 09:24