- Khải Nguyên mới chỉ phần Report.
- Còn phần Subform muốn hiện lên thông tin theo Combobox thì thêm vào sự kiện AfterUpdate của Combobox code sau:
Private Sub cmbTinhTrang_AfterUpdate()
Me.RecordsetClone.FindFirst "[tinhtrang] = '" & Me![cmbTinhTrang] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
- File đã sửa đây:
http://www.mediafire.com/?afyffuf4qfc78qz