首页 > 解决方案 > 访问 VBA:通过函数设置 ComboBox 高度

问题描述

我想使用一个函数来调整height. ComboBox这是简化的代码:

Private Sub Form_ComboBox_AfterUpdate()
    Adjust_Box (Me.Data_Subject_Categories)
End Sub

Private Function Adjust_Box(ctl)
    ctl.Height = 300
End Function

但我得到了错误:

运行时错误“424”:需要对象

在这一行:

ctl.Height = 300

我该如何解决?谢谢?

标签: ms-accessvba

解决方案


您在不应该使用括号的地方使用了括号,从而导致对参数的评估 - 它传递 的Me.Data_Subject_Categories而不是对象。

利用

Call Adjust_Box(Me.Data_Subject_Categories)

或者

Adjust_Box Me.Data_Subject_Categories

推荐阅读