txtMonth_beforeupdate secondario riservato (annullamento come numero intero)
se me.txt Year=year (data ()) allora
se mese di me.txt Month> (data ()) allora
msgbox “non potete usare le date future„
me.txt Month.setfocus
cancel=true
uscire il sommergibile
concluder se
concluder se
concludere il sommergibile