如果[ComboBox]在VBA / Access 2007中为空语句

Question

我有一个带有一个ComboBox（ YearToBeBuilt ）和两个YearToBeBuilt字段（ Cost和YearofExpenditureCost ）的YearofExpenditureCost 。 所有控件都链接到主表，并且一旦在表单上进行了选择/输入，便会更新该表。

我在VB中编写了一个名为ReCalcIt()的过程，该过程在被调用时执行以下过程：

Private Sub ReCalcIt()
If Me.YearToBeBuilt = "" Then
    Me.YearofExpenditureCost = Me.Cost
Else
    Me.YearofExpenditureCost = Me.Cost * (1 + 0.031) ^ (Me.YearToBeBuilt - 2010)
End If
End Sub

当我写这篇文章时， 我以为这样做会做到以下几点：

如果ComboBox [YearToBeBuilt]为空（例如，未进行选择），则文本框[YearOfExpenditureCost]将返回TextBox [Cost]的值。 否则，将执行YearofExpenditureCost的计算。

但这没有按照应有的方式工作

我究竟做错了什么？ 我是VBA n00b，所以我的语法可能不正确？

Answer 1

尝试一下

If Len(Me.YearToBeBuilt & vbNullString) = 0

因此，代码将如下所示：

Private Sub ReCalcIt()
If Len(Me.YearToBeBuilt & vbNullString) = 0 Then
    Me.YearofExpenditureCost = Me.Cost
Else
    Me.YearofExpenditureCost = Me.Cost * (1 + 0.031) ^ (Me.YearToBeBuilt - 2010)
End If
End Sub

Answer 2

在我看来，这可能取决于组合框的格式？ 如果是数字，那么

If Len(Me.YearToBeBuilt & vbNullString) = 0

不起作用。 因为Me.YearToBeBuilt的值为0，所以以上返回1。

我想知道是否有更健壮的方法？ 也许

Me.YearToBeBuilt.ListIndex = -1

Answer 3

通常的方式是说：

If IsNull(MyControl) Then

另请参见： Access VBA：如果Form Value <> NULL，则运行查询else，如果结束。 -什么也没做