Ms access 如何通过MS Access中的VBA填充文本框？

我有一个表格RR_info，其中包含以下字段RR_ID、HR_ID、No_of_Beds、Room_Category。现在，我希望通过带有Form_load事件的VBA代码，为所有这些表字段填充文本框。为此，我编写了一个查询，根据hotel_id作为条件获取某些记录，但代码不起作用

Private Sub Form_Load()
Dim SQL As String
Dim db As Database
Dim rs As DAO.Recordset

SQL = "select * from RR_info where hr_id = " & Forms![hhrrr]![List38] & ";"
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)

Me.RR_ID.Text = rs!RR_ID
Me.HR_ID.Text = rs!HR_ID
Me.Room_No.Text = rs![Room No]
Me.No_of_Beds.text = rs!No_of_Beds
Me.Room_Category.text = rs!Room_Category

Set rs = Nothing
Set db = Nothing

End Sub

---

这是我希望通过VBA根据条件添加表数据的表的图片。

文本属性仅适用于当前具有焦点的控件。尝试在任何其他控件上引用

.Text

时，将触发错误。无论控件是否具有焦点，

.Value

属性都可用

为了安全起见，请将它们全部更改为

.Value

Me.RR\u ID.Value=rs！RR_ID
Me.HR\u ID.Value=rs！人力资源部
Me.Room_No.Value=rs！[房间号]
Me.No_of_Beds.Value=rs！没有床
Me.Room\u Category.Value=rs！房间类别

是的，看着我。rr_id.text=rs！rr_id及以上