返回到未绑定的Access组合框的先前值

时间:2017-09-08 08:39:51

标签: vba ms-access combobox access-vba

当用户从未绑定的组合框中选择一个值时,我想进行一些检查。如果检查失败,我希望组合框返回先前选择的值。

我尝试在事件上使用.oldvalue: -

On Change
Before Update
After Update

...但我相信这不会起作用,因为组合框是未绑定的吗?

1 个答案:

答案 0 :(得分:2)

正如Gustav所说,你可以将控件的.Value存储在Enter上的.Tag属性中,这样如果验证失败,你就可以恢复它。

'Save Value to Tag
Private Sub Combo_Enter()
    With Me.Combo
        .Tag = .Value
    End With
End Sub

'Validate and revert
Private Sub Combo_Exit(Cancel As Integer)
    If Not True Then  'Your validation
        With Me.Combo
            .Value = .Tag
        End With
    End If
End Sub