Динамическое значение по умолчанию для Combobox в Access VBA

Question

Я хочу установить динамическое значение по умолчанию для моего комбинированного списка: combo11

Я использовал это:

Me.Combo11.DefaultValue = DLookup(str)

Пока:

str = "EmpOperation", "tblEmp", "EmpNom ='" & Me.Label6.Caption & "'"

Яоткрыт для любого решения не VBA для этого.Спасибо

Полный код:

Private Sub Form_Current()

        If Not IsNull(Me.OpenArgs) Then
            Me.Label6.Caption = Me.OpenArgs
        End If

        Me!Combo11.DefaultValue = DLookup("EmpOperation", "tblEmp", "EmpNom ='" & Me.Label6.Caption & "'")

End Sub

Я получил #NAME?ошибка на верхнем значении моего комбо11

Answer 1

Я нашел решение!

Это так же просто, как удалить .defaultvalue свойство:

Me.Combo11 = DLookup("EmpOperation", "tblEmp", "EmpNom ='" & Me.Label6.Caption & "'")

Answer 2

Попробуйте с:

Me!Combo11.DefaultValue = Nz(DLookup("EmpOperation", "tblEmp", "EmpNom ='" & Me.Label6.Caption & "'"))