计算字段 - 每个单词的第一个字母

Question

我希望在访问中构建一个计算字段，它将是公司名称的缩写。

我需要使用什么表达？

前两个或三个字母或每个单词可以使用相同的方法吗？

Answer 1

在某个模块中编写此类函数

Public Function ABBR(str As String, Optional Letters As Long = 1) As String

    Dim arr() As String
    Dim v As Variant
    arr = Split(str, " ")
    For Each v In arr
       ABBR = ABBR & Left(v, Letters)
   Next v

结束功能

并在控制源中写下

 =ABBR([Field with company name],1)

Answer 2

计算字段不是选项。计算属于查询和表单不属于表。这比你想象的要多得多。你需要重新考虑这一点。 Allen Browne对这个主题有一个非常好的解释：http://allenbrowne.com/casu-14.html

虽然如果您只想在查询中计算并在表单的未绑定控件中显示相同内容，则可以使用4dmonster提供的代码。