Membuat Laporan Per Nota dengan Data Environtment VB6 (Tanpa Parameter)

KETIKKAN PADA TOMBOL CETAK
Private Sub CMDCETAKK_Click()
If tnota.Text = "" Then
    Exit Sub
Else
    DataEnvironment1.rscmd_angsuran.Open
    DataEnvironment1.rscmd_angsuran.Filter = "nota = '" & tnota.Text & "'"
    DR1.Show 1
    DataEnvironment1.rscmd_angsuran.Close
End If
End Sub

UNTUK REFRESH RECORD PADA SAAT PREVIEW DATA BERIKUTNYA, FILTER HARUS DIHILANGKAN DULU:


Private Sub cmdKeluar_Click()
DataEnvironment1.rscmd_angsuran.Open
DataEnvironment1.rscmd_angsuran.Requery
DR1.Refresh
DataEnvironment1.rscmd_angsuran.Filter = ""
DataEnvironment1.rscmd_angsuran.Close
Unload Me
End Sub