Access 2010中的AfterUpdate以填充文本框不起作用

时间:2015-03-02 19:07:13

标签: vba ms-access access-vba

使用After Update事件填充文本框时遇到一些问题。我的目标是使用After Update事件自动填充Access 2010中的多个文本框,该事件采用空字段或空字段,并插入字符串字段的NA或数字字段的0。到目前为止我所做的是创建一个句柄事件,然后我从After Update函数调用它们。另外,我只是为文本框而不是表单尝试了这个,但我不确定使用哪个,因为我是VBA的新手。

代码用于在我转到文本框时使用On Click和Key Press事件填充链接到代码中字段的表,但是,当我使用After Update事件后,我的表不会自动更新到另一排。如果我转到文本框并点击space_bar或删除条目,我可以让它工作。如何在不单击文本框的情况下自动填充表格?

这是我的句柄事件代码:

Private Sub HandleEmptyStringEvent(object)
    If IsNull(object.Value) Or object.Value = "" Then
        object.Value = "NA"
    End If
End Sub

Private Sub HandleEmptyNumberEvent(object)
    If IsNull(object.Value) Or object.Value = "" Then
        object.Value = 0
    End If
 End Sub

然后通过以下方式调用它:

Private Sub Field1_AfterUpdate()
    HandleEmptyStringEvent Me.Field1
End Sub

Private Sub Field2_AfterUpdate()
    HandleEmptyNumberEvent Me.Field2
End Sub

由于

1 个答案:

答案 0 :(得分:0)

看看这个我的第一直觉是“更新后”不是触发此代码的好事件。 - 如果你正在寻找空字段,这将触发的唯一方法是,如果字段中包含某些内容,则删除它。更新后需要更改值以触发它(否则它不会更新值)。在退出时,您可以选择触发代码。