hacer esto en el evnt del beforeupdate de la forma
form_BeforeUpdate secundario privado (cancelación como número entero)
si len (me.txtType y "") =0 entonces
el msgbox “incorpora el tipo”
me.txt Type.setfocus
cancel=true
salir el submarino
terminar si
terminar el submarino