Dear mas aksan / master acces
Saya ada masalah untuk lap kartu stock
Saya menggunakan cara dari mas aksan dan ada yang saya tambah di query
ya
Setelah saya coba report ya tidak bisa jalan (eror) mohon bantuannya ya
Ini code query untuk history
SELECT NoItem, Tanggal, Quantity as inQty, 0 as outQty, bayar_beli as
beliQty, 0 as jualQty from Qpembelian
UNION ALL select NoItem, Tanggal, 0 as inQty, Quantity as outQty, 0 as
beliQty, Bayar_jual as jualQty
FROM Qpenjualan
ORDER BY tanggal;
Ini query yang kedua
SELECT Qhistory.NoItem, Qhistory.Tanggal, Sum(Qhistory.inQty) AS inQ,
Sum(Qhistory.beliQty) AS Sumbeli, Sum(Qhistory.outQty) AS outQ,
Sum(Qhistory.jualQty) AS sumjual
FROM Qhistory
GROUP BY Qhistory.NoItem, Qhistory.Tanggal;
Ini query ketiga untuk mutasinya
SELECT NoItem, [startDate] AS Tgl, inQ AS inQty, sumbeli as Tbeli, outQ
AS outQty, sumjual as Tjual
FROM Qhistory1
where Tanggal<[startDate]
UNION ALL SELECT NoItem, tanggal AS Tgl, inQ AS inQty, sumbeli as Tbeli,
outQ AS outQty, sumjual as Tjual
FROM Qhistory1
where Tanggal between [startDate] and [endDate];
dan ini untuk VBA di report ya
Option Compare Database
Option Explicit
Dim Balance As Long
Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next
MsgBox "Tidak ada data untuk di print!", vbOKOnly + vbInformation,
"Daftar Barang"
Cancel = True
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Balance = Balance + Me.inQty - Me.outQty
End If
Me.txtBalance = Balance
End Sub
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As
Integer)
Balance = 0
End Sub
Private Sub Report_Open(Cancel As Integer)
Balance = 0
End Sub
Tapi pada saat saya jalankan report ya eror
Ini saya lampirkan mdb saya
Tolong dibantu ya teman2
Thank
Afrizal
