Question

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

Me.Authorized
Me.Officer
Me.Enlisted

我想要做的是添加Me.Officer和Me.Enlisted的值，并确保它等于Me.Authorized。我已经找到了所有其他的陈述/命令，但我无法绕过这一个。

Answer 1

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

因此，您所需的条件可以表示为......

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

您可以在表单的更新前事件中强制执行该要求...

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

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

VBA一起添加组合框值

1 个答案: