openform的过滤条件

shenlan370

各位高手： 想问下openform 的筛选条件你能写入多个吗？如下：变量stLinkCriteria想再增加一个删选条件，除了某窗体界面的工单号相等，还要人员相等。
在一个窗体中有，工单号/人名/时间等字段，设置一个宏打开另一个窗体，但是要打开多个字段值想同的记录？如何增加，谢谢。

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "订单资料"
   
    stLinkCriteria = "[工单号]=" & "'" & Me![工单号] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly, acWindowNormal

Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click

lshstruc

这是一个不带where的条件子句，是一个string类型的变量，你可以像写sql语句一样写，and连接
"工单号=‘“& me！工单号 &”’ and 姓名=‘“& me!姓名 &”’ and 性别=‘“& me!性别 &”’"

shenlan370

lshstruc 发表于 2015-3-10 20:53
这是一个不带where的条件子句，是一个string类型的变量，你可以像写sql语句一样写，and连接
"工单号=‘“& ...

已经尝试了
Private Sub Command19_Click()

On Error GoTo Err_Command19_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "手焊工单输入"
   
   ' stLinkCriteria = "[工单号]=" & "'" & Me![工单号] & "'"
   stLinkCriteria = "工单号='" & Me!工单号 & "' and 工序ID='" & Me!工序ID & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command19_Click:
    Exit Sub

Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
End Sub

报错
标准表达 式中的数据类型不匹配

不知道哪里出的错误

lshstruc

工序ID='" & Me!工序ID & "'"
这个应该是integer,去掉单引号