VBA - 将CustomerID传递给查询表

Question

我在按钮上使用点击方法传递以下内容

Private Sub cmdNewEnquiry_Click()
Call Command29_Click
    DoCmd.RunSQL "INSERT INTO tblEnquiry(CustomerID) Values('" & CustomerID & "')"
    DoCmd.OpenForm "frmEnquiry", acNormal, , "CustomerID = " & CustomerID
End Sub

但是每当它将CustomerID传递给下一个表单时，EnquiryID就不是最新的，也许它会显示在此之前为1的记录。然后，我必须点击记录才能找到最新的查询。

有没有办法可以传递这些数据并确保它显示最新的记录？

Answer 1

您必须先通过订购最新的数据，以“frmEnquiry”的形式更改RecordSource查询。或者以“frmEnquiry”的形式使用属性字段OrderBy。不知道“frmEnquiry”的查询字段，我不能给你一个更准确的答案。

"CustomerID = " & CustomerID中的doCmd.OpenForm部分为此CustomerID设置了过滤器，但没有订购任何内容。