[求助]打印预览"点击时老是出错

yxf614

想请你们看的是窗体下的"客房信息"里的"打印预览"点击时老是出错??????

我的代码是:是否有错!

Private Sub Command383_Click()
On Error GoTo Err_Command383_Click
   
    Dim strWhere As String
    strWhere = ""
    If DCount("ID", "当前记录查询") > 1 Then
       MsgBox "承租(借)人有两条当前记录!", vbOKOnly, "错误"
    Else
    strWhere = strWhere & "([房屋ID]=[Forms]![客房信息]![ID] AND [是否在租]=-1 ) "
   
    DoCmd.OpenReport "登记申请表", acViewPreview, , strWhere
   ''DoCmd.OpenReport "委托书", acPreview, , strWhere
   
    End If
   

Exit_Command383_Click:
    Exit Sub

Err_Command383_Click:
    MsgBox err.Description
    Resume Exit_Command383_Click
   
End Sub

PKpintFq.rar (53.03 KB, 下载次数: 14)

2008-5-23 23:22 上传

点击文件名下载附件
[求助]打印预览"点击时老是出错

我在这里先谢谢各位了!

[em17][em17][em17][em17][em17]