运行时错误＆＃39;＆＃39;＆＃39;：您无法为此对象分配值 - VBA / Access - 选项组

Question

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

这一切都已完成，因此ProgrammeID不能存储为默认选项组值1-3。但它不起作用，并出现此错误：

运行时错误＆＃39;＆＃39;＆＃39;：您无法为此对象分配值

当我删除控制源时，文本框的ProgrammeChoiceT.Value变为＆＃34; AM＆＃34;，只有当设置了控制源时才会出现错误。

我该如何解决这个问题？

代码如下所示：

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

Answer 1

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

因此解决方案是：

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

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

Answer 2

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