tsingle > 25-07-12, 10:29 AM
Dim sql As String
slq = "INSERT INTO tbSSDoiTuong ( Ma, VuHienTai, ChetHienTai, BTHienTai, VuCungKy, ChetCungKy, BTCungKy, VuSoSanh, ChetSoSanh, BTSoSanh ) " & _
"SELECT tbSoSanh1.Ma, Sum(tbSoSanh1.Vu) AS VuHienTai, Sum(tbSoSanh1.Chet) AS ChetHienTai, Sum(tbSoSanh1.BT) AS BTHienTai, Sum(tbSoSanh2.Vu) AS VuCungKy, " & _
"Sum(tbSoSanh2.Chet) AS ChetCungKy, Sum(tbSoSanh2.BT) AS BTCungKy, [VuHienTai]-[VuCungKy] AS VuSoSanh, [ChetHienTai]-[ChetCungKy] AS ChetSoSanh, " & _
"[BTHienTai]-[BTCungKy] AS BTSoSanh FROM tbSoSanh2 INNER JOIN tbSoSanh1 ON tbSoSanh2.Ma = tbSoSanh1.Ma GROUP BY tbSoSanh1.Ma;"
DoCmd.RunSQL sql
sql = "INSERT INTO tbSoSanh1 ( Ma, Vu, Chet, BT ) SELECT tbTaiNanDoiTuong.DoiTuong, Sum(tbTaiNanDoiTuong.Vu) AS SumOfVu, Sum(tbTaiNanDoiTuong.Chet) AS SumOfChet, " & _
"Sum(tbTaiNanDoiTuong.BT) AS SumOfBT FROM tbTaiNanDoiTuong WHERE (((tbTaiNanDoiTuong.VaCham) = [Forms]![frmSoSanh]![cbLoai]) And " & _
"((tbTaiNanDoiTuong.NgayThang) >= [Forms]![frmSoSanh]![SSTuNgay] And (tbTaiNanDoiTuong.NgayThang) <= [Forms]![frmSoSanh]![SSDenNgay])) GROUP BY tbTaiNanDoiTuong.DoiTuong;"
DoCmd.RunSQL sql