Not to go into discussion about the rest of the code, change FLASH FORCE to
FLASH FORCE in avlbook

It should speed up the process.

>On Save Button, I use FLUSH FORCE command as
>

>select avlbook
>seek thisform.text1.value
>if !found()
>	append blank
>	replace date with thisform.text14.value
>	replace gate_no with thisform.text1.value
>endif
>
>select avlbook
>go top
>append blank
>delete
>pack
>flush force
>

>
>Is it true way or I should change codes