robić forma w the beforeupdate evnt the forma
intymny intymny form_BeforeUpdate (cancel jako integer)
jeżeli len (me.txtType & "") =0 wtedy
msgbox "Wchodzić Do Typ"
me.txt Type.setfocus
cancel=true
wyjście okręt podwodny
kończyć jeżeli
kończyć okręt podwodny