使用VBA在连续表单上进行条件格式化（Access 2003）

Question

我在Access 2003中有一个连续的表单，我需要在文本框中使用正则表达式执行验证。我想点击按钮调用验证。我想在vba中使用类似于条件格式的约束来对表单上使用的文本框进行常规表达。

请尽量指出如何做的指示。如果你有一个代码片段，请求分享。

Answer 1

条件格式不直接支持Regex。您需要在VBA中创建用户定义的函数（UDF）。例如：

Function FormatSalary(varField As Variant) As Boolean
    FormatSalary = (varField) > 20000
End Function

此函数在返回True或False之前将使用Regex。在该字段的条件格式规则中，您将使用Expression is并输入：

FormatSalary([Salary])

注意在此之前没有等号。

我相信，在点击按钮，使用VBA中的FormatConditions集合时，您可以通过编程方式执行此操作。但是，我怀疑您可能需要来回切换设计视图。 （我最近没有尝试过。）