dieuchinhlu > 16-05-11, 02:27 PM
Private Sub CMD_UPDULIEU_Click()
Dim AppLopVh As String
DoCmd.SetWarnings (False)
AppLopVh = "INSERT INTO LOPVH ( MaLopVH )" & _
"SELECT Q_SELECT_XEPLOP.MaLopVH "
FROM Q_SELECT_XEPLOP & _
" GROUP BY Q_SELECT_XEPLOP.MaLopVH; "
DoCmd.RunSQL AppLopVh
MsgBox "Da cap nhat xong du lieu !"
DoCmd.SetWarnings (True)
End Sub
SELECT HOCSINH.MSSV, IIf([TRINHDOVH]="12","Miễn Văn Hóa",[TRINHDOVH]+1 & [KHOIKHOA] & "1" & Year(Date())) AS MaLopVH, HOCSINH.TRINHDOVH, HOCSINH.LOPNGHE
FROM HOCSINH INNER JOIN Q_KHOINGHE ON HOCSINH.LOPNGHE = Q_KHOINGHE.MALOP
WHERE (((HOCSINH.TRINHDOVH)=[cbx_lopnghe]) AND ((HOCSINH.LOPNGHE)=[cbx_trinhdovh]))
ORDER BY IIf([TRINHDOVH]="12","Miễn Văn Hóa",[TRINHDOVH]+1 & [KHOIKHOA] & "1" & Year(Date()));