运行时错误“2448”：您无法为该对象赋值 - VBA/Access - 选项组答案

【问题标题】：Run-Time Error '2448': You can't assign a value to this object - VBA/Access - option group运行时错误“2448”：您无法为该对象赋值 - VBA/Access - 选项组
【发布时间】：2017-01-04 14:54:51
【问题描述】：

我正在使用一个选项组让学生选择他们正在学习的课程。一旦选择了一个名为 ProgrammeChoiceT 的文本框，它的值就会设置为 ProgrammeID，控制源设置为 ProgrammeID。

这样做是为了 ProgrammeID 可以不作为默认选项组值 1-3 存储。但是它不起作用并出现此错误：

运行时错误“2448”：您无法为该对象赋值

当我删除控制源时，文本框的 ProgrammeChoiceT.Value 变为“AM”，只有在设置控制源时才会出现错误。

我该如何解决这个问题？

代码如下：

Private Sub ProgrammeF_AfterUpdate()

 Select Case ProgrammeF.Value
  Case 1
    ProgrammeChoiceT.Value = "AM"
  Case 2
    ProgrammeChoiceT.Value = "FM"
  Case 3
    ProgrammeChoiceT.Value = "HRM"
End Select
End Sub

【问题讨论】：

标签： ms-access vba ms-access-2010 option

【解决方案1】：

我认为错误在于您选择了值而不是字段。

因此解决方案是：

Select Case ProgrammeF
case 1
    programmeChoiceT.value ="AM"

或者，如果要选择值，则使用和if...then 语句。

【讨论】：

感谢您的回复，尽管我将代码更改为解决方案，但仍然遇到相同的错误。
你能用if...then语句替换代码吗？

【解决方案2】：

您将值保存到其中的字段是否有一个包含多列的下拉列表？我想知道您收到的错误是否是由于下拉字段中的选项没有涉及多个列。数字选项将是绑定列，而这些选项的值将是第二列。您可以更改列宽，以便仅显示文本值，但保存数值。

【讨论】：