tugas 57

Public Class Form57_31609015

    Private Sub VIEW_015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_015.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "DATA REPORT.accdb")

        laporan = New CrystalReport45_36109015
        Form53_36109015.HONDA.ReportSource = laporan
        Form53_36109015.HONDA.SelectionFormula = "{detailtransaksi.harga} <=" & TextBox1.Text & ""
        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If
    End Sub
End Class