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

Boa tarde

Nesse tópico

https://www.maximoaccess.com/t23239-duvida-com-imagem-no-formulario


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

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.

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

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

Veja se esta ok

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?

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

Muito Obrigado Fábio GO
Funcionou.
resolvido.