Backcolor de textbox com condição

Question

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?

Answer 1

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

Answer 2

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?

Answer 3

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.