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:
Post a Comment