Search This Blog

Cetak data denda

Untuk mencetak data denda karena keterlambatan pengembalian buku perpustakaan dapat dilaukan dengan memilih menu daftar denda dari menu Report.


Gambar 1 Menu pilihan untuk mencetak daftar denda

Akan muncul form untuk memilih periode transaksi, yaitu user harus memilih bulan dan tahun periode daftar denda yang akan dicetak.


Gambar 2 Form untuk memilih periode daftar denda yang akan dicetak

Setelah mengisi data bulan dan tahun klik tombol Preview untuk mencetak data.

Adapun script program untuk mencetak data denda adalah :

Private Sub cmdPreview_Click()
On Error GoTo Err_cmdPreview_Click

Dim stDocName As String
Dim stFilter As String

stDocName = "DAFTAR_DENDA"
stFilter = "BULAN='" & Me.Bulan & "' AND TAHUN='" & Me.TAHUN & "'"
DoCmd.OpenReport stDocName, acPreview, , stFilter

Exit_cmdPreview_Click:
Exit Sub

Err_cmdPreview_Click:
MsgBox Err.Description
Resume Exit_cmdPreview_Click

End Sub

Format cetak daftar denda adalah per anggota setiap tanggal dan jumlah subtotal per anggota. Pada akhir format laporan ada jumlah total denda dari seluruh anggota.

Gambar 3 Preview Report daftar denda

No comments: