选择表单的特定记录

Question

在这个表单上，我创建了一个网格，几乎看起来像一个条形图，其中有按月堆叠的小“单元格”。每个“单元格”都是方形子表单，我创建了用作子表单的小方形表单。

所以我想知道的是，运行选择查询并且仅处理该查询中的特定记录的代码（VB）是什么？例如，这些像“单元格”一样的小表单中的每一个都会成为子表单，代表一个组织，如果我运行第 N 个查询，我会通过任何方式获得第 10 个顶级商店......所以我们的想法是使用每个小表格代表该查询中的每条记录。因此，对于第一个单元格，我想运行 SELECT 查询，获取结果，并仅处理第一条记录。然后在第二个表单上运行完全相同的查询，并仅处理第二条记录，依此类推！

我想这有点奇怪，但它会给他们他们想要的东西，我唯一不确定的部分是“准确定义我想在 VBA 中使用的记录”

Answer 1

您可以更改每个子表单的 SQL 来读取：

SELECT TOP 1 ID, F1, F2 From Table

SELECT TOP 2 From Table WHERE ID NOT IN (SELECT TOP 1 ID From Table)

SELECT TOP 3 From Table WHERE ID NOT IN (SELECT TOP 2 ID From Table)

<...>

SELECT TOP 10 From Table WHERE ID NOT IN (SELECT TOP 9 ID From Table)

或者，看到您已经有了一个有点奇怪的设置，您可以使用记录集将每个 ID 写入 10 个隐藏文本框控件之一，并使用每个文本框作为链接主字段，ID 作为子表单的链接子字段。

链接主字段和链接子字段是子表单控件的属性，而不是所包含的表单的属性。

替代文本 http://ltd.remou.com/linkchildlinkmaster.png

Answer 2

如果我正确理解你的请求，你可以做这样的事情。

表结构

ID Autonumber,
Col1 Text

VBCode

Private Sub Command0_Click()
Dim rec As Recordset
Dim id As Integer

    Set rec = CurrentDb.OpenRecordset("SELECT TOP 10 * FROM Table1")

    While Not rec.EOF
        id = rec.Fields("ID")
        rec.MoveNext
    Wend
End Sub

Answer 3

您将 SQL 语句视为伪表的定义，即可以像操作表一样操作的一组记录 (RecordSet)。

Dim cnn As ADODB.Connection
Dim pseudoTable As ADODB.Recordset
Dim strSQL As String

    Set cnn = CurrentProject.Connection
    Set pseudoTable = New ADODB.Recordset

    strSQL = "SELECT Title FROM realTable where realID < 1000;"
    pseudoTable.Open strSQL, cnn, adOpenStatic, adLockOptimistic
    If Not pseudoTable.BOF And Not pseudoTable.EOF Then
        pseudoTable.MoveFirst
        Do Until pseudoTable.EOF
            ' do something with the table
            pseudoTable.MoveNext
        Loop

上面的代码应该会给你一个好的开始。