Office中国论坛/Access中国论坛

标题: 急！！！！ [打印本页]

作者: chuanzhang 时间: 2003-2-14 03:34
标题: 急！！！！

Private Sub 命令2_Click()
On Error GoTo Err_命令2_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "性质考核查询"

stLinkCriteria = "[月]=" & "'" & [组合7] & "'" And stLinkCriteria = "[性质]=" & "'" & [组合5] & "'"

DoCmd.OpenForm stDocName, acFormDS

Exit_命令2_Click:
Exit Sub

Err_命令2_Click:
MsgBox Err.Description
Resume Exit_命令2_Click

End Sub
上面是我在窗体中做的一个查询，不知道为什么不能执行，请各位大哥受累看看。

作者: 步步高 时间: 2003-2-14 07:05
我想你应该是这个意思吧
stLinkCriteria = "[月]=" & "'" & [组合7] & "'" & " And [性质]=" & "'" & [组合5]& "'"

[此贴子已经被作者于2003-2-13 23:04:39编辑过]

[此贴子已经被作者于2003-2-13 23:05:25编辑过]

作者: chuanzhang 时间: 2003-2-18 04:18
标题: 谢
谢谢大哥，小弟十分感谢

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