急！！！！

chuanzhang

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
   上面是我在窗体中做的一个查询，不知道为什么不能执行，请各位大哥受累看看。

步步高

我想你应该是这个意思吧
stLinkCriteria = "[月]=" & "'" & [组合7] & "'" & " And [性质]=" & "'" & [组合5]& "'"

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

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

chuanzhang

谢谢大哥，小弟十分感谢