maixuanthu > 05-06-13, 12:37 AM
Xuân Thanh > 05-06-13, 03:50 PM
Private Sub cmdXem_Click()
Select Case YeuCau 'YeuCau là Option Group
Case 1 'Khi chọn TatCa
DoCmd.OpenReport "rptHocVien", acViewPreview
Case 2 ' Khi chon TinhTrang
DoCmd.OpenReport "rptHocVien", acViewPreview , , "[TinhTrang] = Me.cboTinhTrang"
End Select
End Sub
maixuanthu > 05-06-13, 11:59 PM