[Resolvido]Acontecimento ao alterar um campo

Boa tarde Amigos

Tenho o código abaixo ao alterar o campo txtData e funciona direitinho.

Private Sub txtData_Change()

If Nz(Me!txVelho) <> Nz(Me!txtData.Text) Then fncPintaTexto (255)

End Sub

Mas queria acrescentar uma condição +- assim ao alterar o dito campo "txtData".

Atenção: o campo txtData é Desvinculado

If Me.TxtData <= Date then
MsgBox"A data tem que ser maior que Hoje ",vbInformation,"Aviso"
exit sub
else

end if

Como juntar os dois códigos ?

Obrigado

Boa tarde, Assis

Só executa o 1º código caso satisfaça o 2º código?
se sim, deve ser assim

Private Sub txtData_Change()
If Me.TxtData <= Date then
MsgBox"A data tem que ser maior que Hoje ",vbInformation,"Aviso"
exit sub
elseIf Nz(Me!txVelho) <> Nz(Me!txtData.Text) Then
fncPintaTexto (255)
end if
End Sub

Alexandre

Digitando 06/08/2018
executa logo
fncPintaTexto (255)

Senhores boa tarde,

Aproveitando a oportunidade,

Assis? Veja se é isto que você quer?

[]'s

Obrigado

Alexandre Fim, não resolveu.

Mas com parte do seu código resolvi assim:

Atribua um valor predefinido ao campo txtVelho por exemplo 12-08-2018


Private Sub txtData_AfterUpdate()
   If Not IsDate(txtVelho) Then
       MsgBox "Data Velho inv?lida.", vbExclamation, "Aviso"
       txtData.Value = Empty
       Exit Sub
   End If

   If Not IsDate(txtData) Then
       MsgBox "Data inv?lida.", vbExclamation, "Aviso"
       txtData.Value = Empty
       Exit Sub
   End If

   
   If DateDiff("d", Format(Date, "dd/mm/yyyy"), Format(Me.txtData, "dd/mm/yyyy")) <= 0 Then
       MsgBox "A Data deve ser maior que a Data Atual.", vbExclamation, Aviso
       
       Me.txtData = Null
       Me.txtData.SetFocus
          Exit Sub
       
       Else
   Me.txtData.ForeColor = vbRed
   End If
End Sub

Faltou o principal para o fórum

Bom dia Assis,
O importante é que vc resolveu o problema..essas
Boa sorte, meu caro!!
Abraços