Включение элементов управления в момент открытия формы в Access

Большинство событий управления доступом не инициируются программными изменениями элемента управления. Вы можете вызвать код, чтобы включить элементы управления из события загрузки формы.

Вы не указываете версию Access, которую используете, но я не верю, что какая-либо версия имеет свойство Recordset для полей со списком.

Вы хотели установить для поля со списком определенное значение?

Один из способов сделать то, что вы здесь пытаетесь, — поместить combobox.change() внутрь метода form.current().

Это будет действовать так, как если бы поле со списком было изменено, как только форма будет запущена и запущена.

Я делал что-то подобное раньше, но в данный момент передо мной нет кода. Как только я посмотрю на это, я опубликую это здесь более подробно, но с головы до ног я считаю, что это было так, как я это сделал.

В комментарии lamcro замечает относительно вопроса о том, есть ли в гребенке набор записей:

Когда я взламываю код VB форм и «Добавляю часы» в элемент управления CB, свойство набора записей находится там. Я даже могу войти и увидеть его собственные свойства.

Я вижу это, когда устанавливаю список наблюдения, но набор записей поля со списком недоступен или не может быть изменен с помощью кода. Чтобы отфильтровать поле со списком, вам нужно работать с его Rowsource.

Это может быть выполнено одним из двух способов:

1. используйте событие, чтобы назначить новый источник строк вашим полям со списком на лету, ИЛИ
2. используйте ссылку на элемент управления, значение которого вы хотите отфильтровать, в предложении WHERE Rowsource других ваших полей со списком.

Допустим, у вас есть cmbComboBox1, и когда вы выбираете в нем значение, вы хотите, чтобы значения, перечисленные в cmbCombBox2, были отфильтрованы в соответствии со значением, выбранным в cmbComboBox1. Для метода 1 вы должны использовать AfterUpdate первого поля со списком, чтобы установить источник строк второго:

  Private Sub cmbComboBox1_AfterUpdate()
    Dim strRowsource As String

    strRowsource  = "SELECT * FROM MyTable"
    If Not IsNull(Me!cmbComboBox1) Then
       strRowsource  = strRowsource & " WHERE MyField = " & Me!cmbComboBox1
    End If
    Me!cmbComboBox2.Rowsource = strRowsource
  End Sub

Чтобы использовать второй метод, вместо этого вы должны определить Rowsource второго поля со списком, чтобы оно основывалось на проверке значения первого:

SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

Это фильтрует источник строк, если в первом поле со списком есть значение, и не фильтрует его, если значение есть. То есть вы получаете нефильтрованный список до тех пор, пока не будет выбрано значение для первого поля со списком.

Затем в событии Afterupdate для cmbComboBox1 вы должны повторно запросить второе поле со списком:

  Private Sub cmbComboBox1_AfterUpdate()
    Me!cmbComboBox2.Requery
  End Sub

Также, вероятно, неплохо определить параметр, чтобы убедиться, что ссылка на элемент управления формы правильно разрешена, поэтому ваш Rowsource будет таким:

PARAMETERS [Forms]![MyForm]![cmbComboBox1] Long;
SELECT * FROM MyTable 
WHERE (MyField=[Forms]![MyForm]![cmbComboBox1] 
        AND IsNull([Forms]![MyForm]![cmbComboBox1])=False) 
   OR IsNull([Forms]![MyForm]![cmbComboBox1])=True

(при условии, что вы фильтруете Autonumber PK - если тип данных другой, вы, конечно, будете использовать другой тип данных)

Я бы предпочел использовать динамическое назначение Rowsource просто потому, что я обнаружил, что оно менее проблематично в разных версиях Access (т. е. ссылки на элементы управления в формах не разрешаются одинаково во всех версиях Access).

Можете ли вы объяснить, какой тип выпадающего списка у вас есть и что вы хотите сделать, пожалуйста? Например, есть ли у вас несвязанное поле со списком, которое используется для поиска записей для вашей формы, или у вас есть связанное поле со списком, которое используется для обновления полей в таблице? Это контролируется свойствами RowSource и ControlSource, поля со списком не имеют свойства набора записей. Несвязанное поле со списком не будет иметь значения при открытии формы, и значение не изменится при переходе от записи к записи, но достаточно просто присвоить значение, используя текущее событие.

РЕДАКТИРОВАТЬ Я до сих пор не понимаю, что вы хотите сделать. У вас возникли проблемы с изменением элементов управления при выборе параметра в соответствии с вашим комментарием или у вас возникли проблемы с установкой значения комбинации при открытии формы? Возможно, вы хотите изменить RowSource комбо, как это подразумевается в вашем исходном сообщении?

'Проверьте предварительный просмотр ключа в свойствах формы

'Отладка здесь для combobox.value (Ctrl+G для окна отладки)

Debug.print combobox.value

me.filter = "Ключ = " & combobox.value

'Возможно me.reload или me.refresh в зависимости от версии MS Access