Vb lanjutan

=> Private sub cmbkosup_click()
data1.recordset.index= "kodesup"
data1.recordset.seek "=", cmbkosup
if not data1.recordset.nomatch then
txtnasup = data1.recordset!nasup
else
cmbkosup.setfocus
endif
endsub
_

=> private sub cmdbatal_click
form_activate
endsub
_

=> private sub cmdclose_click
if msgbox("keluar dari aplikasi?", vb question+vbyesno=vb yes then
unload me
endif
endsub
_

=> private sub cmdsave_click
datatrans.recordset.addnew
datatrans.recordset!nofak=txtnofak.text
datatrans.recordset!kosup=cmbkosup.text
dst..
Datatrans.recordset.update
form_activate
endsub
_

=> CMD CANCEL_click( )
data1.recordset.cancelupdate
data1.recordset.movelast
form_activate
EndSub
_

=>FORM_ACTIVATE( )
nonaktif
txttgl.text=date
if data1.recordset.recordcount <> 0 then cmbkosup.Clear
data1.recordset.movefirst
do while not data1.recordset.EOF
cmbkosup.additem data1.recordset!kosup
data1.recordset.movenext
loop
endif
cmdsave.enabled = false
cmdbatal.enabled = false
End Sub
_

CMDNEW_CLICK( )
aktif
data1.recordset.AddNew
txtkobar.setfocus
cmdbatal.enabled = true
End Sub
_

CMDNEXT_CLICK( )
data1.recordset.movenext
if data1.recordset.EOF then data1.recordset.movelast
msgbox"akhir data",16,"info"
endif
EndSub
_

CMDSAVE_CLICK( )
data1.recordset.update
nonaktif
EndSub