访问：可变文本根据报告中的字段长度对齐

Question

我想要根据包含的数据的长度更改报表上的文本框对齐方式。

例如：

如果Text长度小于100，则左对齐。如果大于等于100，则分配...

这可能吗？

我不是 vba 编程方面的专家，所以如果有任何帮助，我将不胜感激

Answer 1

可以使用 vba 根据文本的长度确定对齐方式。您也可以将相同的应用到您所在领域的任何其他属性

If Len(myfield) < 100 Then myfield.TextAlign = 1 Else myfield.TextAlign = 4

查看 this 了解更多详情。

将此添加到报告的详细信息部分，以将更改应用于每个条目。对于您的方法，最终的 Sub 应该如下所示：

Private Sub Detail_Paint()
If Len(CommRule) < 100 Then CommRule.TextAlign = 1 Else CommRule.TextAlign = 4
End Sub

换句话说：如果您的 CommRule 值的长度（文本中的字符数）小于 100（然后）将 CommRule 的对齐设置为 "left"（= 1），否则设置它至 "distribute" (= 4)

ACCESS: variable text align based upon field length in Report