Question

我试图（通过复选框）选择所有从访问表的“标题列”过滤的记录。这是一个由查询生成的表，格式为“源对象”。

我尝试了以下代码，但是此代码选择了查询表中所有可用的记录。

我不想使用查询条件进行过滤。请告知我是否有任何方法可以完成此任务。

我尝试了以下代码，但是此代码选择了查询表中所有可用的记录。

Private Sub Command452_Click()
Dim rst As Recordset, i As Integer, checkStat As String

Set rst = Me.RecordsetClone
i = 0
rst.MoveFirst
Do While Not rst.EOF
i = i + 1
rst.Edit
If rst![Select Channels] = True Then
  rst![Select Channels] = True
  checkStat = "Selected."
Else
   rst![Select Channels] = False
  checkStat = "Unselected."
End If
rst.Update
rst.MoveNext
Loop
MsgBox i & " Records " & checkStat

rst.Close
Set rst = Nothing

End sub

我不想使用查询条件进行过滤。请告知我是否有任何方法可以完成此任务。

Answer 1

您的代码没有意义-这里没有更新：

If rst![Select Channels] = True Then
  rst![Select Channels] = True
Else
   rst![Select Channels] = False
End If

和checkstat只会保存上次访问记录的值：

checkStat = "Unselected."

和 i 只是在循环记录时对其计数。

从“标题列”中过滤出的是什么意思？

通过复选框选择查询表中的过滤数据

1 个答案: