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


3 participantes

    colocar campo em vermelho

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 01:15

    Boa noite, pesquisando no repositorio de codigos encontrei um que preciso implantar em meu bd que é colocar campo quando alterado em vermelho, só que gostaria de saber se o que fica em vermelho é na tabela, consulta ou relatório, e onde colocar esse código.
    ats,
    Jorge
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 01:24

    Amigão, transferi o tópico para o local adequado. Aonde ele estava, é exclusivo para códigos e não dúvidas, ok?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 01:25

    Quanto à dúvida em si, depende de onde você fará a formatação. Cada elemento tem tem sua própria ferramenta de formatação condicional, menos as tabelas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 01:41

    Primeiro peço desculpas pelo erro, eu ja tinha percebido mas infelizmente ja tinha enviado.
    Quanto a dúvida eu quero que seja alterado no formulario e nas consultas e relatorios.
    ats,
    jorge.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 01:51

    Sua consulta será exibida em um formulário em modo folha de dados, eu suponho. Então, você pode usar a Formatação Condicional do formulário e do relatório. Basta selecionar o campo e clicar em Formatação Condicional no Access 2007. Se for anterior ao 2007, clique com o botão direito e escolha essa opção.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 02:57

    Vou tentar se não conseguir volto a postar.
    ats,
    Jorge
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 03:07

    OK! No aguardo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 13:23

    Bom dia, acho que não coloquei a pergunta da maneira correta, porque o que eu quero e colocar o código conseguido no repositório que o seguinte:
    Coloca Campo em Vermelho se for alterado.

    Private Sub SeuCampo_AfterUpdate()
    If Nz(SeuCampo) <> Nz(SeuCampo.OldValue)
    Then
    SeuCampo.ForeColor = vbRed
    End If
    End Sub
    Ats,
    Jorge
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 13:27

    Bom dia

    Não entendi, retirou esse código do repositório, qual é a questão?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 13:29

    Amigo, dá para fazer isso em formatação condicional. Basta usar a opção expressão. Se for formulário contínuo ou em modo folha de dados ou relatório nessas mesmas condições, aonde muitos registros precisam ser analisados, a formatação condicional irá lhe atender de forma mais fácil.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 13:33

    em formatação condicional ou usando esse código retirado aqui do repositório.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 13:35

    Se for para aplicar em apenas um registro, ou seja, em um formulário simples ou um relatório simples, não?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 13:39

    Penso que o colega não sabe é colocar o código no VBA. Então basta fazê-lo no evento depois de actualizar do campo que pretende mudar de cor.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 13:49

    Sim, eu entendi isso. Só estou alertando que se for formulário contínuo, ao mudar um campo, irá pintar o campo em todos os registros Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 14:22

    Coloquei o código no evento após atualizar não deu certo.
    Se for fazer em formatação condicional qual é a expressão que devo colocar?
    Ats,
    Jorge
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 14:24

    Substituiu os nomes seucampo pelo nome do campo no seu formulário? Poe exemplo se o seu campo for Nome, tem que colocar esse nome no código.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 14:25

    Primeiramente, é formulário simples ou contínuo. Você ainda não nos esclareceu isso. Segundo, se for formulário simples, passe o Then para o final da linha acima dele:

    Private Sub SeuCampo_AfterUpdate()
    If Nz(SeuCampo) <> Nz(SeuCampo.OldValue) Then
    SeuCampo.ForeColor = vbRed
    End If
    End Sub


    Mude a palavra SeuCampo para o nome correto do campo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 14:26

    eis um exemplo

    Private Sub nomecliente_AfterUpdate()
    If Nz(nomecliente) <> Nz(nomecliente.OldValue)
    Then
    nomecliente.ForeColor = vbRed
    End If
    End Sub
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 14:26

    Ops, ao mesmo tempo.
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 14:56

    Estamos chegando lá. No formulário deu certo era o then que estava fora do lugar. E no relatório como devo proceder?
    Enquanto isso vou tentando.
    Ats,
    Jorge.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 16/6/2011, 14:58

    Coloque o mesmo código no campo do relatório e teste
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 15:08

    Acho que no campo do relatório vai ser preciso algo mais, pois o dado do campo não irá se alterar no relatório. Ele já será aberto alterado.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 16/6/2011, 15:12

    Não deu. Não seria melhor no relatório trabalhar com formatação condicional?
    Ats,
    Jorge
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 16/6/2011, 15:16

    Acho que uma ideia seria guardar o valor antigo em um campo da tabela ou em uma tabela separada e ao abrir o relatório comparar esses dois valores. Se um diferente do outro, avermelha.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 17/6/2011, 00:47

    Aí acho que vai complicar muito, se puder fazer alguma coisa na formatação condicional é melhor.
    ats,
    jorge
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 17/6/2011, 01:14

    Relatório, para esse caso, é diferente. No formulário, você tem um valor. Se muda, ele atualiza na hora. O relatório já abre do jeito que o valor estiver e não é atualizado nele.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  vieirasoft 25/6/2011, 12:29

    Conseguiu resolver?
    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 26/6/2011, 01:03

    Deu certo ficou em vermelho, só que ficou todos os registros em vermelho e não só o registro alterado, mais de qualquer forma deu certo.
    Ats,
    Jorge
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  criquio 26/6/2011, 01:19

    Isso no relatório ou no formulário?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jferna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/05/2010

    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  jferna 26/6/2011, 01:29

    No fornulário.
    Ats,
    Jorge

    Conteúdo patrocinado


    colocar campo em vermelho Empty Re: colocar campo em vermelho

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 16:45