Ferreira1456
New Member
- Joined
- Mar 20, 2018
- Messages
- 30
- Office Version
- 365
- Platform
- Windows
Hello everybody, can you help me?
If I delete the value of txtPrazoPagamento or the value of txtDateVencimento. I get this message:
Run-time '13'
Type mismatch
Private Sub txtDataVencimento_Change()
If CDate(txtDataHoje) > CDate(txtDataVencimento) Then
txtAtraso.Value = Abs(DateDiff("d", CDate(txtDataHoje), CDate(txtDataVencimento)))
Else
txtAtraso = "Em dia"
End If
End Sub
Please, see the link below.
thank you so much for helping.
If I delete the value of txtPrazoPagamento or the value of txtDateVencimento. I get this message:
Run-time '13'
Type mismatch
Private Sub txtDataVencimento_Change()
If CDate(txtDataHoje) > CDate(txtDataVencimento) Then
txtAtraso.Value = Abs(DateDiff("d", CDate(txtDataHoje), CDate(txtDataVencimento)))
Else
txtAtraso = "Em dia"
End If
End Sub
Please, see the link below.
thank you so much for helping.
Google Drive: Sign-in
Access Google Drive with a Google account (for personal use) or Google Workspace account (for business use).
drive.google.com