[Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

Olá Amigos.. com a dica do avelino utilizando a API Shell,  eu conseguir criar um botão;EDITAR IMAGEM para abrir o editor de imagem paint, no entanto não abre a foto que adiciono no formulário; tenho um formulário de imagem que salva a imagem em HD e o caminho da imagem na tabela, O meu desejo é que o botão editar foto abra a foto que está vinculado no formulário, ou melhor quero que abra a foto que está vinculada ao codigo do cliente.

segue código:
http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=181#inicio

Tem que indicar o aplicativo a ser aberto em um dos argumentos e no outro argumento indicar o localização do arquivo..  Exemplo, abrindo o PAINT da Microsoft para editar a imagem:


Dim strLocalAplicativo$
strLocalAplicativo = Environ("windir") & "\system32\mspaint.exe"
Call ShellExecute(0&, "", strLocalAplicativo, "c:\SuaPasta\SuaFoto.jpg", "", 1)

Olá, teste assim no seu botão de comando:

Dim RetVal
RetVal = Shell("MSPAINT.EXE" & Space(1) & "C:\SuaPasta\SuaFoto.jpg", 1)

Abraço

Muito obrigado ahteixeira
Até aqui tudo bem, este seu exemplo funciona muito bem, porem eu tenho que colocar no segundo argumento qual foto eu quero abrir, ficando assim: a função Funciona direitinho, abre o arquivo JPG, no entanto, só carrega a foto que eu indicar o caminho, exemplo:
Private Sub Editar_Foto_com_paint_Click()
Dim strLocalAplicativo$
strLocalAplicativo = "MSPAINT.EXE"
Call ShellExecute(0&, "", strLocalAplicativo, "C:\fotos\Jose.jpg", "", 1)
abre o paint mas só vai abrir a foto de josé, no entanto vou cadastra francisco, paulo, joão....para cada cliente cadastrado a foto deverá ser editada, no evento ao clicar deverá carregar o paint já com a foto a ser editada, ou melhor, quero abrir o paint somente se a foto que esta no formulario carregar com a abertura do paint


Dim RetVal
RetVal = Shell("MSPAINT.EXE" & Space(1) & "C:\fotos\Jose.jpg", 1)
este exemplo funcionou da mesma forma que o exemplo acima.

As 2 instruções funcionam, no entanto para cada cliente tenho que abrir o PAINT para editar a foto, quero que ao clicar abra o paint e ja carregue a foto cadastrada.
O exemplo de Gilberto Rocha, (https://www.maximoaccess.com/t2840-web-cam-2-0-captura-imagem-da-web-cam-e-salva-como-jpg) trouxe -me a esperança pois o mesmo busca a foto converte em JPG e envia para a pasta C:\fotos\(renomeando com o nome do cliente).jpg deixando o endereço na tabela, creio que facilita, pois, teremos no formulário o nome e codigo do cliente e as fotos na pasta C:\fotos\(renomeando com o nome do cliente).jpg
segue exemplo acrescentado o botão editar com o Paint

Olá,
Teste no formulario de cadastro de clientes, imagine o campo nome do cliente é NomeCliente (o mesmo que você esta atribuir ao ficheiro da imagem jpg)

Dim RetVal
Dim CaminhoFotos%
CaminhoFotos="C:\fotos\"
RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente &.jpg", 1)

Outra forma se tem o " endereço na tabela" conforme referiu no ponto dois também pode tentar assim:

Dim RetVal
RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoGuardadoNaTabela , 1)

Não testado.
Abraço

Funciona perfeitamente.
Parabéns.

Olá Arivaldo, obrigado pelo retorno.
Por curiosidade qual foi o código que utilizou da mensagem n.º 4 o 1º ou 2º?
Os utilizadores do fórum agradecem.
Abraço

utilizei esta, por ser mais facil, a outra eu não testei.
Dim RetVal
RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoGuardadoNaTabela , 1)

funciona 100%

Olá, estámos cá para ajudar.
Antes de tudo (programação à parte) explique-me o que pretende fazer, neste seu projecto.

Olá, antes de tudo, solicito ao Administrador do fórum, se assim o entender dividir este tópico.
SiBH, acho que queria dizer "Adoro este nosso website"
Obrigado pelo esclarecimento, independente do como possa ser efectuado, gostaria de compreender qual era a sua ideia com a foto do odontograma.
Teria uma foto por paciente, ia sendo alterada manualmente, como iria ter o histórico da evolução.
Era sempre a mesma? Seria várias?
Pergunto isto para compreender qual era a sua ideia.
Abraço

Tópico dividido.

O novo tópico é:

Duvida com imagem no formulário

Boa Noite Amigos,

Utilizei o código abaixo deste exemplo deste post e não deu certo:

Dim RetVal
Dim CaminhoFotos%
CaminhoFotos="C:\fotos\"
RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente &.jpg", 1)

O meu campo é nome, substitui o campo e deu o seguinte erro Erro de compilação, era esperado separador de lista.

Se alguém puder me ajudar, muito obrigada desde já!

Olá,
Falta a aspas duplas antes de .jpg
Teste assim:
RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente & ".jpg", 1)

Abraço

Olá Gisele, como ficou a situação, resolveu?
Os utilizadores do fórum agradecem o retorno.
Abraço