请教VB

j110119

请教各位:

我不太懂编程,请问下面语句,问题出在哪里,("查询结果"不能显示与子窗体相同的记录)

Private Sub 查询_Click()
On Error GoTo Err_查询_Click

    Dim stDocName, strWhere As String

    stDocName = "查询结果"
    strWhere = Me.存书查询子窗体.Form.Filter

    '在打开查询的同时把子窗体的筛选条件字符串也传递给查询，
    '这样地话查询也会显示和子窗体相同的记录。

    DoCmd.openQuery stDocName, acNormal, strWhere
Exit_查询_Click:
    Exit Sub

Err_查询_Click:

    MsgBox Err.LastDllError
    Resume Exit_查询_Click
   
End Sub

sgrshh29

stDocName与strWhere完全不相干，当然不行。

j110119

是报表,怎么可以呢?请问怎么修改.谢谢!

sgrshh29

报表当然可以。查询不行，要用querydef改变查询的sql.

j110119

能具体请教吗?谢谢!或者是窗体.

sgrshh29

大致是这样，要引用dao，

dim qdf as querydef
qdf = currentdb.querydefs("qryname")
qdf.sql = qdf.sql & " where " & strwhere
Set qdf = Nothing
如果要实例，请你上传文件。说明从哪个窗体筛选后做哪个查询。

[此贴子已经被作者于2006-3-3 12:12:13编辑过]

j110119

已上传,请指教.谢谢!

sgrshh29

以下是引用j110119在2006-3-3 12:55:00的发言：
已上传,请指教.谢谢!

没看到你上传的文件，用“回复”－“浏览...”－“上传”

j110119

SORRY.刚忘上传了

sgrshh29

<DIV class=quote>以下是引用j110119在2006-3-3 13:47:00的发言：

[此贴子已经被作者于2006-3-3 14:43:42编辑过]