如何在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] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

MS Access填充文本框和组合框

来自分类Dev

MS Access:如何在筛选的搜索中筛选多个字段(文本框)

来自分类Dev

如何在Access中为VBA中的顺序命名文本框动态分配变量

来自分类Dev

使用循环从表中选择多个记录以填充MS Access中的未绑定文本框

来自分类Dev

如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入

来自分类Dev

如何在VBA中获得对文本框控件的引用而不是文本框的值

来自分类Dev

VBA MS Access在文本框中更改值的范围为2个字符

来自分类Dev

如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

来自分类Dev

MS ACCESS:如何在 MS Access 的表中查找环境用户名,以便在文本框中返回全名?

来自分类Dev

如何在 MS Powerpoint 中使用带有 VBA 的文本框?

来自分类Dev

如何在MS Access中比较两个文本框?

来自分类Dev

仅允许MS Access在文本框中输入字母

来自分类Dev

如何在文本框中创建和调用自动填充文本

来自分类Dev

MS Access 2016,VBA:如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件?

来自分类Dev

MS Access:如何用查询绑定表格的文本框?

来自分类Dev

MS Access:使用VBA将字符串从文本框拆分为其他文本框

来自分类Dev

如何在 VBA (PowerPoint) 中的随机幻灯片上检查文本框中的文本?

来自分类Dev

如何在angularjs的输入文本框中填充精确的十进制值

来自分类Dev

MS Access VBA显示列表框计数到文本框

来自分类Dev

如何通过文本框遍历jQuery中的表值

来自分类Dev

如何从文本框输入中填充用户窗体列表框/组合框数组/列表?

来自分类Dev

如何在 Access(富文本)文本框中添加空白下划线

来自分类Dev

如何在 MS Access 中填充动态数组?

来自分类Dev

无法通过VBA填充Internet Explorer中的文本框

来自分类Dev

如何在 C# 中通过字符串访问 EventHandler 中的表单文本框?

来自分类Dev

如何基于html页面中的组合框中的值填充文本框的值

来自分类Dev

如何在MS Office中添加VBA?

来自分类Dev

如何在 MS Access 中过滤数组

来自分类Dev

如何在MS Access中使用VBA在列表框中添加新项目

Related 相关文章

  1. 1

    MS Access填充文本框和组合框

  2. 2

    MS Access:如何在筛选的搜索中筛选多个字段(文本框)

  3. 3

    如何在Access中为VBA中的顺序命名文本框动态分配变量

  4. 4

    使用循环从表中选择多个记录以填充MS Access中的未绑定文本框

  5. 5

    如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入

  6. 6

    如何在VBA中获得对文本框控件的引用而不是文本框的值

  7. 7

    VBA MS Access在文本框中更改值的范围为2个字符

  8. 8

    如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

  9. 9

    MS ACCESS:如何在 MS Access 的表中查找环境用户名,以便在文本框中返回全名?

  10. 10

    如何在 MS Powerpoint 中使用带有 VBA 的文本框?

  11. 11

    如何在MS Access中比较两个文本框?

  12. 12

    仅允许MS Access在文本框中输入字母

  13. 13

    如何在文本框中创建和调用自动填充文本

  14. 14

    MS Access 2016,VBA:如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件?

  15. 15

    MS Access:如何用查询绑定表格的文本框?

  16. 16

    MS Access:使用VBA将字符串从文本框拆分为其他文本框

  17. 17

    如何在 VBA (PowerPoint) 中的随机幻灯片上检查文本框中的文本?

  18. 18

    如何在angularjs的输入文本框中填充精确的十进制值

  19. 19

    MS Access VBA显示列表框计数到文本框

  20. 20

    如何通过文本框遍历jQuery中的表值

  21. 21

    如何从文本框输入中填充用户窗体列表框/组合框数组/列表?

  22. 22

    如何在 Access(富文本)文本框中添加空白下划线

  23. 23

    如何在 MS Access 中填充动态数组?

  24. 24

    无法通过VBA填充Internet Explorer中的文本框

  25. 25

    如何在 C# 中通过字符串访问 EventHandler 中的表单文本框?

  26. 26

    如何基于html页面中的组合框中的值填充文本框的值

  27. 27

    如何在MS Office中添加VBA?

  28. 28

    如何在 MS Access 中过滤数组

  29. 29

    如何在MS Access中使用VBA在列表框中添加新项目

热门标签

归档