hatashibl > 04-05-13, 06:22 PM
Private Sub Command8_Click()
Dim Ngaydauthang As Date
Dim Ngaycuoithang As Date
Dim rs As Recordset
Dim rs1 As Recordset
Dim CauSQL As String
Dim CauSQL1 As String
Dim CauSQL2 As String
Dim tongHH1 As Integer
Ngaydauthang = DateSerial(Me.txtnam, Me.txtthang, 1)
Ngaycuoithang = DateAdd("m", 1, Ngaydauthang) - 1
CauSQL = "Select Mshv from Thongtinhv"
Set rs = CurrentDb.OpenRecordset(CauSQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
tongHH1 = 0
CauSQL1 = "Select * from Giaodich Where MST1 ='" & rs & "' and NgaythangGD<=Ngaycuoithang and NgaythangGD>=Ngaydauthang"
Set rs1 = CurrentDb.OpenRecordset(CauSQL1)
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do Until rs1.EOF
tongHH1 = rs1!Soluong * rs1!HH1
rs1.MoveNext
Loop
End If
CauSQL2 = "INSERT INTO PhatHH VALUES (rs, txtthang, txtnam, TgHHT1)"
DoCmd.RunSQL CauSQL2
rs.MoveNext
Loop
Else: MsgBox "Khong co Hoi vien de thong ke", vbDefaultButton1, "Thong bao"
End If
rs.Close
rs1.Close
End Sub