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 forceIs it true way or I should change codes