![](/img/trans.png)
[英]how can i Integration all texts from a column in a form to a textBox Microsoft Access VBA ms-access
[英]How can I populate textbox through VBA in MS Access?
我有一個表 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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.