我有一个表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根据标准添加表数据
1 回答
.Text
属性仅适用于当前具有焦点的控件 . 当您尝试在任何其他控件上引用.Text
时,您将触发错误 . 无论控件是否具有焦点,.Value
属性都可用 .为安全起见,请将它们全部更改为
.Value
.