当前位置：文江博客话题详情

在 Access 中打开表单时启用控件

发布于 2024-07-08 17:07:00 字数 567 浏览 8 评论 0原文

我有一个表单，我想根据 ComboBox 控件中的值启用/禁用其控件。与窗体中的所有其他控件一样，此 ComboBox 控件链接到一个表。在组合框的 Change 事件中，我放置了启用/禁用其他控件的代码。

我遇到的问题是，当我打开表单时，控件未启用/禁用。我必须重新选择 ComboBox 值才能启用或禁用所有其他控件。

我注意到的一件事是，ComboBox 内的 RecordSet 控件通常不会更改为 ComboBox value 属性中显示的值。

我尝试使用
combobox.recordset.filter = "Key = " & 组合框.值
但我收到错误
这种类型的对象不支持操作。

更新

我认为我的问题必须更多地解决我如何访问combobox.recordset中的值。我的印象是，combobox.recordset 保存着从表中收到的值。但是，它似乎保存着记录源的第一个记录。

我猜测我需要使用另一个记录集对象来搜索我需要的那些值。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

留一抹残留的笑 2024-07-15 17:07:00

大多数访问控制事件不是由对控件的编程更改触发的。您可能希望调用代码以从表单的加载事件启用控件。

您没有提及您正在使用的 Access 版本，但我不相信任何版本都有组合框的 Recordset 属性。

您是否希望将组合框设置为特定值？

回复收藏 0 原文

壹場煙雨 2024-07-15 17:07:00

执行您在此处尝试的操作的一种方法是将combobox.change() 放入form.current() 方法中。

一旦表单启动并运行，这将就像组合框已被更改一样。

我以前做过类似的事情，但目前我面前没有代码。一旦我看到它，我就会把它更详细地发布在这里，但我突然相信这就是我所做的。

回复收藏 0 原文

旧情别恋 2024-07-15 17:07:00

在评论中，lamcro针对梳状盒盒是否具有记录集的问题进行了评论：

当我闯入表单 VB 代码时
和“添加监视”CB 控件，
记录集属性就在那里。我可以
甚至进入并看到它自己的
特性。

当我设置监视列表时，我会看到它，但组合框的记录集无法通过代码访问或更改。为了过滤组合框，您需要使用其行源。

这可以通过以下两种方式之一完成：

使用事件将新的 Rowsource 动态分配给组合框，或者
使用对要在其他组合的 Rowsource 的 WHERE 子句中筛选其值的控件的引用盒子。

假设您有 cmbComboBox1，当您在其中选择一个值时，您希望根据 cmbComboBox1 中选择的值过滤 cmbCombBox2 中列出的值。对于方法 1，您可以使用第一个组合框的 AfterUpdate 来设置第二个组合框的行源：

  Private Sub cmbComboBox1_AfterUpdate()
    Dim strRowsource As String

    strRowsource  = "SELECT * FROM MyTable"
    If Not IsNull(Me!cmbComboBox1) Then
       strRowsource  = strRowsource & " WHERE MyField = " & Me!cmbComboBox1
    End If
    Me!cmbComboBox2.Rowsource = strRowsource
  End Sub

要使用第二种方法，您可以根据测试第一个组合框的值来定义第二个组合框的行源：

SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

其作用是，如果第一个组合框有值，则过滤行源；如果有值，则不过滤它。也就是说，您将获得一个未过滤的列表，直到为第一个组合框选择了一个值。

然后，在 cmbComboBox1 的 Afterupdate 事件中，您将重新查询第二个组合框：

  Private Sub cmbComboBox1_AfterUpdate()
    Me!cmbComboBox2.Requery
  End Sub

定义一个参数可能也是一个好主意，以确保对表单控件的引用得到适当解析，因此您的 Rowsource 将是这样的：

PARAMETERS [Forms]![MyForm]![cmbComboBox1] Long;
SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

（假设您正在过滤自动编号 PK - 如果数据类型不同，您当然会使用不同的数据类型）

我倾向于使用动态 Rowsource 分配，只是因为我发现它是跨不同 Access 版本的问题较少（即，在所有 Access 版本中，对表单控件的引用的解析方式不同）。

In a comment, lamcro observes in regard to the question of whether or not a comb box box has a Recordset:

When I break into the forms VB code
and "Add Watch" the CB control, the
recordset property is in there. I can
even enter and see it's own
properties.

I see it when I set a watch list, but the recordset of a combo box is not accessible or alterable via code. In order to filter a combo box, you need to work with its Rowsource.

This can be accomplished one of two ways:

use an event to assign a new Rowsource to your combo boxes on the fly, OR
use a reference to the control whose value you want to filter on in the WHERE clause of the Rowsource of your other combo boxes.

Say you have cmbComboBox1 and when you select a value in it, you want the values listed in cmbCombBox2 to be filtered according to the value selected in cmbComboBox1. For method 1, you'd use the first combo box's AfterUpdate to set the rowsource of the second:

  Private Sub cmbComboBox1_AfterUpdate()
    Dim strRowsource As String

    strRowsource  = "SELECT * FROM MyTable"
    If Not IsNull(Me!cmbComboBox1) Then
       strRowsource  = strRowsource & " WHERE MyField = " & Me!cmbComboBox1
    End If
    Me!cmbComboBox2.Rowsource = strRowsource
  End Sub

To use the second method, you'd instead define the Rowsource of the second combo box to be based on testing the value of the first:

SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

What this does is filter the rowsource if the first combo box has a value and doesn't filter it if there is a value. That is, you get an unfiltered list until there's a value chosen for the first combo box.

Then, in the Afterupdate event of cmbComboBox1, you'd requery the second combo box:

  Private Sub cmbComboBox1_AfterUpdate()
    Me!cmbComboBox2.Requery
  End Sub

It's also probably a good idea to define a parameter in order to insure that the reference to the form control gets appropriately resolved, so your Rowsource would be this:

PARAMETERS [Forms]![MyForm]![cmbComboBox1] Long;
SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

(assuming you're filtering on an Autonumber PK -- if the data type is different, you'd use a different data type, of course)

I would tend to use the dynamic Rowsource assignment, simply because I've found it to be less problematic across different Access versions (i.e., references to controls on forms are not resolved the same way in all versions of Access).

回复收藏 0 原文

找回味觉 2024-07-15 17:07:00

您能解释一下您拥有什么类型的组合框以及您想要做什么吗？例如，您是否有一个用于查找表单记录的未绑定组合框，或者是否有一个用于更新表中字段的绑定组合框？这是由 RowSource 和 ControlSource 属性控制的，组合框没有记录集属性。当您打开表单时，未绑定的组合框不会有值，当您从一个记录移动到另一个记录时，该值也不会更改，但使用当前事件分配值很容易。

编辑
我仍然不清楚你想做什么。根据您的评论，您在选择选项时修改控件时是否遇到问题，或者在表单打开时设置组合值时是否遇到问题？您是否想更改组合的 RowSource，也许如您原始帖子所暗示的那样？

回复收藏 0 原文