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中组合框的动态默认值

2 个答案: