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


2 participantes

    [Resolvido]Formulario com uma imagem para cada registro

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Formulario com uma imagem para cada registro Empty [Resolvido]Formulario com uma imagem para cada registro

    Mensagem  NarcisoRN 26/6/2015, 18:55

    Tenho uma tabela onde cadastro meus produtos, resolvi criar um formulário onde eu pudesse cadastrar a foto dos meus produtos, na verdade a foto não fica armazenada no BD, apenas o caminho. Dai coloquei no formulário um controle do tipo imagem que aponta para uma imagem em: C:\Users\Informatica\Documents\sem_foto.jpg trata-se de uma imagem onde tem escrito "produto sem imagem", ela permanece enquanto eu não cadastrar um novo produto e sua respectiva imagem. Ao lado desse controle coloquei um botão que ao ser clicado, abre uma caixa de dialogo que me permite inserir a imagem correspondente aquele produto. No evento ao clicar desse botão, coloquei o código:

    Private Sub btn_imagem_Click()

    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Declare a variable to contain the path
    'of each selected item. Even though the path is a String,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant

    'Use a With...End With block to reference the FileDialog object.
    With fd

    'Change the contents of the Files of Type list.
    'Empty the list by clearing the FileDialogFilters collection.
    .Filters.Clear

    'Add a filter that includes all files.
    .Filters.Add "All files", "*.*"

    'Add a filter that includes GIF and JPEG images and make it the first item in the list.
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

    'Use the Show method to display the File Picker dialog box and return the user's action.
    'The user pressed the action button.
    If .Show = -1 Then

    'Step through each String in the FileDialogSelectedItems collection.
    For Each vrtSelectedItem In .SelectedItems

    'vrtSelectedItem is a String that contains the path of each selected item.
    'You can use any file I/O functions that you want to work with this path.
    'This example simply displays the path in a message box.
    'MsgBox "Path name: " & vrtSelectedItem

    Me.txt_imagem.Picture = vrtSelectedItem
    Me.txt_imagem.Requery

    'Me.TextboxPersonFilepath.Value = "File path: " & vrtSelectedItem
    Next vrtSelectedItem
    'The user pressed Cancel.
    Else
    End If
    End With

    'Set the object variable to Nothing.
    Set fd = Nothing
    End Sub

    Esse código não é de minha autoria, encontrei num site gringo de access. Bom, eu consigo colocar a imagem no campo correspondente, o problema, é que quando eu vou para o próximo registro, ele mantêm a imagem do anterior e se neste eu colocar outra imagem, ela fica também no primeiro registro ou seja, ela fica em todos. Sei que estou esquecendo de fazer algo bobo, mas não consigo me lembrar do que seja.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Formulario com uma imagem para cada registro Empty Re: [Resolvido]Formulario com uma imagem para cada registro

    Mensagem  Alvaro Teixeira 30/6/2015, 04:30

    Olá Marcos,
    Aqui no fórum não falta exemplos, com uma "Busca" por vezes encontramos o que pretendemos.
    Vejas os vários exemplos deste tópico.
    Abraço
    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Formulario com uma imagem para cada registro Empty Re: [Resolvido]Formulario com uma imagem para cada registro

    Mensagem  NarcisoRN 30/6/2015, 13:47

    Obrigado Teixeira.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Formulario com uma imagem para cada registro Empty Re: [Resolvido]Formulario com uma imagem para cada registro

    Mensagem  Alvaro Teixeira 30/6/2015, 14:01

    Olá,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Formulario com uma imagem para cada registro Empty Re: [Resolvido]Formulario com uma imagem para cada registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:05