fare questo nel evnt del beforeupdate della forma
form_BeforeUpdate secondario riservato (annullamento come numero intero)
se len (me.txtType & "") =0 allora
il msgbox “entra nel tipo„
me.txt Type.setfocus
cancel=true
uscire il sommergibile
concluder se
concludere il sommergibile