Access VBA 中的通配符

Question

这是对这篇文章的后续问题：Access VBA recordset string comparison not working with wildcard 但我没有代表回答/评论它以在内部询问它。我特别好奇的是这行代码：

If ![ACOD] = "*_X" Then '"$ICP_X" works
        Debug.Print ![ACOD] 'For testing
        '.Delete
End If

我想知道这是否可以修改，以便在单击按钮时，它会查看字段名称为 *_New 的表单中的所有字段（希望捕获名称以 @987654327 结尾的所有字段@)，如果不是 Null，则确认用户想要进行字段中指示的更改。我在想类似这样的事情：

If Not isNull(*_New.value) Then
   If Msgbox ("Do you want to make these changes?",vbOKCancel, "Confirm Changes") = 1 Then
      '### Do something with the record ###
   End If
End If

编辑

截至发布上述信息时，我没有安装 Microsoft VBScript 正则表达式参考，目前我有 5.5 版（它是最新版本）。安装（引用？）并查看来自该站点MS Access with VBA Regex 的信息后，我想知道这样做是否更好：

Dim re As RegExp
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "*_New"
If ##Not sure on syntax to match all fields## Then
   Msgbox(##Same stuff as above MsgBox##)
End If

编辑 2

这是我正在处理的表单的示例案例。右侧的每个字段的名称都以_New 结尾。我要做的是单击按钮，检查并查看右侧的哪些字段已填写，并询问用户是否要确认对记录的更改。

Answer 1

不确定您要实现什么，但有一种方法可以访问表单中的控件集合。这是一个公共函数，您可以在其中循环所有控件并检查其名称。

Public Function FN_CONFIRM_CHANGES(iSender As Form)
    Dim mCtl As control
    For Each mCtl In iSender
        If VBA.Right(mCtl.name, 4) = "_New" Then
            Debug.Print mCtl.name & " is a match and its a " & VBA.TypeName(mCtl)
        End If
    Next mCtl
End Function

像这样调用这个函数

FN_CONFIRM_CHANGES Me 'Where me is referencing the form you are in.

如果用户决定不保存您的更改或您尝试实施的任何逻辑，您可以修改上述代码以返回一个布尔值以停止进一步执行。