rumus simpan :

SELECT ViewPelanggan
APPEND BLANK
replace Kode WITH Thisform.text1.Value
replace Nama WITH Thisform.text2.Value
replace Alamat WITH Thisform.text3.Value
Thisform.text1.Value=""
Thisform.text2.Value=""
Thisform.text3.Value=""
MESSAGEBOX("Data Telah Disimpan",64,"informasi")