Question

找到我的vba

私人子Search_Click（）

将VarItem视作变体

Dim Strsearch作为字符串昏暗的SQL作为字符串昏暗的Ctrl作为控件

设置ctrl = Me.LbobDriveType

如果ctrl.ItemsSelected.Count> 0然后

对于ctrl.ItemsSelected中的每个VerItem

Strsearch = Strsearch＆ctrl.Column（VarItem）

下一个VerItem

MsgBox（Strsearch）

Sql =“ SELECT数据库。[记录_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 [数据库]，其中DRIVE_TYPES in（'”＆Strsearch＆“'）”

MsgBox (Sql)

   End If

Me.SbfRecord.Form.RecordSource = SQL Me.SbfRecord.Form.Requery

结束子

enter image description here

Answer 1

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

如果是这样，则代码应该运行良好，除了存在错字（VarItem与VerItem）和缺少End If的事实之外。

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

在简单类型访问列表框中选择第一项

1 个答案: