笔者做了一个笔录制作软件，要实现单个记录预览、打印，写了以下代码，以被询问人为打印条件，可以实现实现单个记录预览、打印。但同一询问人可能询问多次，这时就出现同一被询问人的所有询问全部预览、打印。
如何实现用数据表中的字段“询问序次”、“被询问人”作为条件，实现预览、打印时只预览、打印“被询问人”第“询问序次”次笔录预览、打印。（笔者尝试用ID自动编码作条件，但系统提示“标准表达式中数据类型不匹配”）
Private Sub Command211_Click()
On Error GoTo Err_Command211_Click
    Dim stDocName As String
    stDocName = "xwbl"
    DoCmd.OpenReport stDocName, acPreview, , "被询问人='" & Me. 被询问人 & "'"
Exit_Command211_Click:
    Exit Sub
Err_Command211_Click:
    MsgBox Err.Description
    Resume Exit_Command211_Click
End Sub
Private Sub Command212_Click()
On Error GoTo Err_Command212_Click
    Dim stDocName As String
    stDocName = "xwbl"
    DoCmd.OpenReport stDocName, acNormal, , "被询问人='" & Me. 被询问人 & "'"
Exit_Command212_Click:
    Exit Sub
Err_Command212_Click:
    MsgBox Err.Description
    Resume Exit_Command212_Click
End Sub

软件用ACCESS做的。

@厨师王德榜 谢谢你的解答。我试了，系统还是提示“标准表达式中数据类型不匹配”

字段“询问序次”是文本型字段

改成下面代码，完美解决
Private Sub Command218_Click()
On Error GoTo Err_Command218_Click
Dim strDocName As String
Dim strWhere As String
strDocName = "xcbl"
strWhere = "[ID]=" & Me!ID
DoCmd.OpenReport strDocName, acPreview, , strWhere
Exit_Command218_Click:
    Exit Sub
Err_Command218_Click:
    MsgBox Err.Description
    Resume Exit_Command218_Click
End Sub