MS Access 2016技术咨询：如何从邮件收件人列字符串中提取带(UG)标识的学生姓名

当然可以实现这个需求！针对你从分号分隔的收件人字符串里提取带(UG)标识的学生姓名的问题，我们可以结合VBA自定义函数和Access更新查询来完成，具体步骤如下：

第一步：创建VBA自定义函数 #

首先打开Access的VBA编辑器（按下Alt+F11快捷键），插入一个新模块，然后粘贴以下代码：

Function ExtractUGStudent(recipientStr As String) As String
    Dim names() As String
    Dim i As Integer
    Dim result As String
    
    ' 把收件人字符串按分号分割成单个姓名的数组
    names = Split(Trim(recipientStr), ";")
    
    ' 遍历每个姓名，查找带(UG)标识的学生
    For i = LBound(names) To UBound(names)
        If InStr(Trim(names(i)), "(UG)") > 0 Then
            ' 如果找到多个学生，用分号分隔拼接
            If result <> "" Then result = result & "; "
            result = result & Trim(names(i))
        End If
    Next i
    
    ' 返回提取结果，没有符合条件的则返回空字符串
    ExtractUGStudent = result
End Function

这个函数会自动拆分收件人列表，筛选出所有带(UG)标识的姓名，哪怕学生在列表的任意位置都能找到。如果有多个学生，还会把他们的姓名用分号分隔好。

第二步：创建并运行更新查询 #

1. 先确保你的emails表已经添加了一个用来存储提取结果的字段（比如命名为UGStudentName，选择短文本类型，长度建议设为255以上，足够容纳多个姓名）；
2. 打开Access的查询设计视图，选择emails表，然后切换到SQL视图；
3. 输入以下SQL语句（记得替换占位符为你实际的字段名）：

UPDATE emails
SET UGStudentName = ExtractUGStudent([To]);

这里的[To]是你存储收件人列表的字段名，如果你的字段名不是这个，直接替换成对应的名称即可（如果字段名是Access保留字，一定要加方括号[]）；
4. 运行这个查询，所有符合条件的学生姓名就会自动提取到UGStudentName字段里了。

额外提示 #

• 如果你的主数据库里的学生姓名不带(UG)标识，后续关联的时候可以用简单的字符串处理去掉这个后缀，比如用Left([UGStudentName], InStr([UGStudentName], "(UG)") - 2)来提取纯姓名；
• 你提到的窗体打开/关闭时更新邮件文件夹的功能，也可以把这个提取逻辑整合进去——在更新邮件的VBA代码里，调用ExtractUGStudent函数直接更新对应的字段，这样每次同步邮件时就能自动完成姓名提取，不用手动跑查询了。

内容的提问来源于stack exchange，提问作者Ali