Ms access 运行时错误'；2448'；：你可以'；t为此对象分配值-VBA/Access-选项组

我使用一个选项组让学生选择他们正在学习的课程。选择后，名为ProgrammeChoiceT的文本框将其值设置为ProgrammeID，并将控制源设置为ProgrammeID

所有这些都是为了使ProgrammeID不作为默认选项组值1-3存储。但是，它不起作用，出现以下错误：

运行时错误“2448”：无法为此对象分配值

当我删除控制源时，文本框的ProgrammeChoiceT.值变为“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

---

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

因此，解决办法是：

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

---

或者，如果要选择该值，请使用and

if…then

语句。

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

感谢您的回复，尽管我将代码更改为解决方案，但仍然会出现相同的错误。您能否用

if…then

语句替换代码？