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 : 100
    Registrado : 02/07/2015

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

    Mensagem  abjinfo em 25/6/2020, 18: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 : 2097
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 26/6/2020, 00: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.

      Data/hora atual: 5/7/2020, 22:05