первый элемент выбирается в поле со списком доступа простого типа - PullRequest
Новая
       0

первый элемент выбирается в поле со списком доступа простого типа

0 голосов
/ 05 декабря 2018

Find my vba

Private Sub Search_Click ()

Dim VarItem как вариант

Dim Strsearch в виде строки Dim Sql в виде строки Dim ctrl в качестве элемента управления

Установите ctrl = Me.LbobDriveType

Если ctrl.ItemsSelected.Count> 0 Тогда

Для каждого VerItem В ctrl.ItemsSelected

Strsearch = Strsearch & ctrl.Column (VarItem))

Next VerItem

MsgBox (Strsearch)

Sql = "SELECT Database. [Запись _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_CATEGTY & FRES_CARE_TARSE__RATE_CARE_TARTY_CATEGORY & _ _"')" 

MsgBox (Sql)

   End If

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

end sub

введите описание изображения здесь

введите описание изображенияздесь ption

1 Ответ

0 голосов
/ 05 декабря 2018

Полагаю, вы хотите, чтобы две отмеченные записи списка отображались в окне сообщения вместо двойной первой?

Если это так, код должен работать хорошо, за исключением того факта, что имеетсяопечатка (VarItem против VerItem) и End If отсутствует.

Так что я думаю, что ваша проблема может быть в том, что в списке определено более одного столбца?Может быть, первый столбец скрыт и содержит RHD для всех строк?

...