ma devo dare un errore se la data immessa è now +1
ho fatto :
If Trim(TXT_Data.Text) >= CDate(Trim(Day(Now)) + 1 & "/" & Trim(Month(Now)) & "/" & Trim(Year(Now))) Then ' _
'
MsgBox "Attenzione data non valida", vbCritical, App.Title
mi da sempre errre
se txt_data = 14/12/2002 invece non dovrebbe darmi errore
dovrebber anche verificare che CDate(Trim(TXT_Data)) <= CDate("8/6/1999") Then mgbox .....