自动打开周边viavba的报告？

Question

我有一个基于查询的报告！当我运行时，他报告说它要求设置一个周界THEID。我想要做的是，当我打开报告时，via表单--种族隔离= CID (表单中的一个字段通过一个按钮)

到目前为止，我已经编写了这段代码，当我点击按钮时，它仍然要求我通过dilog框请求种族隔离。

查询

SELECT Carrier.CID, Carrier.CName, Carrier.CRepName, Carrier.CRepContact, Carrier.CBalance, Carrier.CReorderBalance
FROM Carrier
WHERE (([THEID]=[CID]));

vba代码

Private Sub Command56_Click()
On Error GoTo Command56_Click_Err
    Dim THEID As Integer
    DoCmd.OpenReport "Current Carrier", acViewPreview, "", "[THEID]='" & CID & "'", acNormal


Command56_Click_Exit:
    Exit Sub

Command56_Click_Err:
    MsgBox Error$
    Resume Command56_Click_Exit

End Sub

Answer 1

结果，我使用了错误的查询，我用以下方法重复了它

SELECT Carrier.CID, Carrier.CName, Carrier.CRepName, Carrier.CRepContact, Carrier.CBalance, Carrier.CReorderBalance
FROM Carrier
WHERE (([CID]=[Forms]![Carrier]![CID]));