MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Botão abrir paint com imagem associada

    avatar
    lrbc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 30/06/2011

    Botão abrir paint com imagem associada Empty Botão abrir paint com imagem associada

    Mensagem  lrbc em 22/1/2020, 16:48

    Boa tarde,
    Pretendo criar um botão que me abra o paint para criar uma assinatura, com o nome associado a um código de encomenda, e ao saír gravar e apresentar a assinatura no formulário.
    Tenho o campo assinatura na tabela que pretendo que seja o link para uma pasta de fotos.[b] "assinatura"
    Tenho o Caminho para as fotos X:\fotos "Caminho Fotos"
    Tenho o código da encomenda  "CodigoDaEncomenda"
    Tenho o a foto no formulário "Foto"

    Com este código abra o paint mas não deia apresentar a imagem do paint no formulário.

    Alguem que possa ajudar?
    O que estou a fazer mal?
    Obrigado.

    Código:
    Private Sub Comando171_Click()

    Dim RetVal
    Dim CaminhoFotos As String

    CaminhoFotos = "X:\fotos\"
    RetVal = Shell("MSPAINT.EXE" & Space(1) & Me.assinatura & Me.CodigoDaEncomenda & ".jpg", 1)
    If Len(CaminhoFotos) > 0 Then
           Me.assinatura = CaminhoFotos
           Me.Foto.Picture = Me.assinatura

    End If

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Botão abrir paint com imagem associada Empty Re: Botão abrir paint com imagem associada

    Mensagem  ahteixeira em 24/1/2020, 14:27

    avatar
    lrbc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 30/06/2011

    Botão abrir paint com imagem associada Empty Re: Botão abrir paint com imagem associada

    Mensagem  lrbc em 10/2/2020, 16:11

    Obrigado pela dica ahteixeira.
    jà coloquei a funcionar, só falta um pormenor que me está faltar.
    Clico no campo, abre o paint edito a imagem, gravo e saio, mas não me apresenta a imagem alterada, apenas a imagem inicial.
    A rotina é esta:

    Private Sub imgControle_DblClick(Cancel As Integer)
    'abrir foto no paint
    '2015 - ahteixeira
    Dim imgControle As String

    If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg", 1)) > 0 Then
    ' Dim RetVal
    ' RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg", 1)
    Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg")
    Else
    'se nao existir ficheiro, pergunta se preterde criar novo
    ' If MsgBox("Deseja criar Ortondontia nova?", 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.C?digoDaEncomenda & ".jpg"
    'copia
    FileCopy fOrigem, fDestino


    'para atualizar/refrescar foto
    'Call fncMostraFoto
    Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.C?digoDaEncomenda & ".jpg")


    Me!assinatura = C?digoDaEncomenda & ".jpg"
    Me!imgControle.Picture = fDestino



    End If
    ' End If

    End Sub

    Assinatura é o campo onde guarda o caminho da foto e está a guardar com a alteração e imgControle é o campo que apresenta a foto no formulário mas não atualiza.
    O que estou a fazer mal?... Sei que é uma aselhice minha, mas não me atualiza o campo...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2179
    Registrado : 22/11/2016

    Botão abrir paint com imagem associada Empty Re: Botão abrir paint com imagem associada

    Mensagem  DamascenoJr. em 10/2/2020, 21:29

    Veja o tópico abaixo no repositório de exemplos. Ajudará em como atualizar a imagem após ser alterada.
    https://www.maximoaccess.com/t37121-editando-imagens-access-com-paint


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lrbc
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 30/06/2011

    Botão abrir paint com imagem associada Empty Re: Botão abrir paint com imagem associada

    Mensagem  lrbc em 10/2/2020, 21:50

    Obrigado.
    Vou verificar
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Botão abrir paint com imagem associada Empty Re: Botão abrir paint com imagem associada

    Mensagem  ahteixeira em 23/2/2020, 19:56

    Olá Luis, já conseguiu verificar?

    Se ficou esclarecido não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    O retorno é muito imporante para o fórum.

    Abraço a todos

      Data/hora atual: 19/9/2020, 13:15