访问VBA:通过功能设置组合框高度

Question

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

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

我该如何解决？谢谢？

Answer 1

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

用

Call Adjust_Box(Me.Data_Subject_Categories)

或

Adjust_Box Me.Data_Subject_Categories