如何在MS Access中通过VBA填充文本框？
Rizwan Safdar |
我有一个表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属性仅可用于当前具有焦点的控件。当您尝试引用.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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
MS Access填充文本框和组合框
- 2
MS Access：如何在筛选的搜索中筛选多个字段（文本框）
- 3
如何在Access中为VBA中的顺序命名文本框动态分配变量
- 4
使用循环从表中选择多个记录以填充MS Access中的未绑定文本框
- 5
如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入
- 6
如何在VBA中获得对文本框控件的引用而不是文本框的值
- 7
VBA MS Access在文本框中更改值的范围为2个字符
- 8
如何在MS Access中将从表单上的文本框（对象）获取的值插入到“ LIKE”查询中
- 9
MS ACCESS：如何在 MS Access 的表中查找环境用户名，以便在文本框中返回全名？
- 10
如何在 MS Powerpoint 中使用带有 VBA 的文本框？
- 11
如何在MS Access中比较两个文本框？
- 12
仅允许MS Access在文本框中输入字母
- 13
如何在文本框中创建和调用自动填充文本
- 14
MS Access 2016，VBA：如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件？
- 15
MS Access：如何用查询绑定表格的文本框？
- 16
MS Access：使用VBA将字符串从文本框拆分为其他文本框
- 17
如何在 VBA (PowerPoint) 中的随机幻灯片上检查文本框中的文本？
- 18
如何在angularjs的输入文本框中填充精确的十进制值
- 19
MS Access VBA显示列表框计数到文本框
- 20
如何通过文本框遍历jQuery中的表值
- 21
如何从文本框输入中填充用户窗体列表框/组合框数组/列表？
- 22
如何在 Access（富文本）文本框中添加空白下划线
- 23
如何在 MS Access 中填充动态数组？
- 24
无法通过VBA填充Internet Explorer中的文本框
- 25
如何在 C# 中通过字符串访问 EventHandler 中的表单文本框？
- 26
如何基于html页面中的组合框中的值填充文本框的值
- 27
如何在MS Office中添加VBA？
- 28
如何在 MS Access 中过滤数组
- 29
如何在MS Access中使用VBA在列表框中添加新项目
我来说两句