none
Backcolor de textbox com condição RRS feed

  • Pergunta

  • Ao digitar um CPF no textbox1, meu textbox2 busca a data de emissão de um exame no banco de dados e retorna a data acrescida de 365 dias que é a data de vencimento do exame, conforme condição abaixo:

    If Me.txt_aso.Text <> "" Then Me.txt_aso.Text = format(DateAdd("D", 365, CDate(txt_aso.Text)), "dd/mm/yyyy")

    minha dúvida é a seguinte: como formatar meu textbox2 para que ele fique com backcolor vermelho se a data que o textbox2 gerou for menor ou igual a data de hoje?

    quarta-feira, 14 de outubro de 2015 20:30

Respostas

  • O Textbox tem um evento chamado CHANGE, que é disparado sempre que é feita qualquer alteração nele.

    Então você vai colocar no evento change do textbox um if testando se textbox = "", caso seja verdade você muda a propriedade backcolor.

    quinta-feira, 15 de outubro de 2015 15:40

Todas as Respostas

  • If Me.textbox2 <= date Then
        Me.textbox2.backcolor = vbred
    end if

    • Sugerido como Resposta André Santo quarta-feira, 14 de outubro de 2015 20:34
    quarta-feira, 14 de outubro de 2015 20:34
  • obrigado pela resposta!

    agora quando apago o CPF do textbox1 o textbox2 continua em vermelho.

    como faço para que o textbox2 continue na sua cor normal se não tiver dados no textbox1?

    quinta-feira, 15 de outubro de 2015 14:52
  • O Textbox tem um evento chamado CHANGE, que é disparado sempre que é feita qualquer alteração nele.

    Então você vai colocar no evento change do textbox um if testando se textbox = "", caso seja verdade você muda a propriedade backcolor.

    quinta-feira, 15 de outubro de 2015 15:40