• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hiện thông báo không có dữ liệu khi in report

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • Hiện thông báo không có dữ liệu khi in report
• Hiện thông báo không có dữ liệu khi in report

• Hiện thông báo không có dữ liệu khi in report

  Noname > 13-08-10, 10:51 PM

  Cho mình hỏi: Mình tạo 1 form in từ ngày đến ngày,
  nếu trong điều kiện đó mà reprt kô có dữ liệu thì hiện ra 1 câu thông báo tại form luôn và kô hiện ra report.
  
  
  Đáp:
  Bất cứ report nào cũng có record source đúng không, thường là 1 query/table.
  
  Như vậy vấn đề ở đây là bạn kiểm tra query/table xem có record nào không, nếu không có=> gởi thông báo.
  Nếu có thì cho in report. Đơn giản vậy thôi
  
  
  
  

  Mã:

  Private Sub In_Click()
dim rec as Recordset
dim db as Database
set db = CurrentDB()
set rec = db.Openrecordset("tên bảng")
If rec.recordcount> o then
[in report]

else

[thong bao]

end if
End Sub

• RE: Hiện thông báo không có dữ liệu khi in report

  mlbinhthuan > 23-03-13, 06:47 PM

  Anh noname ơi, em có cái report như thế này
  
  Private Sub cmdInBaoCao_Click()
  On Error GoTo jewi
  
  Dim strDocName As String
  Dim strLinkCriteria As String
  Dim strPoint As String
  Dim strYear As String
  Dim strMonth As String
  Dim strMonthText As String
  If ComboViTri = "" Or IsNull(ComboViTri) Then
  MsgBox "Chua chon vi tri In", , Me.Caption
  Exit Sub
  End If
  If ComboThang = "" Or IsNull(ComboThang) Then
  MsgBox "Chua chon thang In", , Me.Caption
  Exit Sub
  End If
  strMonth = Me![ComboThang]
  strYear = Right(Me![ComboYear], 2)
  strPoint = Me![ComboViTri]
  
  Select Case strPoint
  Case "HX"
  strPoint = "001"
  Case "DTH"
  strPoint = "002"
  Case "PL"
  strPoint = "003"
  Case "AS"
  strPoint = "004"
  Case "GV"
  strPoint = "005"
  Case "TT"
  strPoint = "006"
  Case Else
  strPoint = "007"
  End Select
  
  If strMonth < 10 Then
  strMonthText = "0" & strMonth
  Else
  strMonthText = strMonth
  End If
  
  Select Case strPoint
  Case "007"
  strDocName = "rptDatasQC"
  Case Else
  strDocName = "rptDatas"
  End Select
  
  strLinkCriteria = "[MaSo]" & " LIKE " & "'GT" & strYear & "." & strMonthText & "." & strPoint & "*'"
  DoCmd.Close
  DoCmd.OpenReport strDocName, acViewNormal, , strLinkCriteria
  
  Exit_cmdInBaoCao_Click:
  Exit Sub
  jewi:
  MsgBox Err.Description
  Resume Exit_cmdInBaoCao_Click
  End Sub
  
  - Giờ vấn đề là nếu không có record nào thì hiện thông báo không có record và và không làm gì cả! Không biết đoạn code bên trên của a có dùng được không? nếu dùng được thì phải cho vô code em như thế nào?
  - Thứ 2 là cái report em in ra một trang trắng, một trang có màu nền xám xám. Giờ em muốn mất cái màu xám xám ấy đi. Gửi anh cái link đính kèm cái file report e in ra. http://www.mediafire.com/view/?g5lbp44ejg8xroo
  
  Mong anh giúp đỡ

• RE: Hiện thông báo không có dữ liệu khi in report

  mlbinhthuan > 24-03-13, 06:13 PM

  Các cao thủ đâu hết rồi nhỉ? cái vụ cái nền report xám xám đó giờ làm sao các bạn?
  
  cái này của anh noname hình như không được thì phải:
  
  Private Sub In_Click()
  dim rec as Recordset
  dim db as Database
  set db = CurrentDB()
  set rec = db.Openrecordset("tên bảng")
  If rec.recordcount> o then
  [in report]
  
  else
  
  [thong bao]
  
  end if
  End Sub
  
  bởi vì cái query để tạo report lúc nào cũng có dữ liệu, nó chỉ có dữ liệu hay không là lúc ta truyền cái điều kiện mệnh đề where từ câu lệnh (DoCmd.OpenReport strDocName, acViewNormal, , strLinkCriteria)
  
  vì thế nếu dùng đoạn code của anh nonam thì lúc nào nó cũng báo là có record trong query!
• Bài trước Bài tiếp