请问何种类型的对象可以赋给Me.RecordSource

学徒

我想用一个临时对象temp保存查询生成的记录集，然后反复对这个临时对象进行查询，将查询结果再次赋给它本身，最后把该临时对象赋给Me.RecordSource。目的是想做一个复合查询：它依次判断输入窗体上的每一个输入框是否为空，若为空就选择整个表（即该查询条件不改变temp中的记录集），不空就用输入的值查询符合条件的记录，并用temp保存查询产生的记录集；然后再判断下一个输入框，并在上回temp的基础上做类似操作，最后把temp中的记录集作为数据源赋给查询结果窗体。如以下程序段：

Dim [B]temp[/B] As ???
If IsNull(Forms![复合查询窗体]![起始题号]) Then
[B]temp[/B] = "SELECT 试题属性.* FROM 试题属性 ;"
Else
[B]temp[/B] = "SELECT 试题属性.* FROM 试题属性 WHERE (((试题属性.题号)>=[forms]![复合查询窗体]![起始题号] ));"
End If

If IsNull(Forms![复合查询窗体]![终止题号]) Then
[B]temp[/B] = "SELECT [B]temp[/B].* FROM [B]temp[/B] ;"
Else
[B]temp[/B] = "SELECT [B]temp[/B].* FROM [B]temp[/B] WHERE ((([B]temp[/B].题号)<=[forms]![复合查询窗体]![终止题号] ));"
End If

……

Me.RecordSource＝[B]temp[/B]

请问这样的操作Access2000是否允许？如果允许，对象temp属于何种类型？该如何定义？如果不允许，请问如何实现类似功能？谢谢

zhuyiwen

使用ADO的记录集(ADODB.RecordSet)对象可以实现。

    Dim temp As ADODB.Recordset
    Dim strSQL As String

    ' 打开记录集
    strSQL = "Select ........"
    Set temp = New ADODB.Recordset
    With temp
        Set .ActiveConnection = CurrentProject.Connection
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .Open strSQL
    End With
   
    Set Me.Recordset = temp
    .
    .
    .
    ' 保存记录集
    temp.Save "temp.rst"

    ' 释放 temp 对象
    Set temp = Nothing

其它的自己去研究！

[fly][em04][em07][em04][/fly]

yuanhai

你的temp的字段类型用字符串类型就好了

学徒

我的temp反复保存的是一个由查询产生的中间表，也就是一组记录集，而不是一个条件字符串。它不可能属于简单的string类型啊，如果定义为string类型，则运行时会提示错误说“数据库引擎无法发现输入表或查询'temp' ”，调试时会停在最后一行，即temp最终无法赋值给Me.RecordSource。

ui

不就是字符串型吗

学徒

您这个例子跟我的问题不大一样啊。
我的这段程序最终要加载到[查询结果窗体]的事件中，而程序流程中要多次修改temp中保存的记录，如果直接用Me.RecordSource替换程序中的temp(我一开始就是这么做的)是无法通过编译的呀。

竹笛

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=4045&ID=4045