MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Exibir várias imagens em um formulário

    avatar
    cjnfreitas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/02/2016

    Exibir várias imagens em um formulário Empty Exibir várias imagens em um formulário

    Mensagem  cjnfreitas em 23/2/2016, 17:08

    Acabei me expressando mal no outro tópico.

    Tenho um formulário que necessita de imagens. Essas imagens são salvas em uma pasta com a mesma ID da Record.

    Como fazer uma caixa que exiba essas imagens contidas na pasta, sendo que para cada Record a caixa precise procurar a pasta específica a ela (com sua ID: C:\150, C:\151, C:\152).
    Como fazer para que a caixa me deixe selecionar as imagens, e então grave o caminho delas em uma tabela separada junto com a ID da Record aberta, para então exibir as imagens dessa ID. (Nesse caso, seria um botão para selecionar e uma caixa para exibir).
    E, se possível, setas para navegação entre as imagens

    Obrigado! cheers
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    Exibir várias imagens em um formulário Empty Re: Exibir várias imagens em um formulário

    Mensagem  crysostomo em 4/2/2019, 23:04

    Deixa eu ver se entendi. Vc quer que cada cadastro puxe a foto, certo?
    Aqui você pega e inseri a imagem ela grava o caminha da imagem na tabela
    Código:
    Private Sub inserirfotos_Click()
    Dim s As String
    s = OpenCommDlg()
    If s <> "" Then
        foto = s
        foto_AfterUpdate
     
     End If
    End Sub
    Private Sub Form_Current()

    foto_AfterUpdate

    End Sub
    Private Sub foto_AfterUpdate()

    Dim s As String
    s = Nz(foto.Value, "")
    If s <> "" Then s = IIf(Dir(s) = "", "", s)
    On Error Resume Next
    Imagem3.Picture = s
    If err.Number <> 0 Then Imagem3.Picture = ""
    On Error GoTo 0
    End Sub

    Aquipara você puxar a imagem no evento ao clicar ca caixa de combinação aonde vai puxar os dados que precisa
    Código:

    Me.controleDaimagem.Picture = cboPreencheFica.Column(Número da coluna aonde está armazenado o caminho da imagem)
    klaytontome
    klaytontome
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/03/2017

    Exibir várias imagens em um formulário Empty Re: Exibir várias imagens em um formulário

    Mensagem  klaytontome em 18/2/2019, 19:14

    Question acho que estou com a mesma necessidade!

    Gostaria de cadastrar no mesmo item várias imagem, e ter como exibir em formulário e relatório. ?
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    Exibir várias imagens em um formulário Empty Re: Exibir várias imagens em um formulário

    Mensagem  crysostomo em 18/2/2019, 19:23

    Boa tarde Klayton , vê se esse te ajuda.
    Se você quer várias fotos pode colocar na tabela um anexo, mas não muito recomendado dependendo da quantidade de cadastro, as fotos incha na tabela , ou você pode fazer como está o código acima.
    https://www.maximoaccess.com/t35021-relatorio-com-foto-lado-a-lado-tipo-etiquetas

    Conteúdo patrocinado

    Exibir várias imagens em um formulário Empty Re: Exibir várias imagens em um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 02:02