Sekalipun Access sudah menyediakan wizard dan dengan memanfaatkan wizardnya, kita bisa melakukan operasi record dengan gampang, namun tidak ada salahnya kita review perintah2 VBA untuk melakukan operasi record tersebut:
‘perintah untuk menutup form
Private Sub Close_Click()
DoCmd.Close
End Sub
‘perintah ini akan merujuk pada record terakhir dr tabel
Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub
‘perintah untuk membuka report dengan filter IDKuitansi
Private Sub Print_Click()
SaveRecord
DoCmd.OpenReport “RKuitansi”, acViewPreview, , “[IDKuitansi]=” & Me![IDKuitansi]
DoCmd.Maximize
End Sub
‘perintah menambah data
Private Sub cmdAdd_Click()
On Error GoTo Err_cmdAdd_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdAdd_Click:
Exit Sub
Err_cmdAdd_Click:
MsgBox Err.Description
Resume Exit_cmdAdd_Click
End Sub
‘perintah memindah pointer ke record awal
Private Sub cmdFirst_Click()
On Error GoTo Err_cmdFirst_Click
DoCmd.GoToRecord , , acFirst
Exit_cmdFirst_Click:
Exit Sub
Err_cmdFirst_Click:
MsgBox Err.Description
Resume Exit_cmdFirst_Click
End Sub
‘perintah memindah pointer ke record sebelumnya
Private Sub cmdPrevious_Click()
On Error GoTo Err_cmdPrevious_Click
DoCmd.GoToRecord , , acPrevious
Exit_cmdPrevious_Click:
Exit Sub
Err_cmdPrevious_Click:
MsgBox Err.Description
Resume Exit_cmdPrevious_Click
End Sub
‘perintah memindah pointer ke record selanjutnya
Private Sub cmdNext_Click()
On Error GoTo Err_cmdNext_Click
DoCmd.GoToRecord , , acNext
Exit_cmdNext_Click:
Exit Sub
Err_cmdNext_Click:
MsgBox Err.Description
Resume Exit_cmdNext_Click
End Sub
‘perintah memindah pointer ke record akhir
Private Sub cmdLast_Click()
On Error GoTo Err_cmdLast_Click
DoCmd.GoToRecord , , acLast
Exit_cmdLast_Click:
Exit Sub
Err_cmdLast_Click:
MsgBox Err.Description
Resume Exit_cmdLast_Click
End Sub