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