Office中国论坛/Access中国论坛

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

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

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 04:20
1、减去一个条件，即AND后的代码
stLinkCriteria = "[月]=" & "'" & [组合7] & "'" And stLinkCriteria = "[性质]=" & "'" & [组合5] & "'"
2、在数据源的SQL语句上限制准则。

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