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 đỡ