Record Operation di Access

BY IN Access Comments Off on Record Operation di Access

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




Comments are closed.