第一项在简单类型访问列表框中被选中答案

【问题标题】：first item is getting selected in simple type access list box第一项在简单类型访问列表框中被选中
【发布时间】：2019-05-06 19:42:42
【问题描述】：

找到我的 vba

私人子搜索_Click()

将 VarItem 调暗为变体

Dim Strsearch 作为字符串将 Sql 调暗为字符串 Dim ctrl 作为控件

设置 ctrl = Me.LbobDriveType

如果 ctrl.ItemsSelected.Count > 0 那么

对于 ctrl.ItemsSelected 中的每个 VerItem

Strsearch = Strsearch & ctrl.Column(VarItem)

下一个 VerItem

MsgBox (Strsearch)

Sql = "SELECT Database.[Record_ID]、Database.PhysicalVIN、Database.LogicalVIN、Database.VERSION、Database.BODY_STYLE、Database.ENGINE_TYPES、Database.BODY_EXTERIOR_COLOR、Database.INDIA_OR_EXPORT、Database.DRIVE_TYPES、Database.TRANSMISSION_TYPES、 Database.FUEL_TYPE、Database.MARKET、Database.MARKET_CATEGORY" _ & "FROM [Database] where DRIVE_TYPES in('" & Strsearch & "')"

MsgBox (Sql)

   End If

Me.SbfRecord.Form.RecordSource = Sql Me.SbfRecord.Form.Requery

结束子

enter image description here

【问题讨论】：

修复格式。
您的问题/疑问究竟是什么？顺便说一句：您在某处缺少End If...
我在访问表单中有列表框，我在其中放置了两个值“LHD”。“RHD”。我选择了列表类型 - 简单的多选。选择两个值后会选择重复值。像 RHDRHD 或 LHDLHD。 .

标签： ms-access

【解决方案1】：

我希望您希望列表框的两个标记条目显示在消息框中，而不是第一个条目的两倍？

如果是这样，代码应该可以正常工作，除了有一个错字（VarItem vs VerItem）和一个End If 丢失。

所以我认为您的问题可能是列表框中定义了多个列？也许第一列被隐藏并且所有行都包含RHD？

【讨论】：

谢谢我的朋友！问题是错字。。感觉松了一口气。