VBA访问文本框返回空值

Posted 2023-04-19

【中文标题】VBA访问文本框返回空值

【英文标题】：VBA Access Textbox returning Null Value

【发布时间】：2015-03-08 04:56:35

【问题描述】：

我有一个 VBA Access 用户表单。在这个用例中有一个名为txtSearch_POBOX 的文本框。我正在尝试使用以下代码获取其价值：

Private Sub txtSearch_FirstName_Change()
MsgBox ([Form_Client List].txtSearch_POBOX.Value)
End Sub

但这总是返回NULL。即使文本框中有一个值。有什么想法吗？

【参考方案1】：

你的参考是错误的。它应该是：

MsgBox Forms![Client List]!txtSearch_POBOX.Value

因为它可能是空的，你应该使用：

MsgBox Nz(Forms![Client List]!txtSearch_POBOX.Value)

【参考方案2】：

请记住，如果您想在数字化时截取文本框值，直到您“验证”内容更改（例如失去焦点），.Value 属性才会更新。

例如，我使用文本框制作子掩码的运行过滤器：我想在数字化时过滤子掩码。 为此，您需要使用 .Text 属性。

在以下示例中，我创建了一个发布者列表的运行过滤器：

Private Sub txtNameFilter_Change()
On Error Resume Next
    Dim strFilter As String

    If Not IsNull(Me.txtNameFilter.Text) Then
        strFilter = "Publisher LIKE '*" + Me.txtNameFilter.Text + "*'"
        Me.Filter = strFilter
        Me.FilterOn = True
        Me.txtNameFilter.SelStart = Len(Me.txtNameFilter.Text)
    End If
End Sub 

再见 巫师