Проблема с Combobox в Access VBA

Я пытаюсь установить значение combobox на значение по умолчанию, проблема в источнике данных - это запрос, возвращающий целочисленный тип, я хочу, чтобы значение по умолчанию было «*», когда я попробуйте это:Проблема с Combobox в Access VBA

Private Sub LabelWklstID_DblClick(Cancel As Integer) 
Me.WorklistIDSelector.Value = Mid(Me.WorklistIDSelector.DefaultValue, 2, 1) 
End Sub

он не работает, получая «недопустимое значение» ошибка, но когда я попробовать Int это работает:

Me.WorklistIDSelector.Value = 1

Как я могу сделать мой выпадающий принять «*». Любая помощь будет оценена

Edit:

RowSource = ВЫБОР tWorkList.WorkListID, tWorkList.ProjectID ОТ tWorkList GROUP BY tWorkList.WorkListID, tWorkList.ProjectID HAVING (((tWorkList.ProjectID) = [Формы ]! [fMain]! [ProjectID])) ORDER BY tWorkList.WorkListID;
Bound Колонка = 1
Колонка Ширины = 2,54cm

источник

2013-05-21 Oumaya

Вы должны уточнить свой вопрос, добавив к вашему вопросу столбец RowSource, Bound и ColumnWidths вашего комбо. И, кстати, вам, как правило, не требуется VBA для определения значения по умолчанию для элемента управления. свойство элемента управления, которое вы можете установить вручную. –

Моя цель здесь не определять значение по умолчанию, а задавать значение combobox по умолчанию или просто установите его на «*» (это событие), RowSource - это запрос («SELECT tWorkList.WorkListID ....» WorkListID - это int) – Oumaya

Тогда 'myControl.Value = myControl.DefaultValue' должен сделать трюк! –

выберите tworklistID, как ID, другие поля из tworlklist и т.д. UNION выбрать «*» в качестве ID, 0,0,0 (фиктивная пустым другие поля)

источник

2013-07-23 15:24:24 basdwarf

Проблема с Combobox в Access VBA

ответ

Смежные вопросы