msaccess vba中的列表框代码有什么问题

Question

我已经编写了此代码，以通过VBA代码填充列表框，但是它不起作用。 我不明白这是怎么回事。

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Dim strsql As String
strsql = "select hotel_id, hotel_name from Hotels"
Set db = CurrentDb
Set rs = db.OpenRecordset(strsql)
Me.List0.RowSource = hotels                            'where hotels is name of table
Me.List0.ColumnWidths = "1 in; 2 in"
End Sub

Answer 1

更改

Me.List0.RowSource = hotels 

至

Me.List0.RowSource = strsql

您正在尝试将列表行源设置为Access无法理解的表。 它需要一个SQL字符串，而“ strsql”是该字符串。

您也可以直接将其设置为：

Me.List0.RowSource = "select hotel_id, hotel_name from Hotels"