bignosevinatex > 12-04-14, 08:44 PM
Xuân Thanh > 12-04-14, 08:56 PM
bignosevinatex > 12-04-14, 09:04 PM
bignosevinatex > 14-04-14, 05:02 PM
(12-04-14, 08:56 PM)Xuân Thanh Đã viết: 1/ Cơ sở dữ liệu của bạn không hợp lý. Nên dồn 12 cái T đó vào làm một và thêm trường ThangNam nữa là được. Khi đó việc tổng hợp quá ư là đơn giản, chỉ cân 1 query là xong
2/ Với cách đăt CSDL như của bạn thì phải dùng Union query nối từ 12 query tổng khác nhau
Hy vọng bạn không tự làm khó mình khi có thể tối ưu CSDL
Thân mến
Private Sub cmTonghop_Click()
Dim db As Database
Dim sql As String
'Dim sql1 As String
'Dim sql2 As String
'Dim sql3 As String
'Dim sql4 As String
'If IsNull(CBtu) = True And IsNull(CBden) = True Then
DoCmd.SetWarnings False
sql = "delete total.* from total"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
sql = "INSERT INTO total ( Thang, SLDK, TTVATDK, SLNHAP, TTVATNHAP, SLXUAT, TTVATXUAT, SLBAN, [TTBANVAT(-GG+CK)], SLCK, TTVATCK )SELECT Tong.THANG, Sum(Tong.SLDK) AS SLDK, Sum(Tong.TTVATDK) AS TTVATDK, Sum(Tong.SLNHAP) AS SLNHAP, Sum(Tong.TTVATNHAP) AS TTVATNHAP,Sum(Tong.SLXUAT) AS SLXUAT, Sum(Tong.TTVATXUAT) AS TTVATXUAT, Sum(Tong.SLBAN) AS SLBAN, Sum(Tong.[TTBANVAT(-GG+CK)]) AS [TTBANVAT(-GG+CK)],Sum(Tong.SLCK) AS SLCK, Sum(Tong.TTVATCK) AS TTVATCK " & _
"FROM Tong" & _
"GROUP BY Tong.THANG;"
'End If
DoCmd.RunSQL sql
DoCmd.OpenForm "tonghoptheonhom"
End Sub
zinzin8x > 08-06-16, 12:30 AM
Nguyen Hoang Diep > 06-09-16, 09:49 PM
maidinhdan > 06-09-16, 10:56 PM