[英]What is wrong with this VBA Code
请告诉我这段代码有什么问题。 它显示错误...“rowsourcetype属性必须设置为值列表才能使用此”
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strItem As String
strSQL = "SELECT CustomerID, CompanyName FROM Customers"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
strItem = rs.Fields("CustomerID").Value & ";" _
& rs.Fields("CompanyName").Value
Me.List1.AddItem strItem ' Row Source Type must be Value List
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
转到列表项的属性,在数据中找到属性“行源类型”并将其设置为“值列表”。 或者你可以通过推杆在代码中做
Me.Liste3.RowSourceType = "Value List"
在Dim strSQL As String, strItem As String
之后的代码Dim strSQL As String, strItem As String
希望这可以帮助! 马克斯
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.