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/)
Powered by Discuz! X3.3