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

    [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Compartilhe

    glz4121
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/10/2018

    [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  glz4121 em 15/10/2018, 17:58

    Boa tarde

    Nesse tópico

    [Você precisa estar registrado e conectado para ver este link.]


    tentei duplicar a solução do AhTeixeira para dois desenhos.

    Fiz dessa forma:
    Código:
    Function fncMostraFoto()
    'para mostra a imagem associada ao registo
    '2015 - ahteixeira
      If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
          Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
      Else
          Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
      End If
    End Function

    Function fncMostraFoto1()
    'para mostra a imagem associada ao registo
    '2015 - ahteixeira
      If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
          Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
      Else
          Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste1.jpg"
      End If
    End Function

    Private Sub Form_Current()
      'para atualizar a imagem ao navegar nos registos
      Call fncMostraFoto
      Call fncMostraFoto1
    End Sub

    Private Sub foto_DblClick(Cancel As Integer)
    'abrir foto no paint
    '2015 - ahteixeira
      If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
          Dim RetVal
          RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)
      Else
          'se nao existir ficheiro, pergunta se preterde criar novo
          If MsgBox("Deseja demonstrar lesões no corpo?", vbExclamation + vbYesNo, "Não existe ficheiro associado.") = vbYes Then
             
              Dim fOrigem, fDestino
              fOrigem = Application.CurrentProject.Path & "\Imagens\modelo.jpg"
              fDestino = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
              'copia
              FileCopy fOrigem, fDestino
             
              'para atualizar/refrescar foto
              Call fncMostraFoto
          End If
      End If
    End Sub

    Private Sub foto1_DblClick(Cancel As Integer)
    'abrir foto no paint
    '2015 - ahteixeira
      If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
          Dim RetVal
          RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)
      Else
          'se nao existir ficheiro, pergunta se preterde criar novo
          If MsgBox("Deseja demonstrar lesões no corpo?", vbExclamation + vbYesNo, "Não existe ficheiro associado.") = vbYes Then
             
              Dim fOrigem, fDestino
              fOrigem = Application.CurrentProject.Path & "\Imagens\modelo1.jpg"
              fDestino = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
              'copia
              FileCopy fOrigem, fDestino
              'para atualizar/refrescar foto
              Call fncMostraFoto1
          End If
      End If
    End Sub

    Private Sub cmdRefrecar_Click()
      'para atualizar/refrescar foto
      Call fncMostraFoto
    End Sub

    Private Sub cmdRefrecar1_Click()
      'para atualizar/refrescar foto
      Call fncMostraFoto1
    End Sub

    Quando altero um e tento colocar outro desenho diferente altera o primeiro.

    Como posso resolver?
    Obrigado
    Anexos
    AhTeixeira Modificado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (492 Kb) Baixado 14 vez(es)

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/08/2012

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  FabioGO em 19/10/2018, 00:06

    Em vez de você ter duas funções fncMostraFoto() e fncMostraFoto1() faça somente uma função para as duas fotos, conforme o código:

    Código:
    Function fncMostraFoto()
    'para mostra a imagem associada ao registo
    '2015 - ahteixeira
        If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
            Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
            Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & "_2.jpg"
        Else
            Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
            Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
        End If
    End Function

    E chame somente essa função

    Código:
    Private Sub Form_Current()
        'para atualizar a imagem ao navegar nos registos
        Call fncMostraFoto
    End Sub

    A diferença é que você vai precisar de 2 arquivos de imagem pro mesmo Id do cliente, no código acima nomeados como 1 para a imagem 1 do cliente 1, ficando 1.jpg, e 1_2 para a imagem 2 do cliente 1, ficando 1_2.jpg.

    E na sequência você segue o padrão, para o cliente Id 2, as imagens ficam nomeadas como 2.jpg para a imagem 1 e 2_2.jpg para a imagem 2, e assim sucessivamente.
    Fazendo assim aparecem as 2 imagens diferentes e você pode edita-las individualmente.
    Anexos
    AhTeixeira Modificado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (499 Kb) Baixado 13 vez(es)

    glz4121
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/10/2018

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  glz4121 em 22/10/2018, 16:51

    Boa tarde.

    Dá erro abaixo. não consegue abrir arquivo imagem    _2.jpg ...

    Function fncMostraFoto()
    'para mostra a imagem associada ao registro
    '2015 - ahteixeira
       If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
           Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
           Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & "_2.jpg"
       Else
           Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
           Me.foto1.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
       End If
    End Function

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/08/2012

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  FabioGO em 22/10/2018, 18:21

    Agora somente tem um botão para "refreshar" as imagens

    Veja se esta ok
    Anexos
    AhTeixeira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (593 Kb) Baixado 19 vez(es)

    glz4121
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/10/2018

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  glz4121 em 26/10/2018, 15:51

    Desculpe a demora, estava viajando a trabalho.
    Observações:
    Ao cadastramos um nome qualquer e clicando no botão refresh funciona sem problemas.
    Agora, se clicarmos primeiro na imagem 2 colocamos o respectivo desenho 2. Depois vamos a imagem 1 clicamos e vem a imagem 1.
    Porém ao clicarmos primeiro na imagem 1 colocamos o respectivo desenho 1 sem problemas. Só que quando vamos à imagem 2 e clicamos nela,vem a mensagem que a imagem X (respectivo número do cadastro)_2 não aparece.
    Como resolver isso?

    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 22/08/2012

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  FabioGO em 26/10/2018, 22:20

    Veja agora.

    Entenda que, tento ajudar no que for solicitado dentro do possível no tópico.
    As alterações em demais funções do seu banco podem ser exploradas baseadas no que consigo propor para tentar solucionar.
    É até bom que você mesmo explore isso como forma de aprendizagem, no ultimo caso você retorna ao tópico para prosseguirmos com a ajuda.
    É só uma dica Wink
    Anexos
    AhTeixeira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (916 Kb) Baixado 6 vez(es)

    glz4121
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/10/2018

    Re: [Resolvido]Como acrescentar 2 imagens nessa aplicação?

    Mensagem  glz4121 em 29/10/2018, 12:05

    Muito Obrigado Fábio GO
    Funcionou.
    resolvido.

      Data/hora atual: 15/11/2018, 05:00