[belajar-access] Prosedur Dinamis Pembuatan Laporan (View and Print) -- [Remind : ICDP Training 2009]

[privat access]

Dear All,

Dalam menyelesaikan program yang kita buat, biasanya kita "harus
menyuguhkan" laporan - laporan yang di-inginkan seperti dokumen - dokumen
yang pernah kita analisa sebelumnya. Tentunya, Anda akan setuju bila kita
mampu menyajikan jenis laporan yang "lengkap", dinamis dan praktis. Nah,
salah satu "KEJUTAN TERUS" dalam Training ICDP-2009, yaitu banyak hal yang
"wajib dikuasai" oleh para pengguna Ms. Access agar setiap program yang Anda
buat menjadi menakjubkan.. Segera daftarkan diri Anda sebelum datangnya
"BANYAK KEJUTAN" lagi yang lebih MAHAL dan BERKUALITAS...

Salam,
Lusky Kurniawan (021 - 9293 1925)

"Yang BESAR belum tentu mengalahkan yang kecil. Namun yang LAMBAT pasti
ditinggalkan oleh yang CEPAT"



Private Function Cetak(flgPrinter As Boolean)
On Error GoTo nol

Dim NamaReport As String

Select Case Me!FramLap
        Case 1
            If IsNull(Me.txtTamp) Or Me.txtTamp = Empty Then
               NamaReport = "rptPelanggan"
               Else
                    NamaReport = "rptPelanggan_plg"
            End If
        Case 2
            If IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                    NamaReport = "rptBarang"
                    Else
                    If Not IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                        NamaReport = "rptBarang_tgl"
                        Else
                        If IsNull(Me.txtTglAwal) And Not IsNull(Me.txtTamp)
Then
                            NamaReport = "rptBarang_plg"
                            Else
                                NamaReport = "rptBarang_tgl_plg"
                        End If
                    End If
                 End If
        Case 3

        If Me.Check53 = False Then
            If IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                    NamaReport = "rptPiutang"
                    Else
                    If Not IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                        NamaReport = "rptPiutang_tgl"
                        Else
                        If IsNull(Me.txtTglAwal) And Not IsNull(Me.txtTamp)
Then
                            NamaReport = "rptPiutang_plg"
                            Else
                                NamaReport = "rptPiutang_tgl_plg"
                        End If
                    End If
                 End If
            Else
                If IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                    NamaReport = "rptPiutang_blmlunas"
                    Else
                    If Not IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                        NamaReport = "rptPiutang_tgl_blmlunas"
                        Else
                        If IsNull(Me.txtTglAwal) And Not IsNull(Me.txtTamp)
Then
                            NamaReport = "rptPiutang_plg_blmlunas"
                            Else
                                NamaReport = "rptPiutang_tgl_plg_blmlunas"
                        End If
                    End If
                 End If

        End If

        Case 4
        If Me.Check53 = False Then
             If IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                    NamaReport = "rptPelunasan"
                    Else
                    If Not IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                        NamaReport = "rptPelunasan_tgl"
                        Else
                        If IsNull(Me.txtTglAwal) And Not IsNull(Me.txtTamp)
Then
                            NamaReport = "rptPelunasan_plg"
                            Else
                                NamaReport = "rptPelunasan_tgl_plg"
                        End If
                    End If
                 End If
            Else
                If IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                    NamaReport = "rptPelunasan_blmlunas"
                    Else
                    If Not IsNull(Me.txtTglAwal) And IsNull(Me.txtTamp) Then
                        NamaReport = "rptPelunasan_tgl_blmlunas"
                        Else
                        If IsNull(Me.txtTglAwal) And Not IsNull(Me.txtTamp)
Then
                            NamaReport = "rptPelunasan_plg_blmlunas"
                            Else
                                NamaReport = "rptPelunasan_tgl_plg_blmlunas"
                        End If
                    End If
                 End If
        End If
        Case 5
            NamaReport = "rptFPS"
    End Select


    DoCmd.OpenReport NamaReport, acViewPreview
    DoCmd.Maximize

  If flgPrinter = True Then
        DoCmd.PrintOut acPrintAll
        DoCmd.Close acReport, NamaReport
    End If


nol:
End Sub