faire ceci dans l'evnt de beforeupdate de la forme
form_BeforeUpdate secondaire privé (annulation comme nombre entier)
si len (me.txtType et "") =0 alors
le msgbox « écrivent le type »
me.txt Type.setfocus
cancel=true
sortir le sous-marin
finir si
finir le sous-marin