PENGECEKAN EROR

 

CODING PENGECEKAN EROR
*=========================================================================

thisform.combo1.Value=tbmapeljar.thnajaran
pesan=0
ON ERROR pesan=1
 SKIP
ON ERROR
IF pesan=1

MESSAGEBOX("Pelajaran ini Sudah Ada di Tahun Ajaran!" +"  "+ thisform.combo1.Text+"NB: silahkan koreksi kembali")
TABLEREVERT(.t.,"tbmapeljar")
thisform.grdtbmapeljar.Refresh
ELSE
=TABLEUPDATE(.t.,.t.,"tbmapeljar")
SKIP -1
ENDIF