基于两个标准打开表单会导致类型不匹配错误

Question

我有以下代码，可以根据两个条件将表单打开到特定记录，Service User ID字段的类型为Integer，Purchase Order Number为Text，代码运行我得到Type Mismatch错误

Public Function CmdOpenPurchaseOrder()
On Error GoTo Err_CmdOpenPurchaseOrder

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmPurchaseOrders"

    stLinkCriteria = "[Service_User_ID]=" & Forms![frmPurchaseOrderList].[Service_User_ID] And "[Purchase_Order_Number]=" & "'Forms![frmPurchaseOrderList].[Purchase_Order_Number]'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CmdOpenPurchaseOrder:
    Exit Function

Err_CmdOpenPurchaseOrder:
    MsgBox Err.Description
    Resume Exit_CmdOpenPurchaseOrder

End Function

单独地，标准可以正常工作，但一起出现错误。

Answer 1

应该是：

stLinkCriteria = "[Service_User_ID] = " & Forms![frmPurchaseOrderList].[Service_User_ID] & " And [Purchase_Order_Number] = '" & Forms![frmPurchaseOrderList].[Purchase_Order_Number] & "'"