MS Access 查询时双击事件答案

【问题标题】：MS Access Double click event on queryMS Access 查询时双击事件
【发布时间】：2020-07-13 19:39:24
【问题描述】：

MS Access 2007，Win 7 32 位

有没有一种方法可以让我在数据表视图中访问打开的查询以获取当前字段值和当前字段名称？

我不会将它放入表单中，因为它是一个交叉表查询，我必须动态生成和删除控件，但我不喜欢用 VBA 那样弄乱表单控件。我知道我可以放置一个动态列报告并在控件上绑定一个事件，但我问是否有事件或对象可以让我直接访问查询。

也许是记录集克隆？但我在谷歌上没有找到任何东西。

当然这是在 VBA 中

最好的问候，

【问题讨论】：

如wiki.lessthandot.com/…?虽然涉及表单，但交叉表本身作为查询嵌入。

标签： ms-access vba ms-access-2007 crosstab

【解决方案1】：

也许可以解决您的要求。交叉表包含在一个子表单中：

Source Object : Query.xtab

两个文本框的控制源是：

Ctrl   : =[screen].[activecontrol].[name]
Content: =[screen].[activecontrol]

这意味着它们会显示用户在交叉表子表单中选择的列和列内容。但是，它们还将在表单上显示任何其他选定的控件。 ClickMe 不会更改所选控件，因此所选项目在文本框中保持不变。

【讨论】：

谢谢@Remou，才华横溢，直截了当。

【解决方案2】：

也可以输入MacDermott's code获取当前控件的索引，这样xtab查询子窗体上选中的当前控件就会动态显示

Public Function ControlIndex(ctl as Control) as long
 Dim i as Integer
  For i=0 to Me.Controls.Count-1
   if me.Controls(i) is ctl then
    ControlIndex=i
   exit for
  end if
  next
 End Function

最后this 可以在同一记录中从一个控件更改为另一个控件以保持文本框最新时提供帮助。

【讨论】：

我只需将文本框设置为 =screen.activecontrol 和 =screen.activecontrol.name 就容易多了。