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]Escolher foto para um camo img

    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]Escolher foto para um camo img Empty [Resolvido]Escolher foto para um camo img

    Mensagem  flecha 11/1/2024, 14:23

    Olá,

    Meu programa de cadastro parou de incluir foto de funcionários.

    Inclui a ferramenta do Office library 16,
    mas esta dando erro nessa linha:

    .Filters.Add "Imagens dos Materiais", "*.jpg, *.jpeg, *.bmp, *.gif, *.png"

    Não consegui passar desse ponto.
    Código:

    Private Sub Comando210_Click()
     
       
        Dim fd As Office.FileDialog
       
        If Not IsNull(Me.LocalFoto) Then
           
            If MsgBox("Desvincular Imagem cadastrada?", vbQuestion + vbYesNo, "Atenção!") = vbYes Then
            Me.LocalFoto = Null
           
            End If
        Exit Sub
        End If
        Set fd = Application.FileDialog(msoFileDialogFolderPicker)
       
        With fd
              .AllowMultiSelect = False
             
              .Title = "Selecione uma Imagem!"
              .Filters.Clear
             
              .Filters.Add "Imagens dos Materiais", "*.jpg, *.jpeg, *.bmp, *.gif, *.png"    <------------
           
            If .Show = True Then
                Me.LocalFoto = .SelectedItems(1)
                Else
                MsgBox "Nenhuma imagem selecionada!..", vbInformation, "Informação!"
            End If
           
        End With
       
        Set fd = Nothing
       
        End Sub
    Podem me ajudar?

    Antes funcionava bem com essas linhas no comando click.:
    Código:

    Private Sub Comando102_Click()
    Dim strCaminho As String, strPastaInicial As String
        strPastaInicial = "C:\Meus Documentos"
        strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
        "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
        If Len(strCaminho) > 0 Then
            Me.LocalFoto = strCaminho
            Me.Foto.Picture = Me.LocalFoto
        End If
    End Sub
    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]Escolher foto para um camo img Empty Re: [Resolvido]Escolher foto para um camo img

    Mensagem  flecha 15/1/2024, 11:05

    Procurei o erro e não achei.
    Procurei no Chat GPT e me retornaram esse código.

    e funcionou.

    Código:

    Private Sub BtnSelecionarImagem_Click()
        Dim dlg As FileDialog
        Dim caminhoImagem As String

        ' Cria uma instância do objeto FileDialog
        Set dlg = Application.FileDialog(msoFileDialogFilePicker)

        ' Configura as opções do diálogo
        With dlg
            .Title = "Selecione uma imagem"
            .Filters.Clear
            .Filters.Add "Imagens", "*.jpg;*.jpeg;*.png;*.gif"
           
            ' Exibe o diálogo e verifica se o usuário clicou em "Abrir"
            If .Show = -1 Then
                ' Obtém o caminho do arquivo selecionado
                caminhoImagem = .SelectedItems(1)
               
                ' Atualiza o campo de texto no formulário com o caminho da imagem
                Me.CaminhoImagem = caminhoImagem
            Else
                ' O usuário cancelou a seleção
                MsgBox "Nenhuma imagem selecionada.", vbInformation
            End If
        End With

        ' Libera a memória do objeto FileDialog
        Set dlg = Nothing
    End Sub

      Data/hora atual: 27/5/2024, 04:01