[求助]

zhuosheng

[B]请教一下：
如：在“窗体”的第5个记录（第5号界面）打开控件预览“报表”命令，
“报表”显示预览为第1个记录，要按下个记录件，才能显示到第5个记录.
请问有什么方法可以在打开窗体的记录数联接到“报表”记录数相同？[/B]

jhzlzc29

用筛选查询呀

sunguochang

Private Sub Command_Click()
On Error GoTo Err_Command_Click
    Dim stDocName As String
    Dim strwhere As String
    stDocName = "LD CONTRACT"
    strwhere = "hld_no=" & Me!HLD_no
    DoCmd.OpenReport stDocName, acPreview, , strwhere
Exit_Command80_Click:
    Exit Sub
Err_Command80_Click:
    MsgBox Err.Description
    Resume Exit_Command80_Click
End Sub

zhuosheng

[B][B]Sunguochang:
           你好！
       多谢你的代码，在至感激不尽！[/B][/B]