如何在代码里回答要打开条件查询的查询条件??

chenfuping

由于在求余额查询时写代码用到了打开条件查询的查询,可是系统提示:"至少一个参数没有被指定".代码如下此代码是网上找到的)
On Error GoTo Err_计算尚欠金额
Dim conn As New ADODB.Connection
Dim rs As New Recordset

Dim rsTemp As New Recordset
Dim strSQL As String
Dim dblBalance As Double
   Set conn = CurrentProject.Connection
   strSQL = "SELECT DISTINCT " & str客户名称 & " FROM " & strstr销售管理
   rsTemp.Open strSQL, conn, adOpenKeyset, adLockOptimistic
   Do While Not rsTemp.EOF
        strSQL = "SELECT * FROM " & strstr销售管理
         '如果客户名称字段的数据类型为数字，请使用以下这句代码
        'strSQL = strSQL & " WHERE " & str客户名称 & " = " & rsTemp(str客户名称)
        '如果客户名称字段的数据类型为文本，请使用以下这句代码
        strSQL = strSQL & " WHERE " & str客户名称 & " = '" & rsTemp(str客户名称) & "'"
        strSQL = strSQL & " ORDER BY " & str日期 & ";"
        rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
        dblBalance = 0
            Do While Not rs.EOF
                rs(str尚欠金额) = Nz(rs(str金额), 0) - Nz(rs(str已收金额), 0) + dblBalance
                dblBalance = rs(str尚欠金额)
                rs.Update
                rs.MoveNext
            Loop
            rs.Close
        rsTemp.MoveNext
   Loop
    计算尚欠金额 = True
   
    rsTemp.Close
    Set rsTemp = Nothing
    Set rs = Nothing
    Set conn = Nothing
   
Exit_计算尚欠金额:
    Exit Function
   
Err_计算尚欠金额:
    计算尚欠金额 = False
    Set rsTemp = Nothing
    Set rs = Nothing
    Set conn = Nothing
    MsgBox Err.Description
    Resume Exit_计算尚欠金额
End Function
就是这句"rsTemp.Open strSQL, conn, adOpenKeyset, adLockOptimistic"它要打开"销售管理"查询,可是"销售管理"查询是有条件的,问题就是出在这里,我已经没办法了,想请朋友们帮忙看看,谢谢
在销售管理窗体按查询就出现统提示:"至少一个参数没有被指定".

[ 本帖最后由 chenfuping 于 2008-2-15 11:52 编辑 ]

chenfuping

没人回答,帮帮我呀,谢谢