VBA 将组合框值加在一起

【问题标题】：VBA Add combo box values togetherVBA 将组合框值加在一起
【发布时间】：2016-06-10 22:51:49
【问题描述】：

我有 3 个包含数字的组合框：

Me.Authorized
Me.Officer
Me.Enlisted

我要做的是添加 Me.Officer 和 Me.Enlisted 的值，并确保它等于 Me.Authorized。我已经弄清楚了所有其他语句/命令，但我无法理解这一点。

【问题讨论】：

标签： ms-access vba

【解决方案1】：

组合框选择的值是一个字符串，即使该字符串只包含数字。您可以使用Val() 将该字符串转换为数字。

所以你需要的条件可以表示为...

Val(Me.Officer) + Val(Me.Enlisted) = Val(Me.Authorized)

您可以在表单的 Before Update 事件中强制执行该要求...

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If (Val(Me.Officer) + Val(Me.Enlisted) <> Val(Me.Authorized)) Then
        MsgBox "Officer plus Enlisted must be equal to Authorized."
        Cancel = True
    End If
End Sub

当您的要求不满足时，该事件过程将中止记录保存。

【讨论】：