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？我的 combo11

的最高值出错

Answer 1

试试：

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

Answer 2

我找到了解决方案！

就像删除 .defaultvalue 属性一样简单：

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

Access 中组合框的动态默认值 VBA

Dynamic Default Value for Combobox in Access VBA

ms-access

vba

default