-
Giúp hiện câu Báo lỗi khi report không có dữ liệu
THUHUONG > 30-10-10, 12:33 AM
mình đang có một vấn đề. khi in report tu form ma report không có dữ liệu thi hiện ra câu thông báo lỗi(trong ACSESS) .
từ Queries :QTonNhap lam dữ liệu tạo Report:RBCNhap.mình đã tham khảo bài viết của các bạn trả lời cho các bạn khác về vấn đề này rùi nhưng mình đánh vào thi báo lỗi câu: Set rec = db.OpenRecordset(" RBCNhap") .
mong các bạn giúp đỡ để hoàn thành ĐỀ TÀI của mình.cám ơn nhiều!!
:present:
Chú ý: Đặt tiêu đề rõ ràng
Noname -
RE: report
Noname > 30-10-10, 12:39 AM
Bạn post bài của bạn lên cho mọi người xem được không! -
RE: report
trieule > 30-10-10, 03:07 PM
-
Giúp hiện câu Báo lỗi khi report không có dữ liệu
haquocquan > 30-10-10, 08:58 PM
(30-10-10, 12:33 AM)THUHUONG Đã viết: mình đang có một vấn đề. khi in report tu form ma report không có dữ liệu thi hiện ra câu thông báo lỗi(trong ACSESS) .
từ Queries :QTonNhap lam dữ liệu tạo Report:RBCNhap.mình đã tham khảo bài viết của các bạn trả lời cho các bạn khác về vấn đề này rùi nhưng mình đánh vào thi báo lỗi câu: Set rec = db.OpenRecordset(" RBCNhap") .
mong các bạn giúp đỡ để hoàn thành ĐỀ TÀI của mình.cám ơn nhiều!!
Bạn muốn khi in report mà không có dữ liệu thì hiện lên thông báo không có dữ liệu, đúng không?
Nếu đúng như vậy thì bạn có thể tham khảo một trong 2 cách sau đây:
Bạn có một nút lệnh trên form có tên là: cmdIn
Cách 1:
Trong sự kiện click của cmdIn:
Trong sự kiện On No Data của ReportMã:Private Sub cmdIn_click()
On error go to Loi
Docmd.openreport "RCBNhap",viewAcpreview
Loi:
Exit Sub
End Sub
Mã:Private Sub Report_NoData(Cancel As Integer)
DoCmd.CancelEvent
Msgbox "Khong co du lieu",vbOKOnly,"Thong bao"
End Sub
Cách 2:
Trong sự kiện click của cmdIn:
Chúc thành công.Mã:Private Sub cmdIn_click()
Dim rs as recordset
Set rs = currentdb.openrecordset("QTonnhap")
if rs.recordcount >0 then
Docmd.openreport "RCBNhap",viewAcpreview
Else
Msgbox "Khong co du lieu",vbOKOnly,"Thong bao"
End Sub
-
RE: Giúp hiện câu Báo lỗi khi report không có dữ liệu
singoc > 11-12-10, 12:12 PM
Lien he : singoc66@yahoo.com -
RE: report
mlbinhthuan > 23-03-13, 09:45 AM
(30-10-10, 03:07 PM)trieule Đã viết:
(30-10-10, 12:39 AM)Noname Đã viết: Bạn post bài của bạn lên cho mọi người xem được không!
Nói rõ hơn đi. Bạn muốn ẩn thông báo - tiếng anh của access hay là muốn không hiện report khi khộng có data.
Nếu bạn muốn không in report khi không có dữ liệu thì bạn vào code ổ phần Report_Nodata
Mình cũng có câu hỏi tương tự như thế này, mình có report có mệnh đề where (điều kiện) mở bằng câu lệnh này (DoCmd.OpenReport strDocName, acViewPreview, , strLinkCriteria) nhưng mình muốn nó đưa ra một câu thông báo nếu không có record nào trả về! (tức là có record thì mới mở report còn không có record nào thì khỏi mở report)
Vui lòng giúp mình với! thank cả nhà! -
RE: Giúp hiện câu Báo lỗi khi report không có dữ liệu
domfootwear > 23-03-13, 09:49 AM
Thêm đoạn code sau vào report:
Mã PHP:Private Sub Report_NoData(Cancel As Integer)
MsgBox "Khong co gi de in ca, vui long kiem tra lai.", vbExclamation, Me.Caption
Cancel = -1
End Sub -
RE: Giúp hiện câu Báo lỗi khi report không có dữ liệu
mlbinhthuan > 23-03-13, 12:29 PM
(23-03-13, 09:49 AM)domfootwear Đã viết: Thêm đoạn code sau vào report:
Mã PHP:Private Sub Report_NoData(Cancel As Integer)
MsgBox "Khong co gi de in ca, vui long kiem tra lai.", vbExclamation, Me.Caption
Cancel = -1
End Sub
Hi...Thank bạn mình hỏi ngu tí!
Cái đó bỏ vào chỗ nào hả bạn? bỏ vào sự kiện lúc load report hay bỏ vào form mà report tham chiếu?
Cái nữa là report mình in ra sao một trang có màu (hơi xám xám) một trang thì trắng (trang lẻ trắng, trang chẳn có màu xám xám đó). Mình muốn tất cả các trang in ra đều màu trắng hết!
Cảm ơn bạn đã giúp đỡ! -
RE: Giúp hiện câu Báo lỗi khi report không có dữ liệu
domfootwear > 23-03-13, 01:35 PM
(23-03-13, 12:29 PM)mlbinhthuan Đã viết:
(23-03-13, 09:49 AM)domfootwear Đã viết: Thêm đoạn code sau vào report:
Mã PHP:Private Sub Report_NoData(Cancel As Integer)
MsgBox "Khong co gi de in ca, vui long kiem tra lai.", vbExclamation, Me.Caption
Cancel = -1
End Sub
Hi...Thank bạn mình hỏi ngu tí!
Cái đó bỏ vào chỗ nào hả bạn? bỏ vào sự kiện lúc load report hay bỏ vào form mà report tham chiếu?
Cái nữa là report mình in ra sao một trang có màu (hơi xám xám) một trang thì trắng (trang lẻ trắng, trang chẳn có màu xám xám đó). Mình muốn tất cả các trang in ra đều màu trắng hết!
Cảm ơn bạn đã giúp đỡ!
Bỏ vào report, Report của bạn chỉnh có lẽ lớn hơn trang giấy mà bạn chọn in, điều chỉnh nhỏ lại là được. -
RE: Giúp hiện câu Báo lỗi khi report không có dữ liệu
mlbinhthuan > 23-03-13, 06:02 PM
(23-03-13, 01:35 PM)domfootwear Đã viết:
(23-03-13, 12:29 PM)mlbinhthuan Đã viết:
(23-03-13, 09:49 AM)domfootwear Đã viết: Thêm đoạn code sau vào report:
Mã PHP:Private Sub Report_NoData(Cancel As Integer)
MsgBox "Khong co gi de in ca, vui long kiem tra lai.", vbExclamation, Me.Caption
Cancel = -1
End Sub
Hi...Thank bạn mình hỏi ngu tí!
Cái đó bỏ vào chỗ nào hả bạn? bỏ vào sự kiện lúc load report hay bỏ vào form mà report tham chiếu?
Cái nữa là report mình in ra sao một trang có màu (hơi xám xám) một trang thì trắng (trang lẻ trắng, trang chẳn có màu xám xám đó). Mình muốn tất cả các trang in ra đều màu trắng hết!
Cảm ơn bạn đã giúp đỡ!
Bỏ vào report, Report của bạn chỉnh có lẽ lớn hơn trang giấy mà bạn chọn in, điều chỉnh nhỏ lại là được.
Chắc không phải do report lớn đâu bạn ơi, gửi bạn cái file pdf sau khi mình in ra file pdf bạn xem hộ mình nhé
http://www.mediafire.com/view/?g5lbp44ejg8xroo