Office中国论坛/Access中国论坛

标题: openform的过滤条件 [打印本页]

作者: shenlan370 时间: 2015-3-10 18:56
标题: openform的过滤条件
各位高手：想问下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 时间: 2015-3-10 20:53
本帖最后由 lshstruc 于 2015-3-10 20:57 编辑

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

作者: shenlan370 时间: 2015-3-10 22:17

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 时间: 2015-3-10 22:37
工序ID='" & Me!工序ID & "'"
这个应该是integer,去掉单引号

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)