Office中国论坛/Access中国论坛

标题: 急！！！！-->zhuyiwen转移 [打印本页]

作者: chuanzhang 时间: 2003-2-14 03:29
标题: 急！！！！-->zhuyiwen转移

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
各位大哥，上面是我的一个用窗体查询的语句，不知道为什么不能执行，请多多执教，

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