listing form laporan vb2 mi (oke)

Private Sub bcetak_Click()
crbarang.ReportFileName = App.Path & "\laporan_barang.rpt"
crbarang.WindowState = crptMaximized
crbarang.RetrieveDataFiles
crbarang.Action = 1
End Sub

Private Sub bkeluar_Click()
Unload Me
FRMMENU.Show
End Sub

Private Sub cbulan_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub

Private Sub charian_Click()
crpenjualan.SelectionFormula = "Totext ({transaksi.tgljual})='" & charian & "'"
crpenjualan.ReportFileName = App.Path & "\laporan_harian.rpt"
crpenjualan.WindowState = crptMaximized
crpenjualan.RetrieveDataFiles
crpenjualan.Action = 1
End Sub

Private Sub charian_KeyPress(KeyAscii As Integer)
If charian = "" Or KeyAscii = 27 Then Unload Me
End Sub

Private Sub cmingguanakhir_Click()
If cmingguanawal = "" Then
MsgBox "Tanggal Awal Kosong", , "Informasi"
cmingguanawal.SetFocus
Exit Sub
End If
crpenjualan.SelectionFormula = "{transaksi.tgljual} in date (" & cmingguanawal.Text & ") to date (" & cmingguanakhir.Text & ")"
crpenjualan.ReportFileName = App.Path & "\laporan_mingguan.rpt"
crpenjualan.WindowState = crptMaximized
crpenjualan.RetrieveDataFiles
crpenjualan.Action = 1
End Sub

Private Sub cmingguanawal_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub

Private Sub ctahun_Click()
Call koneksi
rstrans.Open "select* from transaksi where month(tgljual)='" & Val(cbulan) & "' and year(tgljual)='" & Val(ctahun) & "'", KON
If rstrans.EOF Then
MsgBox "Data tidak ditemukan"
Exit Sub
cbulan.SetFocus
End If
crpenjualan.SelectionFormula = "Month({transaksi.tgljual})=" & Val(cbulan.Text) & " and Year({transaksi.tgljual})=" & Val(ctahun.Text)
crpenjualan.ReportFileName = App.Path & "\laporan_bulanan.rpt"
crpenjualan.WindowState = crptMaximized
crpenjualan.RetrieveDataFiles
crpenjualan.Action = 1
End Sub

Private Sub Form_Load()
Call koneksi
rstrans.Open "select Distinct tgljual from transaksi order by 1", KON
rstrans.Requery

Do Until rstrans.EOF
charian.AddItem rstrans!tgljual
cmingguanawal.AddItem Format(rstrans!tgljual, "YYYY, MM, DD")
cmingguanakhir.AddItem Format(rstrans!tgljual, "YYYY, MM, DD")
rstrans.MoveNext
Loop

For i = 1 To 12
cbulan.AddItem i
Next i

For i = 10 To 20
ctahun.AddItem 2000 + i
Next i
End Sub