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

4 participantes

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente

    avatar
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente

    Mensagem  mrmuller_mar 17/10/2020, 17:17

    Bom dia!
    Gostaria de ajuda, criei um cadastro de cliente. Tenho que anexar frente e verso dos documentos.

    Coloquei o seguinte código:

    Private Sub Form_Current()
    On Error GoTo Limpa
       If IsNull(Me.Foto_DocFrente) = False Then
           Me.Frente.Picture = Me.Foto_DocFrente
       Else
           Me.Frente.Picture = ""
       End If

    Sai:
       Exit Sub
       
    Limpa:
       Me.Foto_DocFrente = Null
       Me.Frente.Picture = ""
       Resume Sai
       
       On Error GoTo LimpaVerso
               
       If IsNull(Me.Foto_DocVerso) = False Then
           Me.Verso.Picture = Me.Foto_DocVerso
       Else
           Me.Verso.Picture = ""
       End If

    SaiVerso:
       Exit Sub
       
    LimpaVerso:
       Me.Foto_DocVerso = Null
       Me.Verso.Picture = ""
       Resume SaiVerso

       
       Me.Refresh
    End Sub


    Frente ok
    Verso aparece em todos

    Fiz um TB com dois campos ID, Frente e Verso
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Re: [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente

    Mensagem  Avelino Sampaio 17/10/2020, 21:00

    Olá!

    não entendi muito bem mas experimente assim (observe as partes em vermelho):

    Private Sub Form_Current()
    On Error GoTo Limpa
      If IsNull(Me.Foto_DocFrente) = False Then
          Me.Frente.Picture = Me.Foto_DocFrente
      Else
          Me.Frente.Picture = ""
      End If

    Sai:
      goto Verso
     
    Limpa:
      Me.Foto_DocFrente = Null
      Me.Frente.Picture = ""
      Resume Sai

    Verso:

      On Error GoTo LimpaVerso
             
      If IsNull(Me.Foto_DocVerso) = False Then
          Me.Verso.Picture = Me.Foto_DocVerso
      Else
          Me.Verso.Picture = ""
      End If

    SaiVerso:
      Exit Sub
     
    LimpaVerso:
      Me.Foto_DocVerso = Null
      Me.Verso.Picture = ""
      Resume SaiVerso
     
      Me.Refresh
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    mrmuller_mar gosta desta mensagem

    avatar
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Mostrar duas imagens diferente no formulário de Cadastro do cliente

    Mensagem  mrmuller_mar 19/10/2020, 21:33

    Boa Tarde!

    Explicação:

    Tenho cadastro:
    Precisava da imagem do RG (frente) e (Verso) vinculada ao nome e id

    mas não conseguia, não aparecia. consegui através de ajudas mas so aparecia a frente.


    Agradeço ajuda, consegui resolver, obrigado a todos

    Valeu

    mrmuller_mar gosta desta mensagem

    avatar
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Resolvido

    Mensagem  mrmuller_mar 23/11/2020, 18:12

    resolvido
    avatar
    Alesson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 12/03/2014

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Re: [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente

    Mensagem  Alesson 29/11/2020, 14:23

    Bom dia.

    Será se o amigo pode disponibilizar um exemplo básico com os FORMS deste código?

    Desde já agradeço.
    avatar
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty [Resolvido] quando coloco uma foto ele aparece em todos os alunos

    Mensagem  mrmuller_mar 5/1/2021, 15:43

    Bom dia!

    Usei o exemplo CopiarFotoParaPastaDoBd, do MaximoAccess, para inserir fotos no Formulário de Aluno. Funcionou bem.
    Agora esta acontecendo o seguinte, quando coloco uma foto ele aparece em todos os alunos. Mas quando visualizo aparece a foto correta, verifiquei o caminho esta correto.

    segue o código usado:

    Evento - No Atual:

    On Error GoTo Limpa

      If IsNull(Me.Foto_Cliente) = False Then
          Me.img.Picture = Me.Foto_Cliente
      Else
          Me.img.Picture = ""
      End If

    Sai:
      Exit Sub
     
    Limpa:
      Me.Foto_Cliente = Null
      Me.img.Picture = ""
      Resume Sai

    As foto se repetem em todos alunos


    Última edição por mrmuller_mar em 6/1/2021, 11:32, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Re: [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente

    Mensagem  DamascenoJr. 6/1/2021, 03:39

    Se a dúvida que abriu o tópico está resolvida, ao autor, segue a forma correta de encerrar o tópico.
    https://www.maximoaccess.com/t860-resolucao-de-topicos


    .................................................................................
    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
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Mostrar duas imagens diferente no formulario de Cadastro do cliente

    Mensagem  mrmuller_mar 6/1/2021, 11:31


    Resolvido
    avatar
    mrmuller_mar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 05/10/2017

    [Resolvido]Mostrar duas imagens diferente no formulário de Cadastro do cliente Empty Mostrar duas imagens diferente no formulario de Cadastro do cliente

    Mensagem  mrmuller_mar 6/1/2021, 11:33

    Resolvido

      Data/hora atual: 22/9/2021, 07:07