RE: Help! Giúp in 1 record trong report
quoctrong_2311 > 25-04-12, 11:53 PM
bạn tạo report như thông thường, tạo 1 from in, mở chế độ thiết kế, tạo nút in (bằng command button). tạo xong, click chuột phải vào nút in, bảng thực đơn hiện ra, chọn vào build event.., sau đó xóa code của command bạn vừa tạo,copy đoạn code sau vào:
Private Sub Command15_Click()
Dim strReportName As String
Dim strCriteria As String
If NewRecord Then
MsgBox "This record contains no data. Please select a record to print or Save this record." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strReportName = "report1"
strCriteria = "[MANV]= " & Me![MANV]
'strCriteria = "[MANV]='" & Me![MANV] & "'"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End If
End Sub
bạn lưu ý sửa các chữ sau nha: command15 là nút in do mình thiết kế, bạn phải sửa tên lại cho giống tên command của bạn; dòng: strReportName = "report1", bạn sửa chữ report1 lại thành tên report do bạn tạo ra; 04 chữ MANV ở dòng dưới, bạn sửa lại thành tên mã bạn đặt trong table (mã bạn đặt làm khóa chính ấy).
Khi thực hiện xong, mõi khi bạn làm việc trên from về thông tin record nào thì report chỉ in thông in duy nhất của record ấy. Chúc bạn thành công!
p/s: cách trên do bạn Xuân Thanh hướng dẫn, mình đã test thành công.