VBA添加组合框值加在一起

Question

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

Me.Authorized 
Me.Officer 
Me.Enlisted 

我想要做的就是添加Me.Officer和Me.Enlisted的值，并确保它等于我.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 

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