fazer isto no evnt do beforeupdate do formulário
form_BeforeUpdate secundário confidencial (cancelamento como o inteiro)
se len (me.txtType & "") =0 então
o msgbox “incorpora o tipo”
me.txt Type.setfocus
cancel=true
retirar o submarino
terminar se
terminar o submarino