错误 2448：无法为此对象赋值...为什么不呢？

Question

Private Sub Form_Open(Cancel As Integer)
  Me.Bathroom = Forms!frmBathrooms!ID
  Me.txtBathInfo.Caption = "Bathroom Room Number: " & 
        DLookup("Room", "tblRooms", "ID = " & 
           DLookup("Room", "tblBathrooms", "ID = " & Me.Bathroom))
  Me.RecordSource = "SELECT * FROM tblStalls WHERE Bathroom = " & Me.Bathroom
  Me.Recordset.AddNew
End Sub

其中第 2 行Me.Bathroom = Forms!frmBathrooms!ID引发错误。调试器说Me.Bathroom = 1, Forms!frmBathrooms!ID = 38。基本上，我试图自动使该表单的 Bathroom 字段与 frmBathrooms 表单的 ID 字段相匹配。“我”是浴室里物品的一种形式；可以有很多项目。

这到底是怎么抛出错误的？尽管搜索了大约一个小时，我还是找不到任何东西。我明白这个消息，但不明白这怎么会抛出它？

Item 表的 Bathroom 字段位于表单的记录源等中。有想法吗？

Answer 1

对于遇到同样问题的其他人，我所做的只是将第 2 行和第 3 行移至 Me.Recordset.AddNew 下面（以便在更改 Me.Bathroom 和标题之前更改源并添加新记录）。\xe2\x80\x93 用户1394455

\n