急！！！

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
   上面的语句不能用，请大家帮忙看一下，谢谢

竹笛

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