如何在 MS Access 中通过 VBA 填充文本框？答案

【问题标题】：How can I populate textbox through VBA in MS Access?如何在 MS Access 中通过 VBA 填充文本框？
【发布时间】：2013-09-22 19:08:53
【问题描述】：

我有一个 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根据条件添加表格数据的表格图片。

【问题讨论】：

是的，在 me.rr_id.text=rs!rr_id 及以后

标签： ms-access ms-access-2007 vba ms-access-2010 ms-access-2003

【解决方案1】：

.Text 属性仅适用于当前具有焦点的控件。当您尝试在任何其他控件上引用.Text 时，您将触发错误。无论控件是否具有焦点，.Value 属性都可用。

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

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

【讨论】：